Rekursiver Aufruf von FTPFindFirstFile

[p0w3r5tr34m3r]

muss es unbedingt mit FTPFindFirstFile sein?

Hab hier was mit den standard Indy (v. 10) Kompos gemacht...

Delphi-Quellcode:

procedure TWorkerThread.ListDir(dir: String; const tv: TTreeView; var tn: TTreeNode);
var
  itm: TIdFTPListItems;
  i: Integer;
  node: TTreeNode;
  tmp: string;
begin
  thread.ftp.ChangeDir(dir);
  thread.ftp.List;
  itm := thread.ftp.DirectoryListing;
  for i := 0 to itm.count-1 do begin
    if itm.Items[i].ItemType = ditDirectory then begin
      node := form1.treeview1.Items.AddChild(tn, itm.Items[i].Filename);
      listdir(itm.items[i].filename, form1.treeview1, node);
      ftp.ChangeDirUp;
      ftp.list;
      itm := thread.ftp.DirectoryListing;
    end
    else
      form1.treeview1.Items.addChild(tn, itm.Items[i].filename+' ['+inttostr(itm.items[i].size)+']');
  end;
end;

musste deinen vorstellungen evtl. noch anpassen aber funktioniert auch rekursiv


MfG