30分钟实现有查询功能的图片浏览app程序

1、思路：遍历指定的路径，搜索指定格式的照片，列在checklistbox上，点击checklistbox上照片路径名称在右侧显示照片。

2、放置image+checklist+3*panel+speedbutton+2*edit+3*button+fdmanager+fdconnection+fdquery+splitter+FileOpenDialog组件。

3、代码实现。

1）搜索（遍历文件夹）。

uses
   system.contnrs, system.strutils,vcl.imaging.jpeg;//分别是队列，rightstr，jpg显示用到

procedure TForm1.SearchFile(path: PChar; fileExt: string; fileList: TStringList);
var
  searchRec: TSearchRec;
  found: Integer;
  tmpStr: string;
  curDir: string;
  dirs: TQueue;
  pszDir: PChar;
begin
  dirs := TQueue.Create; //创建目录队列
  dirs.Push(path); //将起始搜索路径入队
  pszDir := dirs.Pop;
  curDir := StrPas(pszDir); //出队
   {开始遍历,直至队列为空(即没有目录需要遍历)}
  while (True) do
  begin
      //加上搜索后缀,得到类似'c:\*.*' 、'c:\windows\*.*'的搜索路径
    tmpStr := curDir + '\*.*';
      //在当前目录查找第一个文件、子目录
    found := FindFirst(tmpStr, faAnyFile, searchRec);
    while found = 0 do //找到了一个文件或目录后
    begin
          //如果找到的是个目录
      if (searchRec.Attr and faDirectory) <> 0 then
      begin
          {在搜索非根目录(C:\、D:\)下的子目录时会出现'.','..'的"虚拟目录"
          大概是表示上层目录和下层目录吧。。。要过滤掉才可以}
        if (searchRec.Name <> '.') and (searchRec.Name <> '..') then
        begin
               {由于查找到的子目录只有个目录名，所以要添上上层目录的路径
                searchRec.Name = 'Windows';
                tmpStr:='c:\Windows';
                加个断点就一清二楚了
               }
          tmpStr := curDir + '\' + searchRec.Name;
               {将搜索到的目录入队。让它先晾着。
                因为TQueue里面的数据只能是指针,所以要把string转换为PChar
                同时使用StrNew函数重新申请一个空间存入数据，否则会使已经进
                入队列的指针指向不存在或不正确的数据(tmpStr是局部变量)。}
          dirs.Push(StrNew(PChar(tmpStr)));
        end;
      end
      else //如果找到的是个文件
      begin
             {Result记录着搜索到的文件数。可是我是用CreateThread创建线程
              来调用函数的，不知道怎么得到这个返回值。。。我不想用全局变量}
            //把找到的文件加到Memo控件
        if fileExt = '.*' then
          fileList.Add(curDir + '\' + searchRec.Name)
        else
        begin
          if SameText(RightStr(curDir + '\' + searchRec.Name, Length(fileExt)), fileExt) then
            fileList.Add(curDir + '\' + searchRec.Name);
        end;
      end;
          //查找下一个文件或目录
      found := FindNext(searchRec);
    end;
      {当前目录找到后，如果队列中没有数据，则表示全部找到了；
        否则就是还有子目录未查找，取一个出来继续查找。}
    if dirs.Count > 0 then
    begin
      pszDir := dirs.Pop;
      curDir := StrPas(pszDir);
      StrDispose(pszDir);
    end
    else
      break;
  end;
   //释放资源
  dirs.Free;
  FindClose(searchRec);
end;

调用。

var
  tmpstr: TStringList;
  icount: integer;
begin
  try
    tmpstr := tstringlist.Create;
    SearchFile(PChar(Edit1.Text), edtext.Text, tmpstr);   
    for icount := 0 to tmpstr.Count - 1 do
    begin   
      CheckListBox1.items.Add(tmpstr.Strings[icount])
    end;
  finally
    tmpstr.Free;
  end;

2）点击显示照片。

procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
self.Image1.Picture.LoadFromFile(self.CheckListBox1.Items[self.CheckListBox1.ItemIndex]);
end;

3）创建sqlite数据库。

参见：https://blog.csdn.net/winniezhang/article/details/104640634

4）数据库操作。

  i）保存搜索结果。

procedure TForm1.Button1Click(Sender: TObject);
var
  tmpstr: TStringList;
  icount: integer;
begin
  try
    tmpstr := tstringlist.Create;
    SearchFile(PChar(Edit1.Text), edtext.Text, tmpstr);
    FDQuery1.Close;
    FDQuery1.SQL.Clear;
    FDQuery1.SQL.Add('select * from photos');
    FDQuery1.Active := true;
    for icount := 0 to tmpstr.Count - 1 do
    begin
      FDQuery1.Insert;
      FDQuery1.FieldByName('path').AsString := tmpstr.Strings[icount];
      FDQuery1.FieldByName('type').AsString := ExtractFileExt(tmpstr.Strings[icount]);
      FDQuery1.FieldByName('filename').AsString := ExtractFileName(tmpstr.Strings[icount]);
      FDQuery1.Post;
    end;
  finally
    tmpstr.Free;
  end;

end;

  ii）删除搜索结果。

procedure TForm1.Button2Click(Sender: TObject);
begin
  FDQuery1.Close;
  FDQuery1.SQL.Clear;
  FDQuery1.SQL.Add('delete  from photos');
  FDQuery1.ExecSQL;
end;

  iii）从数据库加载结果到checklistbox上。

procedure TForm1.Button3Click(Sender: TObject);
begin
  FDQuery1.Close;
  FDQuery1.SQL.Clear;
  FDQuery1.SQL.Add('select * from photos');
  FDQuery1.Active := true;
  FDQuery1.First;
  self.CheckListBox1.Clear;

  while not FDQuery1.Eof do
  begin
    self.CheckListBox1.Items.Add(FDQuery1.FieldByName('path').AsString);
    FDQuery1.Next;
  end;
end;