如何在Delphi中实现Firebird Blob图像

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

---

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

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

---

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

Procedure TEditClassSix.LoadPic;
var
 j: TJPEGImage;

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

---

可能的重复项为您的DB使用适当的BLOB流，并在jpeg图像上调用SaveToStream。我猜。@Marcus Adams，可能是的，但我找不到将其保存到字段中的方法。如果字段有SaveToStream方法，您认为该字段也有LoadFromStream方法吗？如果TPicture有LoadToStream方法，您认为它也有SaveToStream方法吗？TBlobStream可能是一种更加快捷的方法。