OleSysError eigenen Exceptionhandler

[stOrM]

Hallo,
ich hätte da mal gerne eine Frage zu folgendem:

Ich arbeite gerade an einem kleinen Projekt, dort mußte ich eine TLB importieren, dazu fehlten aber leider sämtliche Fehlercodes, die hab ich mir nachträglich von der MSDN besorgt und in eine Datei geschrieben, die ich per Include in mein Projekt linke...

Jetzt meine Frage, wäre es möglich, mittels meiner Includedatei, für dieses Projekt einen eigenen Exceptionhandler zu registrieren, welcher mir dann anhand meiner Includedatei, sofern Fehler auftauchen, die von der Comschnittstelle kommen, diese mir dann in ein Memo zu schreiben, sagen wir mal in dieser Form:

ADescription: WideString;
AErrorNr: Integer;
AErrorText: WideString

Das Problem hier ist, ich bräuchte erst einmal, ein Beispiel für nen eigenen Exceptionhandler und dann müßte ich noch wissen, wie ich an den Fehler aus der Includedatei extrahiere? Sorry das ist mir alles im Moment völlig unklar, ein Beispielfehler, wenn keine Internetverbindung besteht, könnte z.B. so aussehen:

OleException wirft folgenden Fehler wenn keine INet - Verbindung besteht: $8024402C

In meiner Include ist dazu folgendes declariert:

$8024402C, WU_E_PT_WINHTTP_NAME_NOT_RESOLVED, ERROR_WINHTTP_NAME_NOT_RESOLVED - the proxy server or target server name cannot be resolved.

Im Source bei mir Prüfe ich auf Fehler ja so:

Delphi-Quellcode:

  except
   on E : EOleSysError do
  begin
    ShowMessage(IntToStr(GetLastError));
    SysErrorMessage(GetLastError);
   end;

Vor allem, wenn die Exception geworfen wird, dann wird z.B. auch nichts ins Memo geadded, dass hier war ein Test:

Delphi-Quellcode:

  except
   on E : EOleSysError do
  begin
    mmo1.Lines.Add(SysErrorMessage(GetLastError));
   end;

Nur wie bekomme ich denn da nun die Ausgabe hin: FehlerCode (is klar), Fehlertext, Fehlerbeschreibung (nich klar)...

Viele Grüße
s!

[sirius]

Könntest du mal kur ein paar Zeilen eines Interfaces aus der TLB posten?

[stOrM]

Öhm welche brauchst du denn? Die TLB beinhaltet die Windows Update Agent Api... Was aber eigentlich egal ist, weil für weitere Projekte könnte ich sowas immer wieder gebrauchen...

Gruss
s!