如何在Delphi中实现Firebird Blob图像

问题描述：

我已经四处搜索，但找不到适合自己的任何东西。我发现this，但它不符合我的需要。如何在Delphi中实现Firebird Blob图像

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

可能重复[如何从BLOB字段拉JPG在Delphi和显示在TImage中？（http://stackoverflow.com/questions/3987917/how-to-pull-jpg-from- a-blob-in-delphi-and-display-in-a-timage） – 2012-08-15 16:44:24

为你的数据库使用适当的BLOB流，并在jpeg图像上调用SaveToStream。我猜。 – 2012-08-15 17:17:27

@马库斯亚当斯，可能是的，但我找不到将其保存到字段的方法。 – frozenade 2012-08-16 08:40:45

答

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

为例与FIBPLUS DAC

答

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

Procedure TEditClassSix.LoadPic; 
var 
j: TJPEGImage; 

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

的

如何在Delphi中实现Firebird Blob图像

相关推荐