Rekursiver Aufruf von FTPFindFirstFile

[Bummi]

die Meldung wenn o.g. Prozedur verwenden würdest wäre

Code:

[DCC Fehler] xxxx.pas(30): E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

Deine Prozedur scheint als 2. Parameter eine Treenode zu erwarten ...

[himitsu]

Ich weiß nicht was daran so schwer ist, mal kurz selber in die OH zu schauen? Das wäre schneller gegangen, als hier zu fragen und andere erst nachsehn lassen zu müssen.

In deiner Funktion findest du, daß dieses aNode an AddChildObject übergeben wird und da kann man nachlesen, daß man für NIL angeben kann/muß, wenn man zum Beispiel den Rootknoten haben möchte, bzw. einen Hauptknoten erstellen will.
Beim TTreeView gibt man NIL an, wärend man z.B. beim VirtualTreeView das RootNode-Property verwendet, wenn ich mich richtig erinnere.

Und genau dafür gibt es Tutorials und die OH.

[momo54321]

das angeben von nil geht allerdings auch nur wenn man im proceduren kopf das var entfernt.
nil hatte ich ja schon ausprobiert und es ging nicht, siehe Fehler:
[DCC Error] Unit1.pas(1837): E2033 Types of actual and formal var parameters must be identical


also, so funktioniert der kram zumindest bei mir nun:

Delphi-Quellcode:

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

procedure TForm1.PngSpeedButton1Click(Sender: TObject);
begin

FTP.Host     := FTP.Text;
FTP.Port     := StrToInt(FTPport.Text);
FTP.Username := FTPlogin.Text;
FTP.Password := FTPpw.Text;

FTP.Connect;

ListDir('/public_html/install2/', Treeview1, nil);

FTP.Disconnect;
end;

[himitsu]

Jupp, das VAR ist dort sowieso falsch.
Ich war aber eh von dem ursprünglichen procedure TForm1.FindFilesTree(aTree: tTreeView; aPath: string; aNode: tTreeNode; aWithFiles: boolean); ausgegangen.

[sx2008]

Bei dem Auflisten eines Verzeichnis über FTP muss man richtig vorgehen.
FTP Zugriffe sind teuer da sie über das Netzwerk gehen und dementsprechend viel Zeit brauchen.
Daher muss die Strategie so aussehen:
Verzeichnis mit "List" abrufen und alle Dateien in den Tree eintragen.
Unterverzeichnisse werden in diesem 1. Durchlauf ignoriert.
In einem 2. Durchlauf durch ftp.DirectoryListing werden alle Unterverzeichnisse rekursiv besucht.
Ein erneutes Auflisten des aktuellen Verzeichnis ist dabei unnötig und muss unbedingt vermieden werden!!

Sehr zu empfehlen ist auch die Übergabe einer Rekursionstiefe:

Delphi-Quellcode:

procedure ListDir(dir: String; const tv: TTreeView; tn: TTreeNode; level:integer);
begin
  if level <= 0 then Exit;
  ...
  // und später der rekursive Aufruf
  listdir(itm.items[i].filename, tv, node, level - 1);  
...

Möchte man nur das Basisverzeichnis auflisten übergibt man für "level" den Wert 1;
um alle Unterverzeichnisse aufzulisten übergibt man einen Wert > 100.
Das sollte für alle "normalen" FTP Server ausreichen.
Bei einem unbekannten FTP-Server könnte man mit level=2 beginnen, damit man sich nicht in den möglichweise Tausenden Unterverzeichnissen verliert.