FTP LIST Timeout mit Delphi 11 und Indy TIdFTP

[mjustin]

Besteht im Forum eventuell Interesse an 'gemeinsamer' Suche nach der Ursache für diesen Bug?

Ich habe leider kein Delphi 11. Nach Hinweisen im Github issue tracker tritt er auch mit 10.4 und Free Pascal auf.

* https://www.delphipraxis.net/1497486-post7.html
* https://github.com/IndySockets/Indy/issues/377

Testprojekt siehe unter https://github.com/IndySockets/Indy/...ment-932632490

[mjustin]

Mit Free Pascal 3.2.0 konnte ich den Bug reproduzieren.

Die Exception wird meistens in Zeile 2134 in unit IdFTP ausgelöst:

Code:

            if LReadList.ContainsSocket(LDataSocket) then
            begin
              LPortSv.Listen(0);
              Self.GetResponse([125, 150, 154]); <--------------

Die Exception wird manchmal auch bereits kurz davor, in Zeile 2128, ausgelöst:

Code:

          if not LSocketList.SelectReadList(LReadList, ListenTimeout) then begin
            raise EIdAcceptTimeout.Create(RSAcceptTimeout);
          end;