如何将图片文件保存在ACCESS中啊?

xudaifei 2004-11-04 06:36:11
如何将图片文件保存在ACCESS中啊?
...全文
252 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
gxgyj 2004-11-24
  • 打赏
  • 举报
回复
保存 :
var Ms:TmemoryStream;
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 ;
end;
读取到image中:
Var
Ms:TStringStream;
begin
Ms:=TstringStream.Create('');
TBlobField(ADOquery1.FieldByName('img')).SaveToStream(Ms);
Ms.Position :=0;
Jpg.LoadFromStream(Ms);
Image2.Picture.Assign(Jpg);
Ms.Free;
end;
darji 2004-11-04
  • 打赏
  • 举报
回复
二进制字段
保存:
(query1.FieldByName('img') as TBlobField).LoadFromFile('e:\temp.bmp');
取出:
(query1.FieldByName('img') as TBlobField).Savetofile('e:\temp.bmp');

这个里面可以保存任何形式的文件
GoGo_delphi 2004-11-04
  • 打赏
  • 举报
回复
这个更清楚些:
FieldByName('图片字段名').Assign(image1.Picture.Graphic);
GoGo_delphi 2004-11-04
  • 打赏
  • 举报
回复
FieldByName('img').Assign(FrmShare1.img_Front.Picture.Graphic);

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧