Exception abfragen mit "on E : Exception do ..."

[moelski]

Moin !

Ich plage mich seit geraumer Zeit mit einem Connection Problem bei TIdImap4. Und Eurekalog schmeißt mir diesen Fehler raus:

Zitat:

2.5 Type : EIdConnectionStateError
2.6 Message : Unable to execute command, wrong connection state;Current connection state: Non Authenticated.

Nun habe ich diesen Code für den Connect:

Delphi-Quellcode:

    try
      ConnState := TheImap.Connect(True);
    except
      on E : Exception do
        begin
          SiMain.LogFatal('Connect : Exception class name = '+E.ClassName);
          SiMain.LogFatal('Connect : Exception message = '+E.Message);
        end;
    end;

Nur leider kriege ich nie Logeinträge für die Exception.

Drum mal die allgemeine Frage ..
Muss ich dort explizit auf EIdConnectionStateError abfragen?
Ich hätte jetzt vermutet da EIdConnectionStateError letztlich von Exception abgeleitet ist, dass das auch so funzt. Tut´s aber nicht. Nur warum !?

[himitsu]

EIdConnectionStateError sollte (hoffentlich) irgendwo die Exception-Klasse als Vorfahren haben.

Und diese On-Statemenst sollten alles abfangen, welches entweder der angegebenen Klasse entspricht oder diese als Vorfahren hat.


Also eigentlich sollte es funktionieren.


Was passiert denn hier?

Delphi-Quellcode:

try
  ConnState := TheImap.Connect(True);
except
  SiMain.LogFatal('Connect : Exception class name = ' + ExceptObject.ClassName);
  if ExceptObj is Exception then
    SiMain.LogFatal('Connect : Exception message = '+ Exception(ExceptObject).Message);
end;

Aber über

Delphi-Quellcode:

on E: Exception do

wäre der bessere Weg.

[moelski]

Ich nehme alles zurück.

Die Exception stammt vom nächsten Befehl ListMailBoxes :oops:

Kein Wunder das der Exception Block dann nicht greift.
Aber es bestätigt dann doch meine Vermutung :)

[himitsu]

Willst du die Exception eigentlich nur Loggen und sie dann dem User vorenthalten?

Wenn nicht, dann reich sie am Ende einfach weiter

Delphi-Quellcode:

try
  ConnState := TheImap.Connect(True);
except
  on E : Exception do
    begin
      SiMain.LogFatal('Connect : Exception class name = ' + E.ClassName);
      SiMain.LogFatal('Connect : Exception message = ' + E.Message);
      Raise;
    end;
  else 
    Raise;
end;

oder gibt den User eine passende Meldung.

Ich weiß ja nicht wie dein Log aufgebaut ist, aber eventuell macht sich ein zusammenhängender Eintrag übersichtlicher

Delphi-Quellcode:

try
  ConnState := TheImap.Connect(True);
except
  on E : Exception do
    begin
      SiMain.LogFatal('Connect : ' + E.ClassName + ' message = ' + E.Message);
      ShowException(E, ExceptAddr);
    end;
  else 
    Raise;
end;

[moelski]

Es geht mir nur ums Loggen.
Dem User kann das egal sein. Ist eh keine bediente Anwendung.

Zitat:

Ich weiß ja nicht wie dein Log aufgebaut ist, aber eventuell macht sich ein zusammenhängender Eintrag übersichtlicher

Das wird in der SmartInspect Konsole in einer Liste aufbereitet. Das passt schon so :)