保存jpeg圖像? 我要保存jpeg圖像,informix下面使用甚麼類型的字段 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我使用的是blob類型的字段,但是,保存的時候總是提示不合法的? 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;///也许楼主需要,看吧!.. 我就是按照上面的方法做的,但是,在保存的時候就說"blob_recv: received and invalid LO,不知道甚麼原因? blob類型,用流的方式读出写入。 参考楼上的。网上现成的代码很多。 我不是說了嘛,我的方法是對的,我在sql server 中試過,是可以保存的,但是,在informix中就出錯了. InstallShield问题 急:TDataSet如果动态增加Field IntraWeb程序在使用了bpl后,指定的port属性无效??? 請各位大俠指點一下(有關excel) 我的问题又菜又多啊:::鼠标,键盘模拟问题!! Char型数组怎样赋给olevariant型变量? 有人用delphi开发CGI的吗?就是李为的ado/mts/com+中的例子(3-10) 关于listview的问题!! D6 Update#1 和#2各有什么功能? 大哥大姐,关于 TabControl 程序运行中创建的UDP接收问题 怎样枚举OleVariant对象的属性和方法的名称!
保存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;///也许楼主需要,看吧!..