Разбираемся с RTTI и механизмом safe call в Delphi для безопасного вызова методов интерфейса

Delphi , Компоненты и Классы , RTTI

Вопрос, поднятый пользователем, связан с использованием механизма RTTI (Runtime Type Information) для вызова методов интерфейса с использованием safe call в среде разработки Delphi. Проблема заключается в том, что при использовании safe call возникает исключение, в то время как при использовании обычной процедуры все работает корректно.

Контекст проблемы

Исходный код программы, вызывающей метод через RTTI, представлен в гайде на GitHub: https://gist.github.com/real-mielofon/5002732. В нем используется следующий код вызова метода:

RttiValue := RttiMethod.Invoke(RttiInstance, [10]);

Также приведен простой модуль с интерфейсом:

unit Unit163;

interface

type
  {$M+}
  ISafeIntf = interface
    function TestMethod(aI: integer): integer; safecall;
  end;
{$M-}
type
  TSafeClass = class(TInterfacedObject, ISafeIntf)
  public
    function TestMethod(aI: integer): integer; safecall;
  end;

implementation

function TSafeClass.TestMethod(aI: integer): integer;
begin
  result := aI+1; // Здесь возникает исключение !!
end;

end.

Исключение возникает на строке:

result := aI+1;

При использовании обычной процедуры вместо safe call проблема не наблюдается.

Анализ проблемы

Пользователь предполагает, что в RTTI-юнитете есть ошибка, и предложено решение использовать stdcall с возвращаемым значением HRESULT. Однако, пользователь указывает, что удаление модификатора safecall из исходного кода является единственным доступным на данный момент решением, и спрашивает, существует ли способ сделать RTTI совместимым с safe call.

Подтвержденный ответ

Проблема, скорее всего, не в самой концепции safe call, а в реализации вызова метода через RTTI. Пользователь также упоминает, что изменение количества параметров вызывает исключение по причине несоответствия количества параметров. Это указывает на то, что RTTI ожидает возвращаемое значение HRESULT для методов, использующих safe call, и дополнительный параметр для его приема.

Рекомендации

1. Попробуйте изменить объявление метода в интерфейсе, чтобы он возвращал HRESULT и использовал stdcall. Это позволит RTTI корректно обрабатывать вызов метода.
2. При вызове метода через RTTI передайте два параметра: значение для вызова и переменную для приема возвращаемого значения HRESULT.

Пример кода с измененными объявлениями:

type
  {$M+}
  ISafeIntf = interface
    function TestMethod(aI: Integer): HRESULT; stdcall;
  end;
{$M-}

И пример вызова метода через RTTI:

var
  HResultValue: HRESULT;
begin
  HResultValue := RttiMethod.Invoke(RttiInstance, [@aI, SizeOf(Int32), @HResultValue]);
end;

Заключение

Проблема вызывается несоответствием между ожидаемыми RTTI и фактическим использованием safe call. Предложенные изменения позволят синхронизировать ожидания и реализацию, что должно решить проблему с безопасным вызовом методов интерфейса через RTTI.

Создано по материалам из источника по ссылке.

Проблема связана с использованием механизма RTTI и safe call в Delphi для безопасного вызова методов интерфейса, где возникает исключение, требующее настройки параметров вызова метода в соответствии с ожиданиями RTTI.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: RTTI ::