Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Sender и Exception

Автор: Avers 10.11.2008, 11:20

Не могу разобраься, какой объект вызвал ошибку, а какой метод (в котором эта ошибка возникла) Простой пример: бросаем на форму кнопку и пишем код Код procedure TForm1.Button1Click(Sender: TObject); begin   ShowMessage(Sender.ClassName); end; Как бы кнопку не нажимали, в сообщении будет TButton А если написать свой обработчик исключений))... начинается самое интересное Код procedure TForm1.MyException(Sender: TObject; E: Exception); begin   ShowMessage(Sender.ClassName);  ... end; При фокусировке на кнопке жмем энтер и тоже получаем TButton. Но вот если нажать кнопку мышью, то получим TForm1 (!!!!) Почему?

Автор: CodeMonkey 10.11.2008, 11:51

Вообще-то метод, в котором возникло исключение, стандартными средствами не отслеживается никак. Стандартный Application.HandleMessage всегда вызывается с Sender = форме, в методах которой расположен его вызов, а если он вызывается вне формы - то в Sender передаётся Application. Если вас интересует диагностика места возникновения ошибки - см., например, http://www.delphikingdom.ru/asp/answer.asp?IDAnswer=57687

Автор: Avers 10.11.2008, 12:01

В данный момент мне хотелось бы узнать, почему MyException передатся один раз TButton, другой раз TForm1 То, что нельзя легко и просто узнать метод, вызвавший ошибку, я смирюсь. Но хочется хотя бы знать объект и/или модуль, в котором ошибка возникла.

Автор: CodeMonkey 10.11.2008, 12:56

Цитата(CodeMonkey @  10.11.2008,  11:51 ) Стандартный Application.HandleMessage всегда вызывается с Sender = форме, в методах которой расположен его вызов, а если он вызывается вне формы - то в Sender передаётся Application. Здесь я немного наврал. Не заметил: Код procedure TWinControl.MainWndProc(var Message: TMessage); begin   try     try       WindowProc(Message);     finally       FreeDeviceContexts;       FreeMemoryContexts;     end;   except     Application.HandleException(Self);   end; end; Цитата(Avers @  10.11.2008,  12:01 ) почему MyException передатся один раз TButton, другой раз TForm1 Вероятно это связанно с особенностями обработки сообщений в Windows. Дело в том, что многие сообщения шлются не самому контролу, а его контейнеру. При низкоуровневом программировании это позволяет положить на окно кнопку, не создавая для неё отдельный класс, а управляя ей (ловить её сообщения) из контейнера. Соответственно VCL для эмуляции того поведения, что мы видим сейчас, должна ловить сообщения в контейнере и перенапрявлять их (прямым вызовом через Perform) дочерним контролам (CN_COMMAND с BN_CLICKED для случая OnClick кнопки). Обработчик исключений при этом остаётся установленным на контейнер. Такую работу выполняет, например, DoControlMsg. Соответственно, кто будет в Sender зависит от того, кому было направлено сообщение. Цитата(Avers @  10.11.2008,  12:01 ) Но хочется хотя бы знать объект Объект - это как? Объект - это вообще-то адрес в памяти. Вы хотите узнать число типа 0A34F3A7?  Обычно узнают класс и имя метода. Если  объект - это компонент, то при сильном желании можно вытащить его свойство Name. Только в этом случае некрасиво получится.

Автор: Avers 11.11.2008, 10:04

я неверно выразился - мне нужно имя класса. Т.е., если бы не было этой канители  Цитата(Avers @  10.11.2008,  12:01 ) один раз TButton, другой раз TForm1 то, все было бы замечательно: по Sender можно было определить класс от которого пришло исключение, а следовательно и модуль и т.п. и во многих (пусть не всех, но во многих) случаях метод, в котором произошло исключение... (а мне больше и н надо). Но не зная класса.... все остальное становится бессмыслено.  Как же тогда определить модуль, в котором произошло исключение?

Автор: CodeMonkey 11.11.2008, 10:39

Цитата(Avers @  11.11.2008,  10:04 ) по Sender можно было определить класс от которого пришло исключение Ну вот поскольку Sender равен тому, кто поймал сообщение, а часть сообщений для кнопки отправляются именно форме, то так вот запросто это сделать не получится. 1. В принципе, на руках есть ExceptAddr - точный адрес инструкции, возбудившей исключение. У нас на руках есть и RTTI - в частности, список имён published-методов (в том числе обработчиков событий) и их адресов. Проблема состоит в том, как определить, какому методу принадлежит ExceptAddr. Имеется ввиду, что начало каждого метода известно, а вот сколько он занимает байт в длинну - нет. Может здесь и можно что-то придумать, но мне ничего в голову не приходит. 2. Простейшее в реализации будет подключить JclDebug, включить в опциях генерацию map-файлов и вызвать функцию GetLocationInfo. Простейшее в том смысле, что уже всё готово и написано. 3. Ну и, конечно, как вариант можно рассмотреть применение грязных хаков - например, подмена функций и методов перенаправления сообщения. В частности, обернуть Control.Perform в try ... except Application.HandleException(Control); end; Тогда бы Sender указывал на того, кого вы хотите. Но, помимо того, что это очень грязно, проблема ещё и в том, что некоторые нужные нам функции (например, тот же DoControlMsg) находятся в implementation-секциях модулей и не имеют внешних ссылок. Т.е. неизвестен их адрес. Аналогично - готового решения здесь мне не видно. Добавлено через 1 минуту и 54 секунды ...хотя... с другой стороны, сам Perform ведь в интерфейсной части, можно попробовать подменить его...

Автор: CodeMonkey 11.11.2008, 11:07

По способу номер 3 в последнем моём посте - если хотите, то можете попробовать такой код (для подмены стандартного класса используется http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=1367): Код   TButton = class(StdCtrls.TButton)   private     FOldWndProc: TWndMethod;     procedure NewWndProc(var Message: TMessage);   public     constructor Create(AOwner: TComponent); override;   end; { TButton } constructor TButton.Create(AOwner: TComponent); begin   inherited;   FOldWndProc := WindowProc;   WindowProc := NewWndProc; end; procedure TButton.NewWndProc(var Message: TMessage); begin   try     FOldWndProc(Message);   except     Application.HandleException(Self);   end; end; На первый взгляд вроде бы это работает, но, блин, серьёзно это не тестировалось. Я не рекомендую вам применять этот код как есть - это просто пример. Дело в том, что полностью ловить исключение в NewWndProc неправильно - т.к. существующий код (в том числе и VCL) рассчитывает на то, что исключение будет передаваться наружу. Поэтому вместо HandleException должно стоять запоминание экземпляра в глобальную переменную и её анализ и сброс в OnException.

Автор: Avers 11.11.2008, 11:08

1. Здесь идейка одна была и она заработала (по крайней мере в простом случае. Кажется, в другой теме я выкладывал этот код: Код procedure TForm1.MyException(Sender: TObject; E: Exception); var   i: integer;   s: string; begin   if copy(e.Message,1,6)='Access' then // сделано для AccessViolation, но суть для всех одна     begin       i := strtoint('0x'+copy(e.Message,Pos('address',e.Message)+8,8)); // получаем адрес       s := '';       repeat         s := Self.MethodName(Pointer(i)); // пыатемся получить имя метода          dec(i,2); // уменьшаем адрес       until (s<>'');       ShowMessage(s); // в этом сообщении мы и получим имя метода     end; end; но это для малой программы, где всего один моудль, поэтому можно уверенно искать в медоах Selfю 2. Не спорю. Смотрю как работает эврика лог - загляденье. Но столь мощый обработчик не требуется (раз). Нужен свой, бесплатный (специфика работы, можно сказать) - это два. 3.... сложно и запутанно.... (имхо). Нужен просто модуль (реализация в виде пакета bpl) подключаемый к написанной программе. Т.е. так, чобы не переписывать код.

Автор: CodeMonkey 11.11.2008, 11:38

Цитата(Avers @  11.11.2008,  11:08 ) Код i := strtoint('0x'+copy(e.Message,Pos('address',e.Message)+8,8)); // получаем адрес Вообще-то это число в точности равно переменной ExceptAddr ;) Цитата(Avers @  11.11.2008,  11:08 ) это для малой программы, где всего один моудль, поэтому можно уверенно искать в медоах Self Здесь как раз проблемы нет: вы всегда можете перебрать Screen.Forms. И перебрать методы у каждой формы. А настоящая проблема с приведённым способом в том, что он может давать ложную информацию. Например, пусть у вас в модуле есть (именно в таком порядке) OnButton1Click, затем в модуле идёт какой-то код (функция) и далее расположен Button2Click. Так вот, в Button2Click вы вызываете функцию, которая расположена между Button1Click и Button2Click. Предположим, что в ней возникнет исключение.  Что сделает ваш код? Код возьмёт адрес исключения (он расположен где-то между Button1Click и Button2Click) и начнёт уменьшать его, сдвигаясь к Button1Click, на каждом шаге пытаясь получить имя метода. Поскольку код между Button1Click и Button2Click не входит в RTTI (это просто какая-то функция), то сделать вам этого не удасться. Это значит, что ближайшее место, где вы остановитесь - это Button1Click. В итоге, в реальности мы вызывали Button2Click -> SomeFunc, а обработчик исключений сообщит нам, что ошибка возникла в Button1Click. Ложная информация. Добавлено через 1 минуту и 22 секунды P.S. Это в точности та проблема, что я говорил чуть ранее: известны только адреса методов, но не их размер.

Автор: Avers 11.11.2008, 12:03

Цитата(CodeMonkey @  11.11.2008,  11:38 ) Цитата(Avers @  11.11.2008,  11:08 ) i := strtoint('0x'+copy(e.Message,Pos('address',e.Message)+8,8)); // получаем адрес Вообще-то это число в точности равно переменной ExceptAddr ;) Упс)) Кста, как воспользоваться этой самой переменной?? Т.е. где она объявлена.  Стыдно, но я не знаю. Я ею ни разу не пользовался. Добавлено через 2 минуты и 57 секунд Нашел))

Автор: CodeMonkey 11.11.2008, 12:25

Цитата(Avers @  11.11.2008,  11:08 ) Нужен свой, бесплатный JclDebug - бесплатен. P.S. Эй, это же ваш вопрос: http://forum.vingrad.ru/forum/topic-231665.html Все ссылки сами и нашли.

Автор: Avers 12.11.2008, 09:52

Можете считать меня упрямым, но я все равно хочу написать что-нить свое)) Буду развиваться, как программист=)))

Автор: CodeMonkey 12.11.2008, 10:49

Ну так что, исчерпан вопрос или нет?  Вариант ответа на исходный вопрос был.

Автор: Avers 12.11.2008, 10:59

ответ на вопрос был.  Признаюсь, про контейнеры - не очень ясно, но суть понял - Sender в MyException - малополезный параметр (имхо). Прост хотелось бы стабильности.  Однорвеменно с тем появились новые вопросы. Например:  Какие есть еще способы, кроме Self.MethodName, по адресу получить имя процедуры или фнуции....   Ведь, если посмотреть View -> Debug Windows -> Modules, то обнаружиться, что там есть адреса процедур и не принадлежащих объекту.... Application.MethodName - вообще ничего не дает (ни от одного адреса)    Наверняка все проще, чем кажется...

Автор: CodeMonkey 12.11.2008, 11:16

Цитата(Avers @  12.11.2008,  10:59 ) если посмотреть View -> Debug Windows -> Modules Этот и другие (CallStack и т.п.) инструменты используют отладочную информацию. В готовую программу отладочная информация по-умолчанию не подключается. Попасть в exe она может несколькими способами, примеры каждого есть.... эээ... в JclDebug ;) Цитата(Avers @  12.11.2008,  10:59 ) по адресу получить имя процедуры или фнуции Есть только единственный верный способ это сделать - воспользоваться отладочной информацией. Ваши попытки использовать для этого MethodName (читай: RTTI) некорректны, что я показал в http://forum.vingrad.ru/index.php?showtopic=235599&view=findpost&p=1695185. Ну нет в exe-файле информации о принадлежности адреса функции. Нету. Хоть головой об стенку бейтесь, но её там нет  Единственный вариант - это её туда добавить. И вот здесь уже напридумывать можно много разных способов. Добавлено через 1 минуту и 50 секунд Цитата(Avers @  12.11.2008,  10:59 ) Наверняка все проще, чем кажется... По самой идее - проще некуда ;) по реализации - готовых стандартных решений нет, писать нужно всё самому или использовать написанное другими.

Автор: Avers 12.11.2008, 11:29

Цитата(CodeMonkey @  12.11.2008,  11:16 ) Ну нет в exe-файле информации о принадлежности адреса функции. Нету. Хоть головой об стенку бейтесь, но её там нет  Биться об стенку тоже вар)) Если хорошо удариться кодинг вообще не нужен станет    Создатели EurekaLog заявляют, что используют только стандартную Debug Info....  Они же получают имя процедуры.... даже если, она "висит сама по себе"....   Я в тупике.

Автор: CodeMonkey 12.11.2008, 12:09

Цитата(Avers @  12.11.2008,  11:29 ) Создатели EurekaLog заявляют, что используют только стандартную Debug Info....  Давайте ещё раз. Приведу кусок текста из своей статьи про исключения: Цитата Поговорим о понятии отладочной информации. Программа представляет собой набор машинных команд. Текст программы представляет собой текстовый файл. Вопрос: как отладчик узнаёт, когда надо остановиться, если вы поставили бряк на строку в тексте? Где же соответствие между текстовым файлом и набором байт в exe-файле? Вот для такой связи и служит отладочная информация. Это, грубо говоря, набор инструкций типа: «машинные коды с 1056 по 1059 относятся к строке 234 модуля Unit1.pas». Вот с помощью такой информации и работает отладчик. По-умолчанию она включена. Делается это в опциях проекта на вкладке «Compiler» в разделе «Debugging». Обычно они все (или почти все) включены для отладочной версии программы и отключаются для конечной версии, которую вы будете распространять. Напомним, что после переключения любой из этих опций необходимо делать полный Build проекта, чтобы опция вступила в силу.  «Debug information» (директива {$D+} или {$D-}) – это собственно и есть отладочная информация. Т.е. соответствие между текстом программы и её машинным кодом. Вы должны включить эту опцию, если хотите ставить бряки и выполнять пошаговую отладку. Отладочная информация сохраняется вместе с кодом модуля в dcu-файле. Т.е. один и тот же Unit1.dcu может быть скомпилирован как с отладочной информацией, так и без неё. Отладочная информация увеличивает время компиляции, размер dcu-файлов, но не влияет на размер и скорость работы полученного exe-файла (т.е. отладочная информация не подключается к exe-файлу).  «Local symbols» (директива {$L+} или {$L-}) – является дополнением к отладочной информации. Она отвечает за соответствие между данными в exe-файле и именами переменных. Если вы включаете эту опцию, то отладчик позволит вам просматривать и изменять переменные. Также окно «Call Stack» будет способно отражать переданные в процедуры параметры. «Reference info» – это дополнительная информация для редактора кода, которая позволяет ему отображать более подробную информацию об идентификаторах. Например, где была объявлена переменная. Заметим, что эти три опции («Debug information», «Local symbols» и «Reference info») обычно имеет смысл включать или отключать одновременно. Опцию «Definitions only» включать особого смысла нет. Формат DCU файлов недокументирован и меняется в (почти) каждой версии Delphi. Очевидно, что пытаться брать отладочную информацию из DCU, как это делает отладчик в Delphi - не самая лучшая идея. Окей, тогда где её берут? Ну во-первых, есть две таких опции: "TD32 Debug Info" и "Remote Debug Info" (вкладка "Linker"). Включение опции заставляет компилятор добавить в exe секцию с данными, которые содержат всю отладочную информацию для exe в формате TD32 или удалённого отладчика Delphi. Это уже можно использовать - в частности JclDebug и EurekaLog при недоступности других источников берут информацию именно из отладочной информации для TD32 - см. например TJclDebugInfoTD32.InitializeSource (есть даже целый модуль JclTD32.pas). Но обычно это является запасным вариантом, а не основным. Почему? Потому что отладочная информация в этих форматах предназначена для внешнего (Turbo Debugger 32) и удалённого отладчика соответвенно. Это значит, что её формат оптимизирован для отладки, но не для ваших целей. В частности, с практической точки зрения это означает многократное (!) увеличение размера exe-файла. Ещё варианты? Окей, вот основной вариант: Цитата Обратимся за помощью к компилятору Delphi, а точнее к его линкёру. Дело в том, что линкёр может сгенерировать нам при компиляции файлик, в который он запишет информацию по всему коду: какой код, каким модулям, каким функциям и даже каким строкам соответствует. Соответственно, мы можем прочитать этот файлик, найти там интересующий нас адрес и посмотреть, какой строке и в каком модуле он соответствует. Для включения генерации такого файла нужно зайти в меню «Project»/«Options» и на вкладке «Linker» переключить «Map file» в любую позицию, отличную от «Off». Разные опции соответствуют разным уровням детализации информации, «Off» - генерация файла отключена. Рекомендую всегда ставить в позицию «Detailed» – это самая функциональная позиция. Итак, при включении генерации файла карты во время компиляции будет создаваться файл с тем же именем, что и исполняемый файл проекта, только с расширением .map. Вот вырезки из его содержимого, чтобы вы представляли, о чём идёт речь: Код  Start         Length     Name                   Class  0001:00000000 00060508H .text                   CODE  0002:00000000 0000181CH .data                   DATA  0002:0000181C 0000125DH .bss                    BSS Detailed map of segments   0001:00000000 00005103 C=CODE     S=.text    G=(none)   M=System   ACBP=A9  0001:00005104 00000140 C=CODE     S=.text    G=(none)   M=SysInit  ACBP=A9  0001:00005244 00000078 C=CODE     S=.text    G=(none)   M=Types    ACBP=A9  0001:000052BC 00000CEC C=CODE     S=.text    G=(none)   M=Windows  ACBP=A9  0001:00005FA8 00000038 C=CODE     S=.text    G=(none)   M=Messages ACBP=A9  0001:00005FE0 00000320 C=CODE     S=.text    G=(none)   M=SysConst ACBP=A9  0001:00006300 00006B24 C=CODE     S=.text    G=(none)   M=SysUtils ACBP=A9  0001:0000CE24 000007FB C=CODE     S=.text    G=(none)   M=VarUtils ACBP=A9  0001:0000D620 00002A42 C=CODE     S=.text    G=(none)   M=Variants ACBP=A9  0001:00010064 00000120 C=CODE     S=.text    G=(none)   M=RTLConsts ACBP=A9  0001:00010184 000007E8 C=CODE     S=.text    G=(none)   M=TypInfo  ACBP=A9  0001:0001096C 00000038 C=CODE     S=.text    G=(none)   M=ActiveX  ACBP=A9  0001:000109A4 00009896 C=CODE     S=.text    G=(none)   M=Classes  ACBP=A9  0001:0001A23C 000002C8 C=CODE     S=.text    G=(none)   M=Consts   ACBP=A9  0001:0001A504 00008D47 C=CODE     S=.text    G=(none)   M=Graphics ACBP=A9  0001:0002324C 00000048 C=CODE     S=.text    G=(none)   M=Math     ACBP=A9  0001:00023294 00000564 C=CODE     S=.text    G=(none)   M=Contnrs  ACBP=A9  0001:000237F8 000000F4 C=CODE     S=.text    G=(none)   M=CommCtrl ACBP=A9  0001:000238EC 00000787 C=CODE     S=.text    G=(none)   M=MultiMon ACBP=A9  0001:00024074 00000038 C=CODE     S=.text    G=(none)   M=Imm      ACBP=A9  0001:000240AC 00000FF8 C=CODE     S=.text    G=(none)   M=HelpIntfs ACBP=A9 ...  0002:00003220 00000004 C=BSS      S=.bss     G=DGROUP   M=JclSynch ACBP=A9  0002:00003224 00000014 C=BSS      S=.bss     G=DGROUP   M=JclHookExcept ACBP=A9  0002:00003238 0000001C C=BSS      S=.bss     G=DGROUP   M=JclDebug ACBP=A9  0002:00003254 00000008 C=BSS      S=.bss     G=DGROUP   M=Unit1    ACBP=A9   Address         Publics by Name  0002:00003138       .01  0002:00002A44       .1  0002:00002668       .1  0002:00002A34       .1  0002:00002C00       .1 ...  0001:00023808       ImageList_GetImageCount  0001:00023894       ImageList_Read  0001:0002384C       ImageList_Remove  0001:00023818       ImageList_ReplaceIcon  0001:00023820       ImageList_SetBkColor  0001:0002387C       ImageList_SetDragCursorImage  0001:000238AC       ImageList_SetIconSize  0001:0002389C       ImageList_Write  0001:00055AB4       ImageRvaToSection  0001:00055B10       ImageRvaToVa  0002:00000BDC       Images  0001:000414F4       ImgList  0001:000240A4       Imm  0002:00000BC0       IMM32DLL  0001:0003E7E0       Imm32IsIME  0002:00000180       IMSecsPerDay  0001:0000E3C8       InBounds  0001:0000E128       InBounds  0001:0000E158       Increment ... Line numbers for JclHookExcept(JclHookExcept.pas) segment .text    145 0001:0005BBB0   146 0001:0005BBB1   147 0001:0005BBC9   148 0001:0005BBE6    153 0001:0005BC7C   154 0001:0005BC82   155 0001:0005BC8E   156 0001:0005BC9C    157 0001:0005BCA7   156 0001:0005BCB6   159 0001:0005BCC6   161 0001:0005BCD8    162 0001:0005BCE2   167 0001:0005BCE8   168 0001:0005BD00   169 0001:0005BD09    170 0001:0005BD0C   171 0001:0005BD29   181 0001:0005BD30   182 0001:0005BD34    183 0001:0005BD3A   185 0001:0005BD48   186 0001:0005BD4F   187 0001:0005BD5B    195 0001:0005BD60   196 0001:0005BD71   198 0001:0005BD83   200 0001:0005BD90    201 0001:0005BD9C   202 0001:0005BDA9   203 0001:0005BDB7   204 0001:0005BDC4    205 0001:0005BDD2   206 0001:0005BDD6   207 0001:0005BDE4   208 0001:0005BDEE    209 0001:0005BDF6   206 0001:0005BE06   209 0001:0005BE09   205 0001:0005BE0C    211 0001:0005BE1F   214 0001:0005BE3E   217 0001:0005BE52   228 0001:0005BE58    229 0001:0005BE67   231 0001:0005BE84   232 0001:0005BE96   233 0001:0005BEA3    238 0001:0005BEAC   239 0001:0005BEB3   240 0001:0005BEBD   241 0001:0005BEC9    242 0001:0005BED4   243 0001:0005BED8   244 0001:0005BEDC   254 0001:0005BEE0    257 0001:0005BEFB   260 0001:0005BEFC   261 0001:0005BF07   262 0001:0005BF0D    263 0001:0005BF13   264 0001:0005BF1F   265 0001:0005BF2D   267 0001:0005BF52    269 0001:0005BF67   287 0001:0005BF70   288 0001:0005BF7B   289 0001:0005BF83    290 0001:0005BF89   291 0001:0005BF96   292 0001:0005BFA4   294 0001:0005BFB2    295 0001:0005BFBC   297 0001:0005BFC4   298 0001:0005BFC9   300 0001:0005BFD5    292 0001:0005BFD6   301 0001:0005BFD9   303 0001:0005BFEE   305 0001:0005C003    341 0001:0005C00C   342 0001:0005C00D   344 0001:0005C016   345 0001:0005C022    346 0001:0005C02A   348 0001:0005C04E   350 0001:0005C052   351 0001:0005C05B    352 0001:0005C069   354 0001:0005C075   357 0001:0005C07C   358 0001:0005C07E    441 0001:0005C098   443 0001:0005C09A   545 0001:0005C09C   575 0001:0005C0CF    538 0001:0005C0D4   539 0001:0005C0DD   541 0001:0005C0EE Line numbers for JclDebug(JclDebug.pas) segment .text    712 0001:0005C91C   713 0001:0005C91E   717 0001:0005C920   718 0001:0005C922    722 0001:0005C924   723 0001:0005C926   724 0001:0005C929   731 0001:0005C92C    732 0001:0005C933   786 0001:0005C934   787 0001:0005C94D   788 0001:0005C958    789 0001:0005C95B   790 0001:0005C961   791 0001:0005C967   792 0001:0005C987    795 0001:0005C990   796 0001:0005C99A   798 0001:0005C9BE   805 0001:0005C9C4 ...   3684 0001:0005FD38  3686 0001:0005FD41  3687 0001:0005FD4B  3690 0001:0005FD53   3691 0001:0005FD55  4026 0001:0005FD58  4027 0001:0005FD7A  4028 0001:0005FD84   4029 0001:0005FD8E  4030 0001:0005FD98  4031 0001:0005FDA2  4090 0001:0005FE2A   4017 0001:0005FE2C  4018 0001:0005FE35  4019 0001:0005FE46  4020 0001:0005FE57   4022 0001:0005FE68 Line numbers for Unit1(Unit1.pas) segment .text     37 0001:00060054    38 0001:00060067    39 0001:00060098    42 0001:0006009C     43 0001:000600A1    47 0001:000600A4    48 0001:000600A9    56 0001:000600AC     57 0001:000600CB    58 0001:000600D2    59 0001:000600DD    60 0001:000600E8     59 0001:00060120    61 0001:00060123    62 0001:00060140    63 0001:00060173     69 0001:00060190    71 0001:000601C3    65 0001:000601C8    66 0001:000601D1     68 0001:000601D6 Line numbers for Project1(H:\Project1.dpr) segment .text      9 0001:000604C0    10 0001:000604D0    11 0001:000604DC    12 0001:000604F4     13 0001:00060500 Bound resource files e:\programming\delphi7\Lib\Buttons.res e:\programming\delphi7\Lib\ExtDlgs.res e:\programming\delphi7\Lib\Controls.res Unit1.dfm Project1.res Project1.drf Program entry point at 0001:000604C0 Т.е. по сути, map-файл – это просто отладочная информация, выгруженная в текстовый файл. Вот его и используют все готовые решения. Текстовый файл фиксированного формата. Что может быть проще? Читаем его, ищем нужный адрес и смотрим, какой функции, какому классу он принадлежит.  Разумеется, читать (парсить) файл каждый раз - долго и неудобно (да и большой он). Именно поэтому большинство готовых решений при компиляции берут этот файл, выдёргивают из него нужную информацию, сохраняют её в удобном для себя формате и подключают её к exe-файлу. Получается аналог отладочной информации в формате TD32 в exe, только формат отладочной информации будет ваш личный. Кстати, готовые решения при этом часто ещё сжатие применяют. В среднем прирост размера exe файла составляет где-то 30%. JclDebug, например, получает информацию о имени функции по заданному адресу с помощью таких классов:  - TJclDebugInfoMap - получает информацию из map-файла с тем же именем, что и exe-файл.  - TJclDebugInfoBinary - получает информацию из встроенной в exe секции JCLDEBUG или jdbg-файла с тем же именем, что и exe-файл.  - TJclDebugInfoTD32 - получает информацию из встроенной в exe секции TD32.  - TJclDebugInfoSymbols - получает информацию из встроенной в exe секции виндовой отладочной информации - аналог TD32, только решение от Microsoft. Основным вариантом является TJclDebugInfoBinary, а остальные используются как запасные. EurekaLog, во-первых, использует JclDebug для получений той же информации:  - TELDebugInfoMap - получает информацию из map-файла с тем же именем, что и exe-файл.  - TELDebugInfoJedy - получает информацию из встроенной в exe секции JCLDEBUG или jdbg-файла с тем же именем, что и exe-файл.  - TELDebugInfoTD32 - получает информацию из встроенной в exe секции TD32. Плюс добавляет свою информацию - реализация полностью аналогична TJclDebugInfoBinary/TELDebugInfoJedy, только формат не JDBG, а EurekaLog (отдельного класса нет, получение информации лежит леликом внутри GetSourceInfoByAddr). Этот вариант является для неё основным, а остальные используются как запасные. Т.е. как я и говорил - сама идея проста до безобразия (искать строчки в текстовом файле), но чтобы её реализовать самому.... попотеть придётся.

Автор: Avers 13.11.2008, 10:11

Спасибо) большое) Вот. теперь все ясно и понятно...   Как говориться, дело ясное, что дело темное    Попотеть уж точно придется)) Теперь ударюсь в способы работы с exe файлами)) надо подумать, как дополнить его нужной инфой, но при этом не попортить)) Добавлено через 2 минуты и 17 секунд Жаль у меня постов мало, а то бы обязательно плюсик поставил, поэому ограничусь человеческим спасибо. А за столь подробную информацию и нескольких +ов не жаль)))

Автор: CodeMonkey 13.11.2008, 11:25

Цитата(Avers @  13.11.2008,  10:11 ) как дополнить его нужной инфой, но при этом не попортить Проще всего (и обычно так все и поступают) - добавить в exe файл пользовательский тип ресурса (RCData) с уникальным именем. Если я не ошибаюсь, то JCL добавляет секцию с именем JCLDEBUG, а EurekaLog - с ELDATA.

Автор: CodeMonkey 13.11.2008, 17:00

P.S. Цитата(Avers @  11.11.2008,  11:08 ) Смотрю как работает эврика лог - загляденье Кстати, в текущей версии EL есть как минимум три серьёзные проблемы (Fabio пообещался исправить в следующей версии): 1. Используется RAW-метод трассировки. Это значит, что стек вызовов может содержать ложные элементы. По-хорошему нужна возможность использовать frame-based трассировку (на выбор, разумеется). 2. В стеке вызовов не показывается запись, если для неё нет отладочной информации. Видимо, подразумевалось, что это сгладит пункт 1. В реальности это сделало некоторые логи очень тяжело читаемыми. По-хорошему нужно показывать просто адрес без доп. информации. 3. Из map-файлов не забираются записи из модулей, для которых нет отладочной информации (в этом случае в map файле нет информации о строках, но по-крайней мере там есть список функций - вот его бы нужно брать, как это делает JCL). Например, для стандартных модулей (SysUtils и т.п.), если отключена опция "Use Debug DCUs". Это приводит проблемам в совокупности с пунктом 2.  Лично для себя я вписываю в EL трассировку из JCL и модифицирую парсер. Ну пока это не поправят.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)