如何将jpg图像保存到数据库,然后使用FIBplus和TImage将其加载到Delphi中?
发布于 2008-09-16 03:49:16
var
S : TMemoryStream;
begin
S := TMemoryStream.Create;
try
TBlobField(AdoQuery1.FieldByName('ImageField')).SaveToStream(S);
S.Position := 0;
Image1.Picture.Graphic.LoadFromStream(S);
finally
S.Free;
end;
end;如果您使用的是JPEG图像,请使用单元文件的子句将JPG单元添加到。
发布于 2008-09-15 19:15:13
This page对此进行了解释。如果不需要临时文件,请使用SaveToStream和TMemoryStream,而不是SaveToFile。TImage.Picture有一个LoadFromStream,它将图像从流中加载到TImage中进行显示。
发布于 2008-09-15 12:08:56
Take a look here.我认为你必须将它转换成流,存储它,反之亦然。
https://stackoverflow.com/questions/62230
复制相似问题