Indy SMTP Fehlermeldung Timeout unterdürcken geht nicht....

[jupzup]

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;

[inherited]

Hi.
Kommt duie Exception, wenn du es mit Debugger startest? Dort werden alle exceptions angezeigt, in der Exe später aber nicht mehr. Versuch mal, die exe ohne Delphi zu starten ob es dann geht

[jupzup]

Zitat von inherited:

Hi.
Kommt duie Exception, wenn du es mit Debugger startest? Dort werden alle exceptions angezeigt, in der Exe später aber nicht mehr. Versuch mal, die exe ohne Delphi zu starten ob es dann geht

Hallo, die Exception kommt wenn nur die exe gestartet wird !! Es muss doch irgendeine Möglichkeit geben die Meldung zu unterdrücken ??!!

[Florian_Meyer]

Moin,

Delphi-Quellcode:

on e: EIdSocketError do
  WriteClient('Email Disconnect Error:'+inttostr(e.LastError)+#9,PathSystem,'Client.log',True);
  end;

Vielleicht solltest du es mal mit

Delphi-Quellcode:

on e: Exception do
  WriteClient('Email Disconnect Error:'+inttostr(e.Message)+#9,PathSystem,'Client.log',True);
  end;

probieren. Weil dann werden glaub ich alle exceptions abgefangen und nicht nur die SocketErrors.
Falls ich falsch liege, bitte ich um Berichtigung


MfG
Florian