String Durchsuchen lassen der vom FTP-Server kommt

[Wormid]

Mal als Beispiel... ExtractStrings liesse sich dazu ganz nett verwenden.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var DirList, ParseList: TStringList;
    i, x: Integer;
begin
  DirList   := TStringList.Create;
  ParseList := TStringList.Create;
  idFTP1.List(DirList);
  for i := 0 to DirList.Count - 1 do
  begin
    Listbox1.Items.Add('-> ' + DirList[i]);
    for x := 0 to ExtractStrings([' '], [' '], PChar(DirList[i]), ParseList) - 1 do
      Listbox1.Items.Add(ParseList[x]);
    ParseList.Clear;
  end;
  DirList.Free;
  ParseList.Free;
end;

Das Problem an der detalierten Liste ist, das sie nicht bei jedem Server gleich aussehen muss... Daher dieser Hinweis in der OH:

Zitat:

When ADetails is True, List can return FTP server-dependent details including the file size, date modified, and file permissions for the Owner, Group, and User.

An application must be able to parse the detailed list format based on the FTP server type identified in SystemDesc.

Wie das in der Praxis aussieht, ob der String bei unterschiedlichen Servern wirklich verschieden aufgebaut ist, das weiss ich leider nicht.

Edit: Source editiert... hatte vergessen die Objekte zu zerstören...