Eine Exception beim Ende des FTP downloads

[shmia]

Zitat von m0sch3r:

Der FTP Upload auf der Clinet Seite wird folgendermaßen beendet.
Was bedeutet diese Exception..!? wieso passiert sie...!?

Du darfst die Exception Message nicht vernichten, sondern musst mitprotokollieren:

Delphi-Quellcode:

procedure FTPAfterGet(self : TObject; ASender: TObject; VStream: TStream);
begin
      try
         TidFTP(ASender).Quit;
      except
        on E:Exception do
        begin
         form1.Debug_Memo.Lines.Add('Error while closed FTPClientSocket' + formatDateTime('hh:nn:ss:', now));
         form1.Debug_Memo.Lines.Add(E.ClassName+' : '+E.Message);  // <======
         end;
      end; 
end;

Ausserdem solltest du TForm1 zusätzlich mit der Methode AddMessage ausstatten:

Delphi-Quellcode:

procedure TForm1.AddMessage(const msg:string);
begin
   Debug_Memo.Lines.Add(msg);
end;

Statt form1.Debug_Memo.Lines.Add() schreibt man dann: form1.AddMessage().