FTP LIST Timeout mit Delphi 11 und Indy TIdFTP

[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;