怎样在delphi sqlserver 中保存和提取图元文件格式的图片 通过ado访问sqlserver 的图片(image)字段,要求图片可以保存(jpg,bmp,*wmf)有没有比较统一的操作方法 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var aStream1 : TStream; jpg : tjpegimage; //在uses 加入 jpeg,db 单元 插入jpg := tjpegimage.Create(); try dm.Query_image.open; dm.query_image.insert; aStream1 := dm.query_image.CreateBlobStream(dm.query_image.FieldByName('content'),bmReadWrite); jpg.LoadFromFile(name); jpg.SaveToStream(aStream1); aStream1.Free; dm.query_image.Post; finally jpg.Free; end;取出 if dm.query_image.State <> dsBrowse then exit; if dm.query_image.FieldByName('content').IsNull then Exit; //判断状态,content是我表里存放jpeg的field dm.query_image.open; aStream1 := dm.query_image.CreateBlobStream(dm.query_image.FieldByName('content'), bmRead); try aStream1.Position := 0; jpg:= tjpegimage.Create(); try jpg.LoadFromStream(aStream1); jpg.SaveToFile(ipath); //ipath:string 存放路径与文件名 finally jpg.Free; end; finally aStream1.Free; end; end; bmp的就更简单了,不过那么大最好转换一下*wmf的没试过 请问如何把日期字段载入到TreeView1 ? 奇怪,每次打开www.csdn.com,卡吧都会报病毒警告? 程序运行中线程线程的奇怪问题 sendinput如何不被真实键盘状态干扰? socket接收到四位六进制的数据,如何转成十进制 按时间查询数据库 如何编程获取PDF文件里的文字内容? 高手帮我,一个巨难的问题…… 急等…… 奇怪的时钟混乱问题 各位兄弟们,我想问一下各位的学历都是什么 如何判断两个ACCESS数据库中表的结构完全相同? 請問如何將網頁文件(html)保存到自已的數據庫里
jpg : tjpegimage; //在uses 加入 jpeg,db 单元
插入
jpg := tjpegimage.Create();
try
dm.Query_image.open;
dm.query_image.insert;
aStream1 := dm.query_image.CreateBlobStream(dm.query_image.FieldByName('content'),bmReadWrite);
jpg.LoadFromFile(name);
jpg.SaveToStream(aStream1);
aStream1.Free;
dm.query_image.Post; finally
jpg.Free;
end;取出 if dm.query_image.State <> dsBrowse then exit;
if dm.query_image.FieldByName('content').IsNull then Exit; //判断状态,content是我表里存放jpeg的field
dm.query_image.open;
aStream1 := dm.query_image.CreateBlobStream(dm.query_image.FieldByName('content'), bmRead);
try
aStream1.Position := 0;
jpg:= tjpegimage.Create();
try
jpg.LoadFromStream(aStream1);
jpg.SaveToFile(ipath); //ipath:string 存放路径与文件名
finally
jpg.Free;
end;
finally
aStream1.Free;
end;
end;
*wmf的没试过