Проблема определения констант GUID в activex.pp и способы ее решения в Delphi и Pascal.

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

Проблема определения констант GUID в activex.pp и способы ее решения в Delphi и Pascal

В процессе разработки с использованием COM-технологий часто возникает необходимость работы с GUID (Globally Unique Identifiers). В частности, в библиотеке activex.pp (часть FPC/Lazarus) определено множество GUID, представляющих различные интерфейсы и классы COM.

Проблема:

Изначально, в activex.pp GUID определены как обычные переменные, а не как константы. Это означает, что в коде можно случайно изменить значение GUID, что приведет к непредсказуемым ошибкам и нарушению работы COM-объектов.

Пример:

GUID_NULL.D1 := 1; // Нежелательное изменение GUID_NULL
IID_IEnumConnections.D1 := 1; // Нежелательное изменение IID_IEnumConnections

Изменение известных GUID может привести к серьезным проблемам, так как COM полагается на уникальность этих идентификаторов для правильной идентификации интерфейсов и классов.

Решение (предложенное в обсуждении):

Основное решение, предложенное в обсуждении, заключается в использовании директивы компилятора {$J-} (или {$WRITEABLECONST OFF}) для объявления GUID как неизменяемых констант. Эта директива отключает возможность записи в типизированные константы.

Реализация:

Для защиты GUID в activex.pp предлагается обернуть определения GUID в блоки {$PUSH}{$J-} и {$POP}. {$PUSH} сохраняет текущее состояние директивы $J, а {$POP} восстанавливает его после определения GUID. Это позволяет избежать нежелательного влияния на остальной код.

{$PUSH}{$J-}
const
  GUID_NULL  : TGUID =  '{00000000-0000-0000-0000-000000000000}';
  IID_IPrint : TGUID = '{B722BCC9-4E68-101B-A2BC-00AA00404770}';
  // ... другие GUID
{$POP}

При попытке изменить значение такой константы компилятор выдаст ошибку: "Can't assign values to const variable."

Пример патча:

В обсуждении был предложен следующий патч для activex.pp:

--- a/packages/winunits-base/src/activex.pp
+++ b/packages/winunits-base/src/activex.pp
@@ -98,7 +98,7 @@
    TOleColor           = OLE_COLOR;
    POleColor           = LPOle_Color;
    HHandle             = UINT_PTR;
-
+{$PUSH}{$WRITABLECONST OFF}
 CONST
    GUID_NULL  : TGUID =  '{00000000-0000-0000-0000-000000000000}';
    IID_IPrint : TGUID = '{B722BCC9-4E68-101B-A2BC-00AA00404770}';
@@ -186,7 +186,7 @@
    IID_IOleCache2 : TGUID = '{00000128-0000-0000-C000-000000000046}';
    IID_IOleCacheControl : TGUID = '{00000129-0000-0000-C000-000000000046}';
    IID_IOleItemContainer : TGUID = '{0000011C-0000-0000-C000-000000000046}';
-
+{$POP}
       // bit flags for IExternalConnection
 CONST

Этот патч оборачивает определения GUID в activex.pp директивами {$PUSH}{$WRITEABLECONST OFF} и {$POP}, предотвращая случайное изменение их значений.

Альтернативные решения:

Хотя предложенное решение эффективно, можно рассмотреть и другие подходы:

• Использование read-only свойств (только для Delphi): В Delphi можно использовать read-only свойства для инкапсуляции GUID. Это позволяет контролировать доступ к данным и предотвратить их изменение. Однако, это потребует изменения структуры TGUID и добавления соответствующих свойств.

   type
  TMyGUID = record
  private
  FD1: Cardinal;
  FD2: Word;
  FD3: Word;
  FD4: array[0..7] of Byte;
  
  function GetD1: Cardinal;
  
  public
  property D1: Cardinal read GetD1;
  end;

  function TMyGUID.GetD1: Cardinal;
  begin
  Result := FD1;
  end;

  const
  MyGUID: TMyGUID = (FD1: $...; FD2: $...; FD3: $...; FD4: ($..., $..., $..., $..., $..., $..., $..., $...));

  В этом примере поле D1 доступно только для чтения, что предотвращает его изменение.

• Создание оберточного типа: Можно создать оберточный тип для TGUID, который будет содержать только методы для сравнения GUID, но не для их изменения.

Важные замечания:

• Важно помнить, что директива {$J+} (или {$WRITEABLECONST ON}) разрешает запись в типизированные константы. Поэтому, если вы используете эту директиву в своем проекте, необходимо быть особенно внимательным при работе с GUID.
• В FPC/Lazarus директива {$J+} является значением по умолчанию. В Delphi, начиная с Delphi 6, значением по умолчанию является {$J-}. Это необходимо учитывать при переносе кода между этими средами разработки.
• Предложенное решение с использованием {$PUSH}{$J-} и {$POP} является наиболее безопасным и рекомендуемым способом защиты GUID от случайного изменения в activex.pp.

В заключение, защита констант GUID в activex.pp является важным шагом для обеспечения стабильности и надежности COM-приложений. Предложенное решение с использованием директив компилятора {$J-} и {$J+} является эффективным и простым в реализации.

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

Контекст описывает проблему случайного изменения GUID в библиотеке `activex.pp` и предлагает решение с использованием директив компилятора для объявления GUID как неизменяемых констант в Delphi и Pascal.

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

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

:: Главная :: ActiveX ::