delphi - 如何在 Delphi 中实现 Firebird Blob 图像

Question

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

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

Answer 1

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

Procedure TEditClassSix.LoadPic;
var
 j: TJPEGImage;

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