本文整理自网络,侵删。
procedure loadfromdbvar 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;
相关阅读 >>
Delphi读取webbrowse中的图片显示在image中
更多相关阅读请进入《Delphi》频道 >>