求教!! 如何向数据表中添加图片?(100分)

  • 主题发起人 主题发起人 稻草人`
  • 开始时间 开始时间

稻草人`

Unregistered / Unconfirmed
GUEST, unregistred user!
数据表的一个字段已经声明为Graphic类型。
现在要把image1中的图片导入到数据表的该字段中,要如何作?
数据库为Delphi自带的Paradox。

 
在数据库上使用Image二进制字段保存,使用Stream流的方式。

创建文件流:
Word_FileStream:=TFileStream.Create(Target_Name,fmOpenWrite or fmCreate);
Word_FileStream.Position:=0;

保存到数据库的Image字段:
TBlobField(AdoQuery1.FieldByName(Column_Name)).SaveToStream(Word_FileStream);

从数据库读取文件到本地硬盘:
TBlobField(ADOQuery1.FieldByName(Column_Name)).loadfromStream(Word_FileStream);

释放文件流:
Word_FileStream.Free;
 
哦!天真!!你真行!!!
 
其实,我做的人事管理系统,身份证复印件及相片都是用sql的image类型,很成功
但是必须用ado连接(delphi6即用ado6)否则存大图片时会出现长度不对。有兴趣吗,
可发EMAIL予我,我可以给你代码fastersoft@peoplemail.com.cn
 
后退
顶部