如何在Delphi中实现Firebird Blob图像

Question

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

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

Answer 1

Firebird blob图像与任何其他数据库一样工作。你可以看看here

以FIBPLUS dac

为例

Answer 2

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

Procedure TEditClassSix.LoadPic;
var
 j: TJPEGImage;

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