Проверка типов объектов в Delphi с использованием оператора "is" и динамических библиотек Объяснение в ответе не требуется, так как запрос подразумевает только предоставление названия статьи согласно инструкции.

Delphi , Файловая система , DLL и PlugIns

Проверка типов объектов в Delphi с использованием оператора "is" и динамических библиотек

Вопрос разработчиков, работающих с динамическими библиотеками в среде Delphi, часто связан с проблемами при проверке типов объектов. Одним из таких вопросов является некорректное поведение оператора is при передаче объектов из разных модулей. В данной статье мы рассмотрим, почему оператор is может возвращать неожиданный результат и предложим решение этой проблемы.

Проблема с оператором is при работе с DLL

Разработчики, использующие FastMM4 и работающие с комплекными классами, передаваемыми через параметры DLL, могут столкнуться с ситуацией, когда оператор is возвращает false, даже если ожидается, что объекты принадлежат к проверяемым классам. Пример кода, представленный в контексте вопроса, демонстрирует, что при передаче объекта TForm в функцию Complex, определенную в DLL, оператор is не распознает его как TForm или TCustomFrame.

library Dll;
uses
     FastMM4,
     System.SysUtils,
     System.Classes,
     Vcl.Dialogs,
     Vcl.Forms;
{$R *.res}
procedure Complex(L : TObject);stdcall;
begin
     if L is TForm then
        ShowMessage('Ok')
     else
        ShowMessage('Pas ok') ;

     if L is TCustomFrame then
         ShowMessage('Ok')
     else
         ShowMessage('Pas ok')
end;
exports
  Complex;
begin
end.

Вызов функции Complex из основной программы выглядит следующим образом:

procedure TffsIsOperator.Button2Click(Sender: TObject);
var
     MaDLL : THandle;
     Proc  : procedure (l : TObject);
begin
   try
      MaDLL := LoadLibrary(PChar('Dll.dll'));
      @Proc := GetProcAddress(MaDLL, 'Complex');
      Proc(self);
   finally
      FreeLibrary(MaDLL);
   end;
end;

Причины проблемы

Основная причина, по которой оператор is возвращает false, заключается в том, что в процессе, где выполняется основная программа, и в DLL, используются разные версии классов VCL. Это означает, что TForm из основной программы не является тем же классом, что и TForm в DLL. Таким образом, проверка типов с помощью оператора is не может быть выполнена корректно.

Подтвержденное решение проблемы

Чтобы решить проблему, необходимо убедиться, что обе части приложения используют одинаковые версии VCL. Это достигается с помощью использования runtime packages, которые позволяют объединить VCL в один экземпляр в процессе.

Если использование runtime packages не представляется возможным, и необходимо продолжать работу с DLL, следует отказаться от передачи объектов Delphi через границу DLL. Вместо этого рекомендуется использовать простые типы данных, такие как целые числа, вещественные числа, символьные типы, массивы (но не динамические), записи, указатели на такие типы и интерфейсы.

Альтернативные подходы

В качестве альтернативы можно рассмотреть следующие подходы:

• Передача идентификаторов типов вместо самих объектов.
• Использование сериализации для передачи данных между модулями.
• Разработка протокола обмена данными, который не зависит от конкретных классов VCL.

Заключение

В данной статье мы рассмотрели проблему проверки типов объектов с использованием оператора is в среде Delphi при работе с динамическими библиотеками. Мы выяснили, что причина ошибки заключается в различии версий VCL в основной программе и в DLL, и предложили использовать runtime packages для решения этой проблемы. В случае невозможности использования runtime packages, мы рекомендовали отказаться от передачи объектов Delphi через границу DLL и использовать простые типы данных.

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

Вопрос связан с проблемами проверки типов объектов в среде Delphi при работе с динамическими библиотеками и предложенными решениями.

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

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

:: Главная :: DLL и PlugIns ::