急求！delphi中将图片保存到Aceess数据中怎么做啊
急求！delphi中将图片保存到Aceess数据中怎么做啊

老板的要求是：把客户的合同扫描件（图片）保存到数据库中，还要提供下载功能，也就是从数据库中读出来并且保存为图片文件，谁有这样的源码啊，分享一下啊。分数都给你了啊

[解决办法]
TBlobField(adoquery1.FieldByName('pic')).LoadFromFile('xxxxx');
[解决办法]
采用流方式保存到Aceess/SQL:
fStream:=TMemoryStream.Create;
fStream.LoadFromFile('D:\1.jpg');
adoquery1.append;
TBlobField(adoquery1.FieldByName('pic')).LoadFromStream(fStream);
adoquery1.post;

取出另存：
adoquery1.open;
TBlobField(adoquery1.FieldByName('pic')).SaveToStream(fStream);
fStream.Position:=0;
fStream.SaveToFile('D:\1_1.jpg');
[解决办法]

Delphi(Pascal) code

Parameters.ParamByName('已付').VALUE := LabeledEdit_pay.Text;        Parameters.ParamByName('备注').VALUE := LabeledEdit_remark.Text;        if Image1.Picture.Graphic <> nil then        begin          MS_Image := TMemoryStream.Create;          try            Image1.Picture.Graphic.SaveToStream(MS_Image);            Parameters.ParamByName('图片').LoadFromStream(MS_Image, ftBLOB);          finally            MS_Image.Free;          end;        end;        if ExecSQL = 1 then        begin          AddHintToStatusbar(0, '数据添加成功!');          MessageBeep(MB_ICONINFORMATION);        end;
[解决办法]
  DBImage1.Picture.SaveToFile(ImagePath+DBEdit1.Text+'.BMP');

[解决办法]
探讨


  TBlobField(adoquery1.FieldByName('pic')).LoadFromFile('xxxxx');