Exceptions in DLL abfangen

[Tim Henford]

Hallo,

ich rufe einige Funktionen einer DLL auf und in diesen Funktionen sind manchmal noch Fehler, nun möchte ich aber, dass er nicht immer gleich eine Windows-Exception bringt, in der nur eine Adresse steht, sondern die Fehlermeldung, die mir Delphi z.Bsp. auch ausgibt, wenn ich die DLL mit einem Programm ausführe.

Ich dachte, das würde reichen, bringt aber scheinbar nichts - gibt es eine Alternative?

Delphi-Quellcode:

procedure TForm1.Err (Sender : Tobject;E : Exception);
begin
  Application.MessageBox( PChar ('Fehler    : ' + E.Message+#10#13+
      'Fehlertyp : ' + E.Classname+#10#13+'Sender    : ' + Sender.Classname),'',
      mb_iconError);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := Err;
...

...die DLL wird statisch verlinkt