Indy FTP: Probleme mit sehr langsamen Verbindungen

[andreasm82]

Zitat:

Nach meinen erfahrungen sind in der 4017 am wenigsten fehler drin.

Schade, diese Version scheint auch etwas buggy zu sein.

wenn ich mein Programm mehrere Tage am Stück laufen lasse, so kommt es irgendwann vor, dass ich bei FTP oder HTTP Verbindungen
scheinbar grundlose Fehlermeldungen bekomme. Es ist dann IMMER:
Fehler: EIdSocketError:Socket Error # 10054 Connection reset by peer.

Sobald ich das Programm neustarte, funktioniert wieder alles.
Am Programm selbst habe ich bzgl. FTP und HTTP nichts geändert.

In der Vergangenheit trat dies mit anderen Versionen der Indy Bibliotheken nie auf.

Was tun?

[DelTurbo]

Hi,

das problem kenn ich. Das kannst du selber fixen. Da du ja teilweise keine "sauberen" verbindung hast passiert es in idFTP.pas im SendCmd. Da ein try/except rein und es sollte behoben sein. Es gibt noch eine stelle wo er abkackt. Aber ich kann dir im moment nicht genau sagen wo das war. Leider kann ich dir keine exakte zeilennummer nennen, da ich mein idFTP schon zu sehr geändert habe damit es läuft.

Wenn du mit Indy arbeitest und besonders wenn du programme hast die einfach nur laufen sollen (24/7, rund um die Uhr) wäre es gut wenn du dir madException drauf machst. Dann siehst du auch genau wo der fehler passiert.

Ich habe meins so abgeändert, das er aufjeden fall "wiederkommt". Dann resette ich die verbindung indem ich sie trenne und neu verbinde.

[andreasm82]

Zitat:

Da du ja teilweise keine "sauberen" verbindung hast passiert es in idFTP.pas im SendCmd

Sorry, dass ich hierzu nochmal Nachfrage. Sendcmd wird in der idftp.pas zig mal aufgerufen, an welcher Stelle sollte das try except am besten hinein?

Vielen Dank!

[DelTurbo]

Wieso "sorry". Dafür ist das forum doch da. Anbei die änderung die ich bei mir gemacht habe. Müsste so ca. bei zeile 2000 sein. Ich hoffe das hilft dir weiter.

Gruss


Edit ich habe nun mal ein Compare gemacht. An folgenden stellen ist es enthalten. Mit diesen änderungen sollte es auf jedenfall wiederkommen. Wichtig ist das du dann beide Connections trennst und neu verbindest. Anders bekommt man (bzw. ich) das nichtmehr auf die füsse.

Delphi-Quellcode:

procedure TIdFTP.SendTransferType(AValue: TIdFTPTransferType);
var
  s: string;
begin
  s := '';
  case AValue of
    ftAscii: s := 'A';      {do not localize}
    ftBinary: s := 'I';     {do not localize}
    else
      raise EIdFTPUnsupportedTransferType.Create(RSFTPUnsupportedTransferType);
  end;
  try
    SendCmd('TYPE ' + s, 200); {do not localize}
  except
  end;
end;

Delphi-Quellcode:

procedure TIdFTP.DisconnectNotifyPeer;
begin
  if IOHandler.Connected then begin
    try
      IOHandler.WriteLn('QUIT');      {do not localize}
    except
    end;
    IOHandler.CheckForDataOnSource(100);
    if not IOHandler.InputBufferIsEmpty then begin
      GetInternalResponse;
    end;
  end;
end;

Delphi-Quellcode:

procedure TIdFTP.SendInternalPassive(const ACmd: String; var VIP: string;
  var VPort: TIdPort);
var
  i, bLeft, bRight: integer;
  s: string;
begin
  SendDataSettings;
  try
    SendCmd(ACmd, 227);      {do not localize}
  except
  end;

Delphi-Quellcode:

procedure TIdFTP.SendPBSZ;
begin
  {NOte that PBSZ - protection buffer size must always be zero for FTP TLS}
  if FUsingSFTP or (FUseTLS = utUseImplicitTLS) then begin
    //protection buffer size
    try
      SendCmd('PBSZ 0');  {do not localize}
    except
    end;
  end;
end;

Delphi-Quellcode:

procedure TIdFTP.SendDataSettings;
begin
  if FUsingSFTP then begin
    if not FUsingCCC then begin
      SendPBSZ;
      try
        SendPROT;
      except
      end;
      if FUseCCC then begin
        FUsingCCC := (SendCmd('CCC') div 100) = 2; {do not localize}
        if FUsingCCC then begin
         (IOHandler as TIdSSLIOHandlerSocketBase).PassThrough := True;
        end;
      end;
    end;
  end;
end;