DBImage显示图片问题 我用DBImage邦定数据库,数据库是SQLSERVER2000,NORTHWIND库的Employees表。邦定的字段是PHOTO,可是运行时,说是不可识别的格式。问怎么解决。有没有其他更好的办法。我想让其和DBEdit一样,自动刷新。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 uses jpeg;保存Image1中的图象至数据库 :var Ms:TmemoryStream; jpg:Tjpegimage;begin ms:=TmemoryStream.Create; Jpg.Assign(Image1.Picture.Graphic); Jpg.SaveToStream(Ms) ; Ms.Position :=0; ADOquery1.append; TBlobField(ADOquery1.FieldByName('img')).LoadFromStream(Ms); ADOquery1.Post; Ms.Free ; jpg.free;end;从数据库中读取图象到image2中:Var Ms:TStringStream; jpg:Tjpegimage;begin Ms:=TstringStream.Create(''); TBlobField(ADOquery1.FieldByName('img')).SaveToStream(Ms); Ms.Position :=0; Jpg.LoadFromStream(Ms); Image2.Picture.Assign(Jpg); Ms.Free; jpg.free;end;///也许楼主需要,看吧!.. 请大家进来帮个忙!谢谢了! 大虾救命啊:D7开发,使用DBEXPRESS控件,后台MS SQL,现在要制作安装程序:INSTALLSHIELD /WISE 非常棘手的字符串问题!在线等。。。 md5怎么用呀?(50分) 关于-神龙DVD卡-缓冲区播放--有大虾做过请指明 mdi form 的問題 在d7中 关于TADOQuery控件的操作 UDP协议发送和接收数据的问题,在线等待,解决立即给分!!! 怎样实现在Delphi与C++之间实现函数与对象共享 暂存依次搜索到的数据集d问题 DELPHI 2005出更新包了,快下啊!!! 讨论,这个特效是如何实现的
uses jpeg;
保存Image1中的图象至数据库 :
var
Ms:TmemoryStream;
jpg:Tjpegimage;
begin
ms:=TmemoryStream.Create;
Jpg.Assign(Image1.Picture.Graphic);
Jpg.SaveToStream(Ms) ;
Ms.Position :=0;
ADOquery1.append;
TBlobField(ADOquery1.FieldByName('img')).LoadFromStream(Ms);
ADOquery1.Post;
Ms.Free ;
jpg.free;
end;
从数据库中读取图象到image2中:
Var
Ms:TStringStream;
jpg:Tjpegimage;
begin
Ms:=TstringStream.Create('');
TBlobField(ADOquery1.FieldByName('img')).SaveToStream(Ms);
Ms.Position :=0;
Jpg.LoadFromStream(Ms);
Image2.Picture.Assign(Jpg);
Ms.Free;
jpg.free;
end;///也许楼主需要,看吧!..