批处理图片

Question

昨天就看到了，不过我只能提供我的想法，具体成不成功要你自己去做啦！
1、对数据库进行处理：按你的要求过滤数据库并排序；然后将过滤的数据表指针放到首记录上；
2、生成相关语句：读入根路径和起止号，分别赋参数，其中先取起始号赋参，然后生成相关的插入语句；
3、插入图片：
   判断图片是否存在
   在：执行插入语句；
   不在：则提示文件不存在；
   数据库指针next；
   起始号+1；
   返回2步；    
大概就是这样，我只能给你提供这样一个思路，你自己试试吧！

Answer 1

是否有人知道从windows的资源管理器的文件夹中搜索想要的图片。

Answer 2

搜索图片实际上就是搜索文件，通过递归可以查找
var
  sList:TstringList;
  
procedure FindPhoto(Path:string);
var
  ...
begin
  if FindFirst(Path,faDirectory,f)=0 then
  begin
    if(f.Name<>'.')and(f.Name<>'..')and(f.Attr and faDirectory=0)then
      sList.Add(f.Name);
    while FindNext(f)=0 do
      if(f.Name<>'.')and(f.Name<>'..')then
        if(f.Attr and faDirectory=0)then sList.Add(f.Name)
                                    else FindPhoto(Path+f.Name);
  end;
end;然后处理sList的内容

Answer 3

if (FindFirst(mainpath+'*.*', faDirectory,SearchRec)=0)  then   
    begin
      if ((SearchRec.Attr and faDirectory) = faDirectory) and (SearchRec.Name<>'.') and (SearchRec.Name<>'..')  then
        begin                                      
          subdir1.Add(SearchRec.Name);
        end;
      while (FindNext(SearchRec) = 0) do         
        begin
          if ((SearchRec.Attr and faDirectory) = faDirectory) and (SearchRec.Name<>'.') and (SearchRec.Name<>'..')  then
            begin
              subdir1.Add(SearchRec.Name);     
              form1.memo1.Lines.Add(SearchRec.Name);
            end;
        end;
    end;
  FindClose(SearchRec);