Ich habe ein Upload Programm geschrieben. Das soll nun noch um eine Funktion erweitert werden und zwar wenn eine Datei 3 mal nicht hochgeladen wird ihr Status auf Failed gesetzt wird. Ich benutze die IndyFTP Komponente. Da der Befehl put kein Boolean zurück gibt den man auswerten kann oder sogar was der Server antwortet weiß ich nicht wie ich die Versuche zählen soll.

Meine Idee wäre es immer nach einem Versuch zu kucken ob die Datei auf dem Server liegt. Aber das ist mit Sicherheit die schlechteste Lösung oder ?
Falls einer eine Idee hat immer her damit

MFG Florian Middendorf

Ps. Ich hoffe ihr hattet ein schönes Weihnachtsfest.

Ich denke, das sollte man schon so machen. Also schauen ob die Datei auf dem Server vorhanden ist und auch ob die Datei die gleiche Größe und Version hat.

Wenn beim Übertragen ein Fehler auftaucht, dann wird eine Exception geworfen, diese kann man einfach abfangen und wenn die Anzahl der Versuche überschritten ist, dann einfach weiterreichen.

zusammenfalten · markieren

Delphi-Quellcode:

procedure UploadFile( AFtpConnection : TIdFTP; const ASourceFileName : string; ARetries : Integer = 3 );
  var
    LCount : Integer;
    LSuccess : Boolean;
  begin
    LCount := 0;
    LSuccess := False;

    if not AFtpConnection.Connected
    then
      AFtpConnection.Connect;

    repeat

      try
        Inc( LCount );
        AFtpConnection.Put( ASourceFileName );
        LSuccess := True;
      except
        on EIdFTPException do
          begin
            if ( LCount >= ARetries )
            then
              raise;
          end;
      end;

    until LSuccess;
  end;

Aufruf mit

zusammenfalten · markieren

Delphi-Quellcode:

try
  UploadFile( IdFTP1, MyFileName, 3 );
  // Hier jetzt die Datei als versendet markieren
  ...
except
  on E: Exception do
    begin
      // Hier jetzt die Datei als failed markieren
      ...
      // und den Fehler weiterreichen
      raise;
    end;
  on E: EIdFTPException do
    begin
      // Hier jetzt die Datei als failed markieren
      ...
      // Wenn mit der Markierung der Fehler hinreichend behandelt ist, dann die Exception nicht mehr weiterreichen
    end;
end;

Damit hat man schon mal sichergestellt, dass die Übertragung funktioniert hat und die Datei nun auf dem Server sein sollte.

Zusätzlich kann dann noch geprüft werden, ob die Datei existiert, die Größe passt und mit TIdFTP.VerifyFile die HashWerte von Quelle und Ziel überprüfen.

Wenn da was nicht passt, einfach eine Exception werfen (Eine EIdFTPException würde sich bei dem Code anbieten).

z.B. so (nur mit VerifyFile)

zusammenfalten · markieren

Delphi-Quellcode:

procedure UploadFile( AFtpConnection : TIdFTP; const ASourceFileName : string; ARetries : Integer = 3 );
  var
    LRemoteFileName : string;
    LCount : Integer;
    LSuccess : Boolean;
  begin
    LCount := 0;
    LSuccess := False;

    if not AFtpConnection.Connected
    then
      AFtpConnection.Connect;

    LRemoteFileName := ExtractFileName( ASourceFileName );

    repeat

      try
        Inc( LCount );
        AFtpConnection.Put( ASourceFileName, LRemoteFileName );
        LSuccess := True;
      except
        on EIdFTPException do
          begin
            if ( LCount >= ARetries )
            then
              raise;
          end;
      end;

    until LSuccess;

    if not AFtpConnection.VerifyFile( ASourceFileName, LRemoteFileName )
    then
      begin
        AFtpConnection.Delete( LRemoteFileName );
        raise EIdFTPException.Create( 'FileHash mismatch' );
      end;
  end;