Oracle数据库图片存取问题 我用的是Oracle9i+ADOQuery请问怎样对数据库中的Blob子段进行数据存取呢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var fs: TFileStream; bs: TBlobStream;// 写入with ADOQuery1 do begin Append; fs := TFileStream.Create('image1.jpg', fmOpenRead); bs := TBlobStream(CreateBlobStream(FieldByName('Pic'), bmWrite)); bs.CopyFrom(fs, 0); bs.Free; fs.Free; Post;end;// 读取with ADOQuery1 do begin fs := TFileStream.Create('image1.jpg', fmOpenWrite or fmCreate); bs := TBlobStream(CreateBlobStream(FieldByName('Pic'), bmRead)); fs.CopyFrom(bs, 0); bs.Free; fs.Free;end; 有表TestPhoto(Oracle9i中),其中字段Photo为Blob类型,我用ADOQuery执行"Select Photo from TestPhoto"为什么出错? 简单问题 delphi之家欢迎大家的加入.共同交流技术..13771002 对文件操作 如何使数据集空时,ehlib grid不能输入内容? 急!!!!本人用Delphi6开发的ActiveX控件,发布一到网页后不运行,不显示,怎么办? 如何将判断ACCESS中的表存在, 并将它删除??? 怎样解决数据库连接占线的问题??? 做过邮件收发的请进,1000高分.... 大家来看看了,这段程序什么错?分就这么多了? 如何安装一个OCX? 关于第三方控件的问题 关于存贮过程
fs: TFileStream;
bs: TBlobStream;// 写入
with ADOQuery1 do begin
Append;
fs := TFileStream.Create('image1.jpg', fmOpenRead);
bs := TBlobStream(CreateBlobStream(FieldByName('Pic'), bmWrite));
bs.CopyFrom(fs, 0);
bs.Free;
fs.Free;
Post;
end;
// 读取
with ADOQuery1 do begin
fs := TFileStream.Create('image1.jpg', fmOpenWrite or fmCreate);
bs := TBlobStream(CreateBlobStream(FieldByName('Pic'), bmRead));
fs.CopyFrom(bs, 0);
bs.Free;
fs.Free;
end;