如何将图片文件保存在ACCESS中啊？
如何将图片文件保存在ACCESS中啊？ 问题点数：0、回复次数：4Top
1 楼GoGo_delphi（天山雪）回复于 2004-11-04 22:29:03 得分 0
FieldByName('img').Assign(FrmShare1.img_Front.Picture.Graphic);Top
2 楼GoGo_delphi（天山雪）回复于 2004-11-04 22:31:00 得分 0
这个更清楚些：
FieldByName('图片字段名').Assign(image1.Picture.Graphic);Top
3 楼darji（成长中... ...）回复于 2004-11-04 22:35:12 得分 0
二进制字段
保存：
(query1.FieldByName('img') as TBlobField).LoadFromFile('e:\temp.bmp');
取出：
(query1.FieldByName('img') as TBlobField).Savetofile('e:\temp.bmp');
这个里面可以保存任何形式的文件
Top
4 楼gxgyj（杰克逊）回复于 2004-11-24 17:29:29 得分 0
保存 :
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;
Top
