Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / JCL и отладка dll-библиотек / 3 сообщений из 3, страница 1 из 1
16.09.2003, 12:48
    #32266281
aag
aag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JCL и отладка dll-библиотек
Кто-нибудь использует JCL? Там есть замечательные возможности для отладки. Но непонятно, как применить их в dll-ке. Проблема в том, что OnException - это procedure of object; а dll-ке никакого object-а может и не быть. Конечно можно специально для этого завести класс, но это как-то не слишком изЯчно. Переписать ExceptionHandler? Кажется, это чересчур...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.09.2003, 03:48
    #32267136
StarWind
StarWind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JCL и отладка dll-библиотек
мда.....
всю жизни использовал объекты в dll....все перкрасно работало.... или тебе передать нужно в библиотеку? Тогда теоретически должен сработать следующий код

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
var Method :^TMethod;
begin
...
 new(Method); // выделяем память под структуру
 Method.Code:=@ProcName; // присваиваем адрес процедуры
 Method.Data:=nil; // данных у нас нет (хотя можно передать)
 ProcOfObj:=Method; // присваиваем процедуре объекта
...
end;


Хотя если это все происходит внутри dll то может стоит там объявить класс?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.09.2003, 12:32
    #32267582
aag
aag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JCL и отладка dll-библиотек
Я попробовал немного по-другому, но ничего не вышло.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
type
  TAagExceptionAdapter = class
  public
    procedure ProcessDllException(Sender :TObject; E :Exception);
  end;

var
  ExceptionAdapter :TAagExceptionAdapter;

procedure TAagExceptionAdapter.ProcessDllException(Sender :TObject; E :Exception);
begin
// ...
end;

...
  ExceptionAdapter := TAagExceptionAdapter.Create;
  Application.OnException := ExceptionAdapter.ProcessDllException;
...

Увы, ProcessDllException не вызывается вообще :( Складывается впечатление, что у dll-ек вообще не вызваются никакие events...
Вопрос остается открытым...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / JCL и отладка dll-библиотек / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]