Понимание и работа с OleVariant в Inno Setup: совмещение возможностей Delphi и установщика

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

Вопрос, поднятый в данном запросе, касается проблемы совместимости кода, написанного для Delphi, с окружением Inno Setup. Inno Setup - это бесплатный и портативный установщик для Windows, который использует скриптовый язык, похожий на Pascal. Однако, несмотря на схожесть, некоторые особенности языка и доступные библиотеки могут отличаться от тех, что доступны в Delphi.

Проблема

Пользователь столкнулся с проблемой, что его функция, предназначенная для получения серийных номеров BIOS, написанная на Object Pascal и работающая в среде Delphi, не распознает объявления переменных в контексте Inno Setup. Это связано с использованием типов OleVariant и IEnumVariant, которые не поддерживаются Inno Setup так же, как в Delphi.

Контекст

В приведенном коде используются типы OleVariant и IEnumVariant для работы с COM-объектами в Delphi. В частности, функция GetWMIstring предназначена для получения строки из WMI (Windows Management Instrumentation), что является стандартным способом получения информации о системе в Delphi.

var
  FSWbemLocator : OleVariant;
  FWMIService   : OleVariant;

function GetWMIstring(const WMIClass, WMIProperty:string): string;
var
  FWbemObjectSet: OleVariant;
  FWbemObject   : OleVariant;
  oEnum         : IEnumVariant;
  iValue        : LongWord;
begin
  // ...
end;

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

В комментариях к коду предложено использовать тип Variant вместо OleVariant и использовать свойство Count объекта FWbemObjectSet для перебора элементов в цикле, начиная с Windows Vista. Это изменение обусловлено тем, что Inno Setup не поддерживает OleVariant и IEnumVariant так, как это реализовано в Delphi.

Альтернативный ответ

Альтернативный ответ заключается в изменении подхода к работе с COM-объектами, предполагая использование типа Variant для работы с переменными, которые могут содержать различные типы данных, и использование свойства Count для перебора элементов набора объектов.

var
  FWMIService   : Variant; // Используем Variant вместо OleVariant
  // ...

function GetWMIstring(const WMIClass, WMIProperty:string): string;
var
  FWbemObjectSet: Variant;
  FWbemObject   : Variant;
  iValue        : LongWord;
begin
  // ...
  FWbemObjectSet:= FWMIService.ExecQuery(Format('Select %s from %s',[WMIProperty, WMIClass]),'WQL',wbemFlagForwardOnly);
  SetLength(FWbemObjectSet, FWbemService.ExecNotificationQuery('WQL', 'SELECT * FROM __events WHERE type=''ObjectChangeEvent''', '', wbemFlagForwardOnly + wbemFlagWaitForever));
  for I := 0 to FWbemObjectSet.Count - 1 do
    FWbemObject := FWbemObjectSet[I];
    if not VarIsNull(FWbemObject.Properties_.Item(WMIProperty).Value) then
      Result:=FWbemObject.Properties_.Item(WMIProperty).Value;
end;

Выводы

При переносе кода из Delphi в Inno Setup следует учитывать различия в доступных типах данных и библиотеках. В частности, использование Variant вместо OleVariant может решить проблему совместимости. Также, для перебора элементов набора объектов следует использовать цикл с учетом свойства Count.

Заключение

При написании установщиков с использованием Inno Setup и переносе кода из Delphi важно учитывать специфику Inno Setup и корректировать код в соответствии с доступными типами данных и библиотеками. Это позволит обеспечить корректную работу установщика на целевых системах.

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

Вопрос связан с необходимостью адаптации кода, написанного на Object Pascal для Delphi, для работы в среде Inno Setup, с учетом различий в поддержке типов OleVariant и IEnumVariant.

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

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

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