исключение, определяемое приложением (код 0x0eedfade) после фактического исключения

Question

У меня есть часть устаревшего кода, написанного в Delphi, задолго до того, как я объединил компанию, и поведение моей IDE заставляет меня сомневаться в моих собственных навыках.

После загрузки DLL и закрепляющих функций OpenDB, GetError и GetErrorStr из DLL, этот код вызывается:

If @OpenDB <> nil then 
begin 
    DB_num := OpenDB((PAnsiChar(file))); 
    if DB_num = -1 then 
    begin 
    err := GetError; 
    ErrorString := GetErrorString(err); 
    raise Exception.Create(ErrorString); 
    Exit; 
    end 
end else 
    Exit; 

OpenDB возвращает -1 и GetErrorString возвращает сообщение об ошибке и исключение. Нет большого количества, существуют неисправные базы данных, и ошибки всегда могут произойти. Что меня заставляет, так это то, что после исключения возникает сообщение «... исключение приложения (код 0x0eedfade) в ...» всплывает. После этого я получаю нарушения доступа.

Answer 1

Сообщение об ошибке означает, что вы поднимаете исключение Delphi через границы модуля в кусок кода, который не знает, как обрабатывать исключения Delphi. 0x0EEDFADE - это значение, которое оператор Delphi raise переходит к параметру dwExceptionCode функции Win32 RaiseException(). Только RTL Delphi и C++ Builder знают, как обращаться с такими исключениями. Вы никогда не должны создавать исключение через границы модулей, потому что один модуль не знает, может ли его использовать другой модуль. Различные модули могут быть написаны на разных языках/фреймах.