TidFTPListItems erfahrung?

[Bonestorm]

Hi Supermuckl.
Du hast dir die ganze Sache ein bisschen zu kompliziert vorgestellt.
Das geht eigentlich ganz einfach. Du musst nur pro datei/Verzeichnis ein Objekt vom Typ TIdFTPListItem in ADirectoryListing hinzufügen und dieses dann mit den entsprechenden Daten füllen (Name,Größe,etc.).
Du musst da nix mit parse oder so machen.

Delphi-Quellcode:

procedure TForm1.serverListDirectory(ASender: TIdFTPServerThread;
  const APath: String; ADirectoryListing: TIdFTPListItems);
var
  d : TIdFTPListItem;
begin
  d := ADirectoryListing.Add;
  d.Size             := 0;
  d.ModifiedDate     := now;
  d.FileName         := 'Verz';
  d.ItemType         := ditDirectory;
end;

Ich hoffe geholfen zu haben.