Я создал с помощью Lazarus исполняемый файл (EXE) и библиотеку

Question

Я создал с помощью Lazarus исполняемый файл (EXE) и библиотеку

DLL. В DLL добавил процедуру со следующим содержимым:

procedure LazTestExceptions;
begin
raise Exception.Create('LazTestExceptions');
end;

Из EXE я произвожу вызов этой процедуры:
Log('before');
try
LazTestExceptions();
except
on E: Exception do
begin
Log('Exception=' + E.Message);
end;
end;
Log('after');

Исключение в DLL возникает (отладчик лазаруса на нём останавливается), однако в EXE перехват исключения не выполняется. Также не пишется в лог строка "after". Что нужно настроить в параметрах проекта, чтобы срабатывал перехват исключения, возникающего в DLL?

Или для лазаруса никак?

#lazarus #programming #russian

0

04.04.2024

6 ответов

24 просмотра

Дмитрий Логинов Автор вопроса

Разумеется, и в DLL и в EXE навешен одинаковый менеджер памяти. Реальная DLL работает, полностью отлажена, с передачей строк, динамических массивов нет никаких проблем. Если из DLL происходит вызов функции, реализованной в EXE и там возникает Exceltion, то DLL-ка также его не перехватывает. Причем блоки TRY..FINALLY отрабатывают корректно.

0

1 месяц назад

Сергей

Дмитрий Логинов
Разумеется, и в DLL и в EXE навешен одинаковый мен...

Стикер

0

1 месяц назад

Дмитрий Логинов Автор вопроса

Откуда я знаю? Как это проверить? Оба модуля компилируются одним лазарем, с одинаковыми параметрами.

0

1 месяц назад

Сергей

Дмитрий Логинов
Разумеется, и в DLL и в EXE навешен одинаковый мен...

Стикер

0

1 месяц назад

Дмитрий Логинов Автор вопроса

Я это точно проверил (без одинакового менеджера передача строк между DLL и EXE не работает). Кстати, если я вместо except on E: Exception do begin Log('Exception=' + E.Message); end; end; Указываю except Log('Exception'); end; То перехват в этом случае работает. Т.е. проблема в конструкции "on E: Exception do". Тупо не попадаем в эту ветку. Осталось разобраться, как сделать, чтобы попадало.

0

1 месяц назад

Евгений Марьясов · Accepted Answer

Евгений Марьясов

Возможно ошибка возникает при выполнении "Log('Exception=' + E.Message)". Это можно узнать завернув её в дополнительный Try..Except

0

1 месяц назад

169 похожих чатов

Я создал с помощью Lazarus исполняемый файл (EXE) и библиотеку

6 ответов

Похожие вопросы