Я так понял из приведенного примера что в головном модуле

обрабатывается исключение с выбором по классу. Ну тут надо понимать, что класс в DLL и exe с одного исходника как бы разные и is там не работает. У меня в коде исключения используются именно в качестве индикатора о случившемся сбое и перехватываются на уровне плагина. Тут надо конечно уточнить какие исключения ловятся: свои или RTL ?

Я не могу перехватывать исключения в плагине. В целом exe и dll это один проект, разбитый на модули для удобства разработки. Если мне не удастся победить исключения, то придётся в один exe всё вкомпиливать. Но этот путь я считаю плохим, т. к. у нас есть другой более крупный проект и в нём в один exe весь код нельзя включать. Может получится как-то компилятор пропатчить, чтобы выполнение кода попадало в on E: Exception.

Если возможно пример конкретного кода и в exe и в dll

должно работать, если RTL общий

Да у меня вроде до вызывающего модуля доходит сообщение об исключении.

Пример: есть интерфейсный модуль, в котором куча интерфейсов к кучей методов. Объекты для этих интерфейсов создаются к примеру в exe, а юзаются из dll. Любой из методов может выкинуть исключение и мне нужно, чтобы имеющиеся обработчики их ловили.

Попробуйте safecall для интерфейсных методов

Стикер

Под виндой есть Delphi. Поэтому не интересно.

Передавать Exception через границу DLL сопряжено с некоторыми трудностями, т. к. тот кто, перехватил exception может не понять формат того, кто его вызвал. Для этой задачи я использую safecall и IErrorInfo и SetErrorInfo(0, Winapi.ActiveX.IErrorInfo(errInfo)). Тот, кто генерирует exception внутри DLL заполняет этот интерфейс. В основной программе перехватываю exception и проверяю наличие IErrorInfo. Это работает для windows, но можно эмулировать для линукса. У гансмокера есть статьи на эту тему.

Я вроде нашёл решение проблемы. В некоторых местах вместо "on E: Exception" сделал "with GetEObjectDesc do", остальная обработка почти не меняется. TExceptionMessage = record Message: string; end; TExceptionDesc = record ExceptionClassName: string; ExceptionObj: TObject; // Оригинальный объект исключения E: TExceptionMessage; // Текст исключения (через E.Message) ExceptionClass: ExceptClass; end; function GetEObjectDesc: TExceptionDesc; var p : TObject; begin p := TObject(AcquireExceptionObject); Result.ExceptionClassName := p.ClassName; if p is Exception then Result.E.Message:=Exception(p).Message else if p is TObject then Result.E.Message:={$IFDEF FPC}p.ToString{$ELSE}p.ClassName{$ENDIF} else if ObjectIsException(p) then // Если объект исключения создан в чужом runtime Result.E.Message:=Exception(p).Message else Result.E.Message:='unknown exception object'; if p is Exception then Result.ExceptionClass := ExceptClass(p.ClassType) else begin // Заменяем на аналогичный класс, который известен в текущем runtime Result.ExceptionClass := Exception; end; Result.ExceptionObj := p; ReleaseExceptionObject; end; Объект исключения удаляется автоматически, корректно (несмотря на то, что создан в другом RTL)

Ну не знать... Я не отдавал. hResult + SetLastError. Для заморочек - IError. Но для начала - Assert + AssertEx(велосипед). Сервера падать не должны.

Стикер