如何将Timage控件中的图像储存到Access数据中去? 如何将Timage控件中的图像储存到Access数据中去? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var msStream:TMemoryStream;begin msStream := TMemoryStream.Create; msStream.Position := 0; Image1.Picture.Bitmap.SaveToStream(msStream); self.ADODataSet1.Append; (AdoDataSet1.FieldByName('CImage') as TBlobField).LoadFromStream(msStream); AdoDataSet1.Post; msStream.free;end; 存入数据库:Field.Assign(Picture.Graphic);读取图像:Picture.Assign(Field);建议使用<*.BMP>文件 Case语句的用法 exe生成exe问题 例如:动态贺卡EXE生成器 求助一个用StringGrid做的单据(例如出库单,入库单)示例 怎么得到DBGrid栏拖动事件 求RSA源码,RSA单元文件和GINT单元文件 我想在tadoquery中连续insert,却只能插入一条,怎么办? 游戏开发C/S应该接用什么数据库呢?理想。。。 关于oracle数据库中blob数据类型的保存问题???? 如何引用第三方控件 DBGRID中的editmask问题 delphi dbchart 如何设置纵坐标范围? 这是什么意思
msStream:TMemoryStream;
begin
msStream := TMemoryStream.Create;
msStream.Position := 0;
Image1.Picture.Bitmap.SaveToStream(msStream);
self.ADODataSet1.Append;
(AdoDataSet1.FieldByName('CImage') as TBlobField).LoadFromStream(msStream);
AdoDataSet1.Post;
msStream.free;end;
读取图像:Picture.Assign(Field);
建议使用<*.BMP>文件