TFTP, Listen Parser nicht registiert

[haentschman]

Hallo...

Ich habe eine Unit, welche seit dem Erstellen im August (2015) nicht verändert wurde, welche in der Listenparser nicht registriert wurde.

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt dUpload.exe ist eine Exception der Klasse EIdFTPListParseError mit der Meldung 'Es wurden keine FTP-Listen-Parser registriert.' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

Alle Threads (Tante) sind 6 Jahre alt. Die Parser werden angeblich über das "Framework" initalisiert. Aber der Code ( class function TdTools.FTPFolderExists(aFTP: TIdFTP; aFolder: string): Boolean; ) war funktional...

Delphi-Quellcode:

class function TdTools.FTPFolderExists(aFTP: TIdFTP; aFolder: string): Boolean;
var
  I: Integer;
  ListItem: TIdFTPListItem;
begin
  Result := False;
  if Assigned(aFTP) then
  begin
    aFTP.List;
    for I := 0 to aFTP.DirectoryListing.Count - 1 do // -> hier 
    begin
      ListItem := aFTP.DirectoryListing.Items[I];
      if ListItem.FileName = aFolder then
      begin
        Result := True;
        Break;
      end;
    end;
  end;
end;

Hat jemand eine Idee?

Nachtrag:
Eine Ergänzung in der uses hat es gebracht... ...warum auch immer.