如何在 Delphi 中实现 Firebird Blob 图像答案

【问题标题】：How to implement Firebird Blob images in Delphi如何在 Delphi 中实现 Firebird Blob 图像
【发布时间】：2012-08-16 16:00:21
【问题描述】：

我已经四处寻找，但找不到适合我的东西。我找到了this，但它不符合我的需要。

我有一个带有 .jpg 过滤器的浏览按钮，但我不知道如何将图像保存到 blob 字段，然后显示到 TImage 上。

【问题讨论】：

How to pull jpg from a Blob Field in Delphi and display in a TImage?的可能重复
为您的数据库使用适当的 BLOB 流并在 jpeg 图像上调用 SaveToStream。我猜。
@Marcus Adams，可能是的，但我找不到将其保存到字段中的方法。
如果该字段有 SaveToStream 方法 - 你怎么看，该字段是否也有 LoadFromStream 方法？如果 TPicture 有 LoadToStream 方法 - 你怎么看，它也有 SaveToStream 方法吗？ TBlobStream 可能是更快捷的方法。

【解决方案1】：

以下代码显示了我如何将图片保存到 blob 字段中。 qEditClass6Question 是查询 qEditClass6 的字段“问题”。一旦图片被加载到 blob 字段中，当前的元组就可以发布到数据库中。

Procedure TEditClassSix.LoadPic;
var
 j: TJPEGImage;

begin
 j:= TJPEGImage.Create;
 j.Assign (qEditClass6Question);
 image1.picture.assign (j);
end;

【讨论】：