Delphi 批量把图片保存到Access数据库

DX00100

于 2019-01-04 09:35:28 发布

阅读量438

点赞数

分类专栏： Delphi 文章标签：导入

本文链接：https://blog.youkuaiyun.com/qq_33536143/article/details/85757042

版权

本文介绍如何利用Delphi编程实现将大量图片批量导入并存储到Access数据库中，探讨相关技术和步骤，包括数据库连接、BLOB字段处理等关键环节。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//添加一个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  //避免cximage1中无图像保存出错
      begin
        DmMain.adoquery1.Append;;
        DmMain.adoquery1.FieldByName('图片').Assign(cximage4.Picture.Graphic);
         DmMain.ADOQuery1.FieldByName('图片路径').Value :=Memo2.Lines.strings[tuid];
        ext := extractfileext(Memo2.Lines.strings[tuid]);  //获取扩展名