Разрешение Замораживания Приложения Delphi при Создании COM-Объекта с Использованием CoCreateInstance
При разработке сервисного приложения с использованием 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
Telegram-канал