TApplicationEvents.OnException получить имя метода из Exception

← →
Rembo (2009-05-31 01:14) [0]

В методе TApplicationEvents.OnException прописал это:
(Sender as TComponent).Name и смог писать в лог имя компонента который вызвал иссключение, есть ли способ узнать имя метода который вызвал иссключение?
(Sender as TComponent).MethodName() наверно позволит это, но что указывать в параметре не знаю. Наверно можно брать адрес из Exception.message пропарсив строку:
Access violation at address 0046DCD5 in module "Project1.exe". Read of address 00000000: n/a
но может есть путь попроще?

← →
Игорь Шевченко © (2009-05-31 01:30) [1]

http://www.delphi-jedi.org jcl jcldebug.pas

uses JclDebug; procedure TfMain.OnApplicationException(Sender: TObject; E: Exception); function StackTrace: string; var SL: TStringList; begin SL := TStringList.Create; try with TJclStackInfoList.Create(True, 0, nil) do try AddToStrings(SL); Result := SL.Text; finally Free; end; finally SL.Free; end; end; var F: TextFile; begin assignFile(F, LogFileName); if FileExists(LogFileName) then append(F) else rewrite(F); try writeln(F, StackTrace); finally CloseFile(F); end; Application.ShowException(E); end;

← →
Германн © (2009-05-31 01:51) [2]

Ещё проще http://www.eurekalog.com/
И готовая и дешёвая.

← →
Rembo (2009-05-31 01:57) [3]

А почему
p:=Ptr(StrtoInt(s)); ShowMessage((Sender as TComponent).MethodName(p));
неработает?
p:pointer;
s:string; - содержит вырезаный адрес из строки "Access violation at address 0046DCD5 in module..."
Выдает пустоту(

← →
Игорь Шевченко © (2009-05-31 02:19) [4]

> А почему
>
> p:=Ptr(StrtoInt(s));
> ShowMessage((Sender as TComponent).MethodName(p));
> неработает?

I give you three guesses

> Выдает пустоту(

а что должен выдать?

If Address does not point to a published method of the object, MethodName returns an empty string
(c) Help

TApplicationEvents.OnException получить имя метода из Exception Найти похожие ветки