如何将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子句中。