Первый COM-сервер

Delphi , Технологии , COM и DCOM

unit DllClass;

interface

uses
  ActiveX, ComObj;

const
  CLSID_TDllNumber: TGUID =
  '{84960F62-1D49-11D1-854E-444553540000}';

type
  INumber = interface
    ['{ECD5DAE3-1D37-11D1-854E-444553540000}']
    function GetValue: Integer; stdcall;
    procedure SetValue(New: Integer); stdcall;
    procedure Increase; stdcall;
    function RefCount: Integer; stdcall;
  end;

type
  TDllNumber = class(TComObject, INumber)
  private
    Value: Integer;
  public
    function GetValue: Integer; virtual; stdcall;
    procedure SetValue(New: Integer); virtual; stdcall;
    procedure Increase; virtual; stdcall;
    function RefCount: Integer; stdcall;
    procedure Initialize; override;
    destructor Destroy; override;
  end;

implementation

uses
  Windows, ComServ, SysUtils;

procedure TDllNumber.Initialize;
begin
  inherited;
  Value := 10;
end;

destructor TDllNumber.Destroy;
begin
  inherited;
  MessageBox(0,
    PChar('Object ' + IntToStr(Value) + ' Destroyed'),
    'TDLLNumber', mb_OK); // API call
end;

function TDllNumber.GetValue: Integer;
begin
  Result := Value;
end;

procedure TDllNumber.SetValue(New: Integer);
begin
  Value := New;
end;

procedure TDllNumber.Increase;
begin
  Inc(Value);
end;

function TDllNumber.RefCount: Integer;
begin
  Result := inherited RefCount;
end;

initialization
  TComObjectFactory.Create(
    ComServer, TDllNumber, CLSID_TDllNumber,
    'Md3.FirstCom', 'Md3 First COM Server',
    ciMultiInstance);
end.

Это проект Delphi, который реализует простой сервер COM с помощью единиц ActiveX и ComObj. Сервер предоставляет интерфейс INumber, который имеет четыре метода: GetValue, SetValue, Increase и RefCount.

Вот разбивка кода:

1. Единица DllClass определяет интерфейс INumber и класс реализации TDllNumber.
2. Интерфейс INumber имеет четыре метода:
   • GetValue: возвращает текущее значение объекта как целое число.
   • SetValue: устанавливает значение объекта в новое целое значение.
   • Increase: увеличивает значение объекта на 1.
   • RefCount: возвращает счетчик ссылок объекта (т.е., количество созданных объектов).
3. Класс TDllNumber реализует интерфейс INumber и имеет четыре метода:
   • Initialize: инициализирует объект с 기본ным значением 10.
   • Destroy: уничтожает объект и отображает сообщение об ошибке с текущим значением.
   • GetValue: возвращает текущее значение объекта.
   • SetValue: устанавливает значение объекта в новое целое значение.
   • Increase: увеличивает значение объекта на 1.
   • RefCount: возвращает счетчик ссылок объекта.
4. Секция initialization регистрирует сервер COM с помощью классового фабрики, используя GUID CLSID_TDllNumber.

Код хорошо структурирован и соблюдает лучшие практики для реализации сервера COM в Delphi. Вот несколько предложений по улучшению:

1. Рассмотрите добавление дополнительной обработки ошибок в методах, особенно в методе SetValue, который может потенциально вызвать проблемы при вводе недопустимого значения.
2. Можете добавить дополнительные механизмы журналирования или отладки для помощи в отслеживании поведения сервера COM.
3. Метод Increase увеличивает значение на 1, но не ясно, какой должен быть максимальный предел. Вам может потребоваться добавление проверки переполнения или реализации более сложной механики увеличения.
4. Метод RefCount просто возвращает наследуемый счетчик ссылок. Вам может потребоваться реализация custom reference counting, если вам нужно иметь больше контроля над жизненным циклом объекта.

В целом, это хороший старт для создания простого сервера COM в Delphi. С дополнительной проверкой и отладкой он может стать надежным и reliabel компонентом для вашего приложения.

В статье описан пример создания первого COM-сервера на языке Pascal, который реализует интерфейс INumber и предоставляет функции GetValue, SetValue, Increase и RefCount для управления целочисленным значением.

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

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

:: Главная :: COM и DCOM ::