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

LeeYu 2011-11-30 09:28:22

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

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

...全文

129 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

cntigercat 2011-12-02

打赏
举报

直接转换成流的形式也能存进去的。

kaikai_kk 2011-11-30

打赏
举报

采用流方式保存到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');

bdmh 2011-11-30

打赏
举报

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

sunli_py 2011-11-30

打赏
举报

[Quote=引用 1 楼 bdmh 的回复:]

TBlobField(adoquery1.FieldByName('pic')).LoadFromFile('xxxxx');
[/Quote]

正解

lyhoo163 2011-11-30

打赏
举报

DBImage1.Picture.SaveToFile(ImagePath+DBEdit1.Text+'.BMP');

ADSLAN 2011-11-30

打赏
举报



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;