Hallo zusammen.
Ich hoffe Ihr könnt mir weiterhelfen. Ich habe bei ISDMTP einen Readtimeout Vorgegeben und wenn dieser erreicht wurde, kommt trotz Try und Except ein Fenster mit der Meldung "Zeitüberschreitung".
Wie bekomme ich das weg bzw. kann ich es verhindern das die Meldung kommt ???
Ich habe hier schon öfters mal gelesen mann sollte das onError Ereignis nutzen ( errorcode :=0) aber IDSMTP hat dieses Ereignis nicht...oder ich bin zu blöde
Hier der Try und Except Block aus meinem Programm:
Delphi-Quellcode:
try
if not IdSMTP1.Connected then IdSMTP1.Connect;
IdSMTP1.Send(IdMessage1);
// MsgLogNew('Email erfolgreich gesendet: ');
WriteClient('Send Email Succesful'+#9,PathSystem,'Client.log',True);
Alarmmessage1:= '';
Alarmmessage2:= '';
except
on e: EIdSocketError do
WriteClient('Send Email Failed'+inttostr(e.LastError)+#9,PathSystem,'Client.log',True);
end;
if IdSMTP1.Connected then
try
IdSMTP1.Disconnect;
except
on e: EIdSocketError do
WriteClient('Email Disconnect Error:'+inttostr(e.LastError)+#9,PathSystem,'Client.log',True);
end;
end;