Leere Datei auf Server nach Upload mit idFtp.Put -> Warum?

[torud]

Hallo Wissende,

mit folgendem Code schiebe ich Dateien auf einen Server im Internet.

Verrückterweise funktioniert das auf meinem System immer wunderbar. Sobald User, die "nur" einen Webstick haben, das versuchen, kann es vorkommen, dass die Datei auf dem Server leer ankommt. Also nicht nur ein bisschen was, sondern komplett leer. Die Dateien sind XML-Dateien, die max 8kb haben.

Kann es sein, dass die Verbindung zu langsam ist und hier ein Timeout zum Tragen kommt? Ich bin ziemlich ratlos. Am Anfang war es Norton, der uns blockiert hat, später stellte sich noch die WindowsFirewall in den Weg. Jetzt wo eigentlich alles funktionieren müsste, kommt es immer wieder vor, dass User 0-byte-Dateien hochladen.

Vielleicht hat sich ja auch ein Fehler in die Routine eingeschlichen? Achso, das Ganz ist als Thread gemacht. Wenn ich den Code hier einstellen soll, mach ich das gern.

Delphi-Quellcode:

procedure TXMLUploader.Execute;
var
  Ftp : TIdFTP;
begin
  if bIsBusy then exit;
  try
    if FileExists(FileName) then
      begin
        Ftp := TIdFTP.Create(nil);
        Ftp.Host      := 'myserver';
        Ftp.Username  := 'myuser';
        Ftp.Password  := 'mypassword';
        Ftp.Port      := 21;
        Ftp.Connect;
        try
          Ftp.Login;
          FTP.ChangeDir('html/services/football/ekstraklasa/cis/xml');
          try
            bIsBusy := True;
            FTP.Put(FileName, ExtractFileName(FileName));
            form1.lbl_status.Font.Color := clGreen;
            form1.lbl_status.Caption    := DateTimeToStr(now) + ' Upload of current Statistics-File was succesful!';
            bIsBusy := False;
          except
            on e: exception do begin
              form1.lbl_status.Font.Color := clRed;
              form1.lbl_status.Caption    := DateTimeToStr(now) + ' Can´t upload current Statistics-File!';
              if Ftp <> nil then Ftp.Free;
              form1.mem_debug.Lines.Add(e.Message);
              bIsBusy := False;
            end;
          end;
        finally
          Ftp.Disconnect;
          Ftp.Free;
          bIsBusy := False;
        end;
      end;
  except
    on e: exception do begin
      form1.lbl_status.Font.Color := clRed;
      form1.lbl_status.Caption    := DateTimeToStr(now) + ' Can´t connect to server!';
      if Ftp <> nil then Ftp.Free;
    end;
  end;
end;

[DeddyH]

Was mich stutzig macht sind die Zugriffe auf VCL-Controls(Form1). Du solltest diese dringend synchronisieren.

[himitsu]

Man könnte notfalls auch nochmal die Dateigröße prüfen, nach dem Übertragen und dann entweder einen Fehler werfen oder eventuell es erst nocheinmal versuchen zu übertragen.

Das FTP-Protokoll hat keine (gute) Fehlererkennung.

[torud]

Hallo Detlef,

danke für Deine Info. Ist mein erster Thread und ich weiss noch nicht soo genau, wie das mit dem Synchronisieren läuft.

Sind denn sonst noch grobe Fehler drin?
Könnte es Sinn machen einen Timeout zu setzen?

Kann es denn so, wie ich es mit dem isBusy gemacht habe überhaupt funktionieren? Ich frage nur, weil der Thread sich ja selbst killt und ich mir nicht sicher bin, dass wenn in der Zwischenzeit der Aufruf nochmals kommt der Thread das überhaupt mitbekommt? Das war mehr oder weniger ein Not-Versuch mehrfaches Hochladen auf einmal zu vermeiden.

[torud]

Zitat von himitsu:

Man könnte notfalls auch nochmal die Dateigröße prüfen, nach dem Übertragen und dann entweder einen Fehler werfen oder eventuell es erst nocheinmal versuchen zu übertragen.

Das FTP-Protokoll hat keine (gute) Fehlererkennung.

Jo, vielleicht ist das eine Idee.

Das Verrückte ist ja, dass die User nichtmal eine Fehlermeldung erhalten. Die Verbindung wird etabliert und dann erhalten sie in dem Label die Anzeige, dass die Datei hochgeladen wurde.

[DeddyH]

Abgesehen davon, dass FTP u.U. doppelt freigegeben wird (erst im Except- dann im Finally-Block) und die VCL-Zugriffe nicht synchronisiert sind, ist mir spontan nichts aufgefallen. Aber die angesprochenen Dinge können es schon in sich haben, auch wenn sie für das Kernproblem vermutlich nicht ursächlich sind.

[blauweiss]

Ich werfe (als eher unwahrscheinliche Ursache) noch den TransferType ins Spiel.
Default ist IMHO ftBinary, die Alternative ftASCII würde sich "eigentlich" für XML anbieten. Wobei ich nicht glaube, daß es daran liegt -> wenn, dann entstehen Probleme andersrum (Binärdateien im ASCII-Mode transferiert).

Gruss,
blauweiss