Вопрос по EurekaLog. Исходный код включить можно?

← →
OW © (2011-09-09 12:02) [0]

почитав
http://www.gunsmoker.ru/2010/01/eurekalog-1.html
пишу
------------------
program Project1;
uses
ExceptionLog, ECore, ETypes,
Forms,
Unit1 in "Unit1.pas" {Form1};
{$R *.res}
procedure MyActionNotify(EurekaExceptionRecord: TEurekaExceptionRecord; EurekaAction: TEurekaActionType; var Execute: Boolean);
begin
Execute := False;
unit1.Form1.mmo1.Lines.Add(EurekaExceptionRecord.LogText);
end;
begin
ExceptionActionNotify := MyActionNotify;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
------------------
unit Unit1;
...
type
TForm1 = class(TForm)
btn1: TButton;
ac1: TADOConnection;
mmo1: TMemo;
procedure btn1Click(Sender: TObject);
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
ac1.Open;
end;
--------------
В memo вижу

EurekaLog
Application:
1.1 Start Date : Fri, 9 Sep 2011 11:58:19 +0400
1.2 Name/Description: Project1.exe
1.3 Version Number :
1.4 Parameters :
........
2.5 Type : EOleException
2.6 Message : [Microsoft][Диспетчер драйверов ODBC] Источник данных не найден и не указан драйвер, используемый по умолчанию.
и т.д.

А как бы сделать так, чтобы в логе было еще
procedure TForm1.btn1Click(Sender: TObject);
begin
ac1.Open;

Джедаи такое позволяли сделать, если в Options включить TD32 DebugInfo и детальный map
Сейчас тоже включил. Но ничего не прибавилось в логе.

← →
DVM © (2011-09-09 12:09) [1]

Дык гансмокеру и напиши, он в поддержке эрики работает.

← →
OW © (2011-09-09 12:35) [2]

Напишу :)

Вот так это делал с JEDI
program AAAA; uses JclDebug, JclHookExcept, ... procedure LogException(ExceptObj: TObject; ExceptAddr: Pointer; IsOS: Boolean); var mmLog: String; ModInfo: TJclLocationInfo; begin try ModInfo := GetLocationInfo(ExceptAddr); mmLog:=Format( "Exception occured at $%p "+#13#10+ "Module "%s""+#13#10+ "Procedure "%s""+#13#10+ "Unit "%s""+#13#10+ "Line %d", [ModInfo.Address, ModInfo.UnitName, ModInfo.ProcedureName, ModInfo.SourceName, ModInfo.LineNumber]); WriteToLog(mmLog); end; begin JclStackTrackingOptions := [stExceptFrame, stStack, stRawMode, stAllModules, stStaticModuleList]; JclStartExceptionTracking; JclAddExceptNotifier(LogException); //в настройках надо включить максимум для Linker и MapFile....

В логе имеется запись
Exception occured at $005E9676 Module "Unit1" Procedure "TForm1.btn1Click" Unit "Unit1.PAS" Line 92

← →
OW © (2011-09-09 12:43) [3]

правда, у JEDI за это
Module "Unit1" Procedure "TForm1.btn1Click" Unit "Unit1.PAS" Line 92
размерчик exe с 3,5 до 10 метров прыгает :). А так удобно, конечно.

Если Эрика такое может - буду ломать нач-во купить.
Она мне больше понравилась :)

Мы madExcept юзаем. Вроде тоже неплохо.

Все, вопрос снимается. Она включает аналогичную инфу.
Среди деревьев леса не увидать :)

Assembler Information:
-------------------------------------------------------------------
; Unit1.TForm1.btn1Click (Line=30 - Offset=1)

Вопрос по EurekaLog. Исходный код включить можно? Найти похожие ветки