新手上路,问题就是多!多帮忙指点呀! 我想做delphi把图片存入到SQL中,又把它显示出来,我查了很多资料,都没有搞懂,各位大哥,多帮帮忙呀!给个例子!先谢了! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 使用CSDN上的搜索功能上面有很多这们的例子! 简单点的用DBImage控件就完了 這個問題在人事薪資裡很普遍,用樓上說的DBImage就可以了,多讀一下Delphi help 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;///也许楼主需要,看吧!.. 看了下所谓的“泛型”,很困惑,谁来帮解释下这个问题? 如何实现点击查询按纽 将结果输出在另一个窗体的label中? 如何移动选择内容到GridSring指定的行?急急急! 怎么编一个撤消键? 怎么可以和那个条形码输入设备相联系来采入数据? 求助:哪位大侠有通用查询的例子! 字符串的操作 请问:如何把Delphi的Socket组件转成ActiveX控件呢?谢谢! 大家好:请问如何用CheckListBox1这组件。谢意! 救我啊,这么离谱 DBgrideh中的checkbox使用(ADO) 关于TFindDialog的问题
用DBImage控件就完了
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;///也许楼主需要,看吧!..