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.

[p80286]

Zitat von haentschman:

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

Redefining?
Ich meine mich grau erinnern zu können, das so etwas möglich war/ist.

Gruß
K-H

[hoika]

Hallo,
glaube ich nicht.
Das wird genauso so laufen, wie bei TImage,
wo sich neue Grafikformate registrieren können.
Alleine das Einbinden der Unit jpeg hatte gereicht,
damit TImage auch mit jpeg-Dateien umgehen konnte,
obwohl TImage das ursprünglich nicht konnte.
Die Unit jpeg hatte halt jpeg als Grafikformat registriert.

Bei dem TFTP könnte das ähnlich laufen.

[haentschman]

Danke...
...dumm ist nur das mein Delphi unverändert seit ca. 2 Jahren auf der Platte ist. Wenn ein Update der Indys verfügbar gewesen wäre, hätte ich ein Refactoring für möglich gehalten und QT Änderungen akzeptiert.

[Der schöne Günther]

Das ist der Grund weshalb ich diese schrecklichen initialization/finalization-Abschnitte in der Sprache Delphi hasse.

[haentschman]

Hallöle...

Nachtrag:

Im Delpi-Treff gefunden... https://forum.delphi-treff.de/index....llFTPListParse

Zitat:

Nun, da ja an Deinem Programm keine Änderungen vorgenommen wurden, muss die Änderung auf der anderen Seite, also beim Webserver eingetreten sein.
Ich gehe davon aus, dass dieser upgedated wurde und nun Daten in einem geänderten/erweiterten Format liefert.
INDY registriert automatisch nur das Minimum an benötigten Parsern. Somit ist dann das neue Format, welches der Webserver zurückliefert, nicht mehr interpretierbar.
Bindet man nun den korrekten Parser z.B. durch die Unit IdAllFTPListParsers ein, kann wieder erfolgreich geparst werden.

...kleine Ursache...