procedure loadfromdb
var
PicStream: TMemoryStream;
begin
PicStream := TMemoryStream.Create;
TBlobField(FDQuery1.FieldByName('fujian')).SaveToStream(PicStream);
PicStream.Position := 0;
PicStream.SaveToFile('x:\1.jpg');
PicStream.Free;
end;
procedure savetodb;
var
PicStream: TMemoryStream;
begin
PicStream := TMemoryStream.Create;
Image1.Picture.Bitmap.SaveToStream(PicStream);
TBlobField(FDQuery1.FieldByName('fujian')).LoadFromStream(PicStream);
PicStream.Free;
end;