如何把image1.picture赋值给variant变量 要把图像保存到数据库利用dhibernate,它生成的podo文件字段类型为variant图像利用timage控件显示请问如何赋值??直接赋值报错。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 先将图像保存到流(Image1.Picture.Bitmap.SaveToStream),然后用二进制字段的LoadFromStream方法装入(装入前,把流位置属性设为0) 也直接使用DBImage1对应某字段:DBImage1.Picture.Bitmap.LoadFormFile 我要利用dhibernate,而不是自己操作数据库所以现在是赋值问题,不是如何存入数据库的问题 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 是橙子那个吗? 楼上的应该可以的,不知道你为什么要使用dhibernate?这个东西可能还不太完善。 不知道什么是橙子,安装完cnpack带的。为什么用dhibernate?简化编码,不用自己写数据库访问代码,如果有更好的框架,麻烦推荐一下。 RMB找人修改个简单的网络程序 以本人的能力,现无法解决的几个问题(希望大家积极提供帮助)? 在QReport里,我用一张大小50K的JPG或BMP图片做背景,图片放在QRImage里,为什么只有开始两页有背景图而后面的就没有呢? 剪贴板的小问题,高手快来帮忙 请教问题!! 如何返回当前游标指向的记录?? 散分 表连接 ShellExecute返回值为SE_ERR_NOASSOC时如何打开WIN‘打开方式’窗口 求教!关于写数据库的问题。 如何实现Delphi连接paradox数据库? 今天杀了下毒,尽然delphi IDE中文变成乱码,直接往上面打汉字打不上去了
DBImage1.Picture.Bitmap.LoadFormFile
所以现在是赋值问题,不是如何存入数据库的问题
var
Stream: TMemoryStream;
begin
try
Stream := TMemoryStream.Create;
aJPEG.Assign(Image1.Picture.Bitmap);
aJPEG.SaveToStream(Stream);
StreamToVariant(Stream, aVariant);
finally
Stream.Free;
end;
顺便问一下, 你说的dhibernate 是橙子那个吗?
楼上的应该可以的,不知道你为什么要使用dhibernate?这个东西可能还不太完善。