### Переход с VCL на Firemonkey: решение проблемы неверного приведения типов

Delphi , Технологии , OLE

Переход с использования VCL на Firemonkey (FMX) в среде разработки Delphi может быть связан с рядом особенностей, которые необходимо учитывать при переносе кода. В данном случае, пользователь столкнулся с ошибкой неверного приведения типов при попытке переноса кода, использующего ActiveX и VCL.OleAuto, на FMX-friendly версию.

Оригинальный заголовок:

XE4 Firemonkey OLE typecast error (fetching win MAC Address)

Описание проблемы (вопрос):

Пользователь использует Delphi XE4 и сталкивается с ошибкой при попытке компиляции и запуска фрагмента кода, который ранее работал в VCL (используя ActiveX, VCL.OleAuto), в версии, совместимой с Firemonkey. Ошибка указывает на неверное приведение типов. Вопрос заключается в том, что именно отличается между VCL и FMX, что вызывает данную проблему.

Пример кода:

uses
{$IFDEF MSWINDOWS}
  Winapi.Windows,
  System.Win.ComObj,
  Winapi.ole2,
{$ENDIF}
SysUtils;

// ... (функция GetFirstMacAddress)

Альтернативный ответ и Подтвержденный ответ:

Проблема не связана с Firemonkey, а заключается в неправильном использовании OLE-интерфейсов. В исходном коде использованы интерфейсы из единицы Ole2, которые некорректно реализованы. В частности, IEnumVARIANT из Ole2 не имеет GUID, из-за чего не может быть выполнено приведение типов. Также, в исходном коде отсутствует единица Variants, которая необходима для использования функции VarIsNull.

Исправленный вариант кода использует единицу ActiveX вместо Ole2, что позволяет корректно работать с OLE-интерфейсами:

{$APPTYPE CONSOLE}
uses
  System.Variants,
  Winapi.ActiveX,
  System.Win.ComObj;
// ... (функция GetFirstMacAddress)

Статья: Переход с VCL на Firemonkey: решение проблемы неверного приведения типов

При переходе с VCL на Firemonkey важно учитывать различия в подходах к работе с OLE-объектами. В VCL и FMX используются разные наборы компонентов и единиц, что может привести к ошибкам приведения типов, если не учитывать эти различия.

Шаг 1: Проверка используемых единиц

Убедитесь, что в вашем проекте используются актуальные и совместимые единицы для работы с OLE-объектами. В случае с IEnumVARIANT лучше использовать определение из единицы ActiveX, а не из Ole2.

Шаг 2: Инициализация COM

Перед использованием OLE-объектов необходимо инициализировать COM с помощью функции CoInitialize.

Шаг 3: Обработка OLE-объектов

При работе с OLE-объектами важно корректно обрабатывать возвращаемые значения и использовать функции, такие как VarIsNull, для проверки на NULL.

Альтернативный подход к получению MAC-адреса

Вместо использования WMI для получения MAC-адреса можно использовать функцию SendARP из библиотеки Iphlpapi.dll. Это более легковесный и прямой способ получения MAC-адреса сетевого интерфейса.

{$APPTYPE CONSOLE}
uses
  System.SysUtils,
  Winapi.Windows,
  Winapi.WinSock;
// ... (функции для инициализации WinSock, преобразования IP в ULONG и получения MAC-адреса)

Заключение

Переход на Firemonkey требует внимания к деталям и понимания различий между VCL и FMX. Следуя рекомендациям и используя правильные единицы и функции, можно успешно переносить код и избегать ошибок, связанных с приведением типов.

Эта статья предназначена для разработчиков, которые столкнулись с подобными проблемами при переходе на Firemonkey и ищут решения для корректной работы с OLE-объектами в Delphi XE4 и более поздних версиях.

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

Переход с использования VCL на Firemonkey (FMX) в среде разработки Delphi требует особого внимания к деталям, особенно при работе с OLE-объектами, что может привести к ошибкам приведения типов, если не учитывать различия в наборах компонентов и единицах

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

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

:: Главная :: OLE ::