批量保存图片到 Access 数据库

风神 2021-2-15 307

// 添加一个memo和一个opendialog
procedure TfrmMain.Button6Click(Sender: TObject);
var tuid:Integer;
begin
  if opendialog2.Execute then
   for tuid:=0 to opendialog2.Files.count-1 do
begin
  tupath4:=opendialog2.files.strings[tuid];
  Memo2.Lines.Add(tupath4);
  end;
end;
 
 //从Memo读取路径然后批量写入数据库
procedure TfrmMain.Button5Click(Sender: TObject);
var
  ext: string;
  tuid: Integer;
  ms:Tmemorystream;
begin
  if Memo2.Lines <> nil then
  begin
 
    for tuid := 0 to Memo2.Lines.count - 1 do
    begin
      cximage4.Picture.LoadFromFile(Memo2.Lines.strings[tuid]);
             If cximage4.picture.Graphic <> nil then // avoid error in image saving in cximage1
      begin
        DmMain.adoquery1.Append;;
                 DmMain.adoquery1.FieldByName('image').Assign(cximage4.Picture.Graphic);
                   DmMain.ADOQuery1.FieldByName('image path').Value :=Memo2.Lines.strings[tuid];
                 Ext := extractfileext(Memo2.Lines.strings[tuid]); //Get the extension
        if uppercase(ext) = '.BMP' then
                     DmMain.adoquery1.FieldByName('format').VALUE := 'bmp'
        else if (UPPERCASE(ext) = '.JPEG') or (UPPERCASE(ext) = '.JPG') then
                     DmMain.adoquery1.FieldByName('format').VALUE := 'jpg';
      end;
      DmMain.adoquery1.Post;
    end;
 
  end;
 
end;



DelphiTop论坛申明 1、本网站名称:DelphiTop论坛  网址:www.DelphiTop.com
2、专注于互联网分享精神,专注收藏与分享。你薅网友,我就薅你。
3、本站资源,如发现链接失效,可联系QQ 16643506进行反馈,我们会第一时间更新。
最新回复 (0)
返回