如何将jpg图像保存到数据库,然后使用FIBplus和TImage在Delphi中加载它?
时间:2020-03-05 18:53:16 来源:igfitidea点击:
如何将jpg图像保存到数据库,然后使用FIBplus和TImage将其加载到Delphi中?
解决方案
回答
在这里看看。
我认为我们必须将其转换为流,并将其存储,反之亦然。
回答
此页对此进行了说明。如果我们不需要临时文件,请使用SaveToStream和TMemoryStream而不是SaveToFile。 TImage.Picture具有一个LoadFromStream,它可以将流中的图像加载到TImage中进行显示。
回答
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单位添加到单位文件的using子句中。