Разрешение Замораживания Приложения Delphi при Создании COM-Объекта с Использованием CoCreateInstance

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

При разработке сервисного приложения с использованием COM-объекта в Delphi может возникнуть проблема, когда при попытке создать COM-объект через CoCreateInstance приложение замораживает на 120 секунд и в итоге возвращает ошибку CO_E_SERVER_EXEC_FAILURE. В данной статье мы рассмотрим, как решить данную проблему на примере сервиса, использующего OPC Data Access 2.05 сервера, и общую ситуацию с COM-объектами в сервисах Delphi.

Описание Проблемы

Разработчик столкнулся с проблемой при попытке создания экземпляра COM-объекта TTestOPCServerDA2 через сервисное приложение. После установки сервиса и регистрации COM-объекта в системе, при вызове CoCreateInstance сервис запускается, но создание объекта не происходит, и вызывающее приложение замораживает на 120 секунд, после чего возвращается ошибка CO_E_SERVER_EXEC_FAILURE. Проблема сохраняется даже после упрощения проекта и удаления OPC.

Решение Проблемы

После проведения ряда тестов было обнаружено, что проблема решается простым изменением одной строки кода в файле DPR - необходимо установить Application.DelayInitialize := True;. Это указание позволяет Delphi отложить инициализацию приложения до первого обращения к COM-объекту.

Пример Кода

program MyServiceApp;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  System.Classes,
  Vcl.Services,
  ComObj;

// Остальной код...

initialization
  TAutoObjectFactory.Create(ComServer, TTestCOMServer, Class_TestCOMServer, ciMultiInstance, tmApartment);
Application.DelayInitialize := True; // Важно: установить эту опцию для корректной работы COM-объекта в сервисе

end.

Обсуждение

Ошибка CO_E_SERVER_EXEC_FAILURE указывает на то, что сервер не смог зарегистрировать объект в указанное время или не смог ответить на вызов интерфейса. Это может быть вызвано различными причинами, включая неправильную инициализацию сервиса.

Альтернативные Способы

Перед тем как использовать сервис, стоит проверить работу COM-объекта в обычном приложении, чтобы убедиться, что проблема кроется именно в сервисной модели.

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

В случае использования Delphi XE3 под Windows 10 Pro, необходимо установить Application.DelayInitialize := True; в файле DPR. Это позволит корректно создать COM-объект при использовании сервисного приложения.

Заключение

При разработке сервисов с использованием COM-объектов в Delphi важно правильно настроить процесс инициализации приложения. Установка Application.DelayInitialize в значение True является ключевым моментом для решения проблемы замораживания приложения при создании COM-объектов через CoCreateInstance в сервисной модели.

Эта статья предназначена для специалистов по разработке на Delphi, сталкивающихся с проблемами при работе с COM-объектами в сервисных приложениях. Надеемся, что предоставленная информация окажется полезной.

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

Проблема связана с замораживанием приложения Delphi при создании COM-объекта через `CoCreateInstance` в сервисной модели, что решается путем отложенной инициализации приложения.

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

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

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