如何把image1.picture赋值给variant变量

Question

要把图像保存到数据库
利用dhibernate，它生成的podo文件字段类型为variant
图像利用timage控件显示
请问如何赋值？？直接赋值报错。

Answer 1

先将图像保存到流（Image1.Picture.Bitmap.SaveToStream），然后用二进制字段的LoadFromStream方法装入（装入前，把流位置属性设为0）

Answer 2

也直接使用DBImage1对应某字段：
DBImage1.Picture.Bitmap.LoadFormFile

Answer 3

我要利用dhibernate，而不是自己操作数据库
所以现在是赋值问题，不是如何存入数据库的问题

Answer 4

procedure   JPEGToVariant(aJPEG: TJPEGImage; var aVariant:OleVariant);
var     
  Stream: TMemoryStream;     
begin     
  try     
   Stream   :=   TMemoryStream.Create;        
   aJPEG.Assign(Image1.Picture.Bitmap);     
   aJPEG.SaveToStream(Stream);
   StreamToVariant(Stream,   aVariant);     
  finally     
   Stream.Free;     
  end;    
顺便问一下， 你说的dhibernate 是橙子那个吗？

Answer 5

楼上的应该可以的，不知道你为什么要使用dhibernate？这个东西可能还不太完善。

Answer 6

不知道什么是橙子，安装完cnpack带的。为什么用dhibernate？简化编码，不用自己写数据库访问代码，如果有更好的框架，麻烦推荐一下。