160分紧急在线等待： 遍历子目录的同时将各子目录中的BMP文件加密并保存到SQL SERVER库中

Question

非常急，请师兄、师弟们帮帮忙：如D:\数据图片\  有1、2、3、4、5、6、7、8、9、10子目录，各子目录中又均有00、01、02、03、04、05、06 . . . . . 667子目录，然后全是一些BMP图片,现在
我得遍历所有文件并读取后加密,然后再（1、2 .....10表示10个表；00、01....667分别代表每个表中的期刊号）保存到SQL SERVER 库中.

Answer 1

你看 是不是这样：先用SHELL控件遍历文件，然后加密（不知道你有没有现成的加密算法，我觉得只加密BMP文件头就可以了），然后以流的形式保存成BLOB对象放到DB中

Answer 2

这也算是图形图像？？这不是目录操作呀给你点代码，不过完全是你要的那是不可能的...你还要自己再改改function DecorateDirPath(aDirPath: String): string;
begin
  if aDirPath[Length(aDirPath)]<> '\' then
    Result := aDirPath+'\'
  else
    Result := aDirPath;
end;// 把目录结构与相应文件生成TreeView
procedure AddTree(var aTreeView: TTreeView; aTypeName, Path : string; ParentNode: TTreeNode; IsAndFile: Boolean);
var
  SearchRec : TSearchRec;
  IFound : integer;
  newnode : TTreeNode;
begin
  Path := DecorateDirPath(Path);
  IFound := FindFirst(Path + aTypeName, faAnyFile, SearchRec);
  While IFound = 0 do
  begin
    if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
    begin
      if SearchRec.Attr = faDirectory then
      begin
        newnode := aTreeView.Items.AddChild(ParentNode, SearchRec.Name);
        newnode.ImageIndex := 0;
        newnode.SelectedIndex := 1;
        AddTree(aTreeView, aTypeName, Path + SearchRec.Name, newnode, IsAndFile);
      end
      else begin
        if IsAndFile then
        begin
          newnode := aTreeView.Items.AddChild(ParentNode, SearchRec.name);
          newnode.ImageIndex := 2;
          newnode.SelectedIndex := 3;
        end;
      end;
    end;
    IFound := FindNext(SearchRec);
  end;
  FindClose(SearchRec);
end;这些就是文件遍历的例子，其它操作，你还要看着加

Answer 3

谢谢各位的帮助。   CDSOFTWAREWJ（95927）但您的方法未能符合我的要求啊，所以只能给你三十分。

Answer 4

算了，CDSOFTWAREWJ（95927）我还是给您一半的分吧，如果您帮我解决了问题，我可以请您吃饭，但$160我出不起，原谅吧。lijinghe1(副乡长) 只能给您三十分了，除非您能给我一个可以借鉴的例子。