Idftp nur Ordner auflisten

[gee21]

:-/ Vermutlich waren die schon schlau

Also wenn du Data meinst
IdFtp1.DirectoryListing.Items[I].Data Müsste ich da ja noch irgendwie den Namen raus filtern.


Und ansonsten habe ich noch versucht mit
idftp1.DirectoryListing.Items[i].ItemType=(ditDirectory)
Weis aber einerseits nicht genau was das macht und andererseits schreibe ich es anscheinend auch falsch.

Code:

[DCC Error] TabbedTemplate.pas(258): E2003 Undeclared identifier: 'ditDirectory'

Oder suche ich noch bei den falschen Punkten?

[mkinzler]

Hast Du IdFTPList eingebunden?

idftp1.DirectoryListing.Items[i].ItemType=IdFTPList.ditDirectory;

[himitsu]

Jupp, wenn der Compiler es nicht findet, dann gibt es zwei Möglichkeiten:

- die Unit ist nicht eingebunden
- es befindet sich in einem anderem Scope/Namespace

Letzteres tritt bei Enums z.B. auf, wenn {$SCOPEDENUM} aktiv ist und man dann auch den Typenbezeichner mit angeben muß.

[gee21]

Achsoooooo. Danke euch allen.

Dachte list sei schon mit der idftp Komponente dabei... Jetzt geht's

[zeras]

Ich benutze folgende Funktion, um auf dem FTP Sever Verzeichnisse auszulesen.
Das funktioniert unter 10.4, aber nicht mehr unter 11.
Weiß jemand, ob sich bei Indy etwas geändert hat?

Delphi-Quellcode:

Function FTPDirExists(var DirName: String; IdFTPComp: TIdFTP): Boolean;
var
  itm: TIdFTPListItems;
  i : integer;

begin
  Result := False;

  IdFTPComp.List;
  itm := IdFTPComp.DirectoryListing;
  for i := 0 to itm.count -1 do begin
    if itm.Items[i].ItemType = ditDirectory then begin
      if itm.Items[i].Filename <> '.' then begin
        if itm.Items[i].Filename <> '..' then begin
          if UpperCase(itm.Items[i].Filename) = UpperCase(DirName) then begin

            //da FTP Server Groß/Kleinschreibung unterscheiden,
            //machen wir den Test alles mit Großschreibung und geben gegebenenfalls den
            //korrekten Pfad trotzdem zurück
            DirName := itm.Items[i].Filename;
            Result := True;
            Exit;
          end;
        end;
      end;
    end
  end;
end;

Es kommt immer TimeOut nach der eingestellten Zeit, siehe unten weiteres Beispiel.
Soweit wie mir bekannt ist, ist das ein ServU auf der anderen Seite.

Delphi-Quellcode:

var
  list_directories: TStringList;
  i : integer;
begin

  //nun versuchen, sich beim FTP Server einzuloggen
  IdFTP1.Host := 'xxx.de';
  IdFTP1.Username := 'username';
  IdFTP1.Password := 'Password';


    if not IdFTP1.Connected then IdFTP1.Connect;
    if not IdFTP1.Connected then begin
      ShowMessage(Format('FTP Server not connected! Cancel', []));
    end;
    i := IdFTP1.Greeting.Text.Count;
    ShowMessage(IdFTP1.Greeting.Text[0]);
    list_directories := TStringList.create;
    idftp1.List(list_directories, '', true);   >>>>>>>>>>>>>>> hier immer TimeOut
    for i := list_directories.Count - 1 downto 0 do begin
      ShowMessage(list_directories[i]);
    end;

[mjustin]

Zitat von zeras:

Ich benutze folgende Funktion, um auf dem FTP Sever Verzeichnisse auszulesen.
Das funktioniert unter 10.4, aber nicht mehr unter 11.
Weiß jemand, ob sich bei Indy etwas geändert hat?

Um das zu prüfen wäre es möglich, die Indy Sourcen aus Delphi 10.4 im Delphi 11 Projekt einzubinden.

Oder die aktuelle Indy Version downloaden und es damit in beiden versuchen. Wenn es dann in Delphi 11 noch nicht funktioniert, ist es vermutlich ein Bug in Delphi 11.

[zeras]

Zitat von mjustin:

Oder die aktuelle Indy Version downloaden und es damit in beiden versuchen. Wenn es dann in Delphi 11 noch nicht funktioniert, ist es vermutlich ein Bug in Delphi 11.

Wo gibt es denn die aktuellste Version?

[mjustin]

Zitat von zeras:

Ich benutze folgende Funktion, um auf dem FTP Sever Verzeichnisse auszulesen.
Das funktioniert unter 10.4, aber nicht mehr unter 11.
Weiß jemand, ob sich bei Indy etwas geändert hat?

Auf Anfrage von Remy Lebeau

Das Ticket wurde aktualisiert und einige Details hinzugefügt, er bat darum hier (auf diesen Post) zu antworten auf das Ticket zu verlinken:

https://github.com/IndySockets/Indy/issues/377