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().