Решение проблем с инициализацией COM-сервера в многопоточном режиме в Delphi

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

При разработке приложений на Delphi иногда возникают сложности с инициализацией COM-сервера в многопоточной среде (MTA - Multithreaded Apartment). Вопрос, представленный в контексте, касается именно такой проблемы: разработчик столкнулся с ошибкой при закрытии приложения, в котором COM-сервер инициализируется в MTA. Ошибка не возникает, если сервер инициализируется в STA (Single-threaded Apartment), но в этом случае клиенты не могут обнаружить несколько экземпляров сервера, работающих одновременно.

Проблема

Рассмотрим два сценария инициализации COM-сервера:

Сценарий 1: Компонент инициализируется напрямую в MTA, но при закрытии приложения возникает ошибка runtime error 216.

initialization
begin
  CoUninitialize; // Эти вызовы некорректны и могут привести к проблемам
  CoUninitialize;
  CoUninitialize; // Необходимо вызвать CoInitializeEx для инициализации MTA
  OLECHECK(ComObj.CoInitializeEx(nil, COINIT_MULTITHREADED));
  TAutoObjectFactory.Create(ComServer, MyServer,
    Class_MyServer, ciMultiInstance, tmFree);
end;

Сценарий 2: Инициализация сервера в отдельном потоке, который создается в процессе инициализации. При закрытии приложения ошибок нет, но клиенты не обнаруживают первый экземпляр сервера и активируют другой.

procedure TDCOMThread.Execute;
begin
  OleCheck(ComObj.CoInitializeEx(nil, COINIT_MULTITHREADED));
  TAutoObjectFactory.Create(ComServer, MyServer,
    Class_MyServer, ciMultiInstance, tmFree);
  // ... код цикла обработки сообщений ...
  CoUninitialize;
end;

Подход к решению

В контексте указано, что правильным решением будет вызов RegisterClassObject для фабрики, созданной в новом потоке. Это необходимо для регистрации сервера в системе COM, чтобы клиенты могли найти его.

Шаги для корректной инициализации:

1. Инициализируйте COM в многопоточном режиме, вызвав CoInitializeEx с параметром COINIT_MULTITHREADED.
2. Создайте экземпляр фабрики COM-объектов.
3. Вызовите RegisterClassObject для фабрики, чтобы зарегистрировать сервер в системе COM. Это необходимо сделать вручную, если фабрика создается в отдельном потоке.

procedure TDCOMThread.Execute;
begin
  OleCheck(ComObj.CoInitializeEx(nil, COINIT_MULTITHREADED));
  TAutoObjectFactory.Create(ComServer, MyServer,
    Class_MyServer, ciMultiInstance, tmFree);
  // Регистрация фабрики в системе COM
  OleCheck(TAutoObjectFactory.RegisterClassObject(ComServer, dwRegister));
  // ... код цикла обработки сообщений ...
  OleCheck(ComObj.CoRevokeClassObject(dwRegister, 0)); // Отзыв регистрации при необходимости
  CoUninitialize;
end;

Важно: Не забудьте вызвать CoRevokeClassObject для отзыва регистрации фабрики, когда она больше не нужна, чтобы освободить ресурсы.

Заключение

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

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

Проблема инициализации COM-сервера в многопоточном режиме в Delphi связана с необходимостью корректной регистрации сервера в системе COM для обеспечения его обнаружения клиентскими приложениями.

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

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

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