本文整理自网络，侵删。
存入
var astream : Tmemorystream;
begin
AStream := TMemoryStream.Create;
try
Image1.Picture.Graphic.SaveToStream(AStream);
AStream.Position := 0;
if adoquery1.Active then
begin
adoquery1.Edit;
TBlobField(adoquery1.FieldByName('File')).LoadFromStream(AStream);
adoquery1.Post;
end;
finally
AStream.Free;
end;
取出
var
Ms:TStringStream;
jpg1:Tjpegimage;
begin
Ms := TStringStream.Create('');
jpg1 := Tjpegimage.create;
try
if adoquery1.Active then
begin
TBlobField(adoquery1.FieldByName('File')).SaveToStream(Ms);
Ms.Position := 0;
jpg1.LoadFromStream(ms);
image1.Picture.Bitmap.Assign(jpg1);
end;
finally
ms.Free;
jpg1.Free;
end;
注意，如果出?FGot a packet bigger than ‘max_allowed_packet’ bytes
在My.ini加上
max_allowed_packet = 10M
相关阅读 >>
Delphi 如何让 tgpimage 直接从流中加载图片?
Delphi 2009 中 tstrings 与 tstream 的增强
Delphi firedac 下的 sqlite [5] - 数据的插入、更新、删除
Delphi application.processmessage作用
Delphi 解析Delphi中的loadlibrary,getprocaddress,freelibrary
更多相关阅读请进入《Delphi》频道 >>
