Создание основной формы в режиме автоматизации для Delphi-сервера COM

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

Создание основной формы в режиме автоматизации для Delphi-сервера COM

Вопрос, поднятый в контексте, касается создания основной формы для Delphi-приложения, работающего как сервер COM, в режиме автоматизации (smAutomation). Основная форма должна быть создана с установленным родительским окном. Поскольку перепривязка формы к родительскому окну должна быть выполнена очень рано в процессе, сразу после создания формы, стандартный порядок инициализации приложения, включающий создание формы после запуска приложения, не подходит.

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

Для решения поставленной задачи необходимо изменить порядок инициализации приложения в файле DPR. После создания основного сервера COM и получения обработчика родительского окна, следует установить свойство ParentWindow формы, прежде чем запустить основной цикл обработки сообщений приложения.

Пример кода

// Получение обработчика родительского окна
var
  WHandle: HWND;
begin
  // Получаем обработчик окна из COM интерфейса
  WHandle := GetParentWindowHandleFromCOMInterface;
end;

// Инициализация приложения в зависимости от режима запуска
if COMServer.StartMode = smStandalone then
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  // Установка родительского окна для формы должна быть выполнена до запуска приложения
  Form1.ParentWindow := WHandle;
  Application.Run;
end
else if COMServer.StartMode = smAutomation then
begin
  // Создание формы с установленным родительским окном
  Application.CreateForm(TForm1, Form1, WHandle);
  // Продолжение инициализации
end;

Альтернативный вариант

Если установка свойства ParentWindow после вызова Application.CreateForm по каким-либо причинам невозможна, можно переопределить метод TForm1.CreateParams для установки родительского окна внутри этого метода.

type
  TForm1 = class(TForm)
  protected
    function CreateParams: TCreateParams; override;
  end;

function TForm1.CreateParams: TCreateParams;
begin
  Result := Inherited;
  Result.Paraent := WHandle; // Установка родительского окна
end;

Важные моменты

• Обратите внимание, что в примере кода функция GetParentWindowHandleFromCOMInterface является псевдо-кодом, и вам нужно будет реализовать её в соответствии с вашим интерфейсом COM.
• Убедитесь, что все инициализации, связанные с видеокаптурой окон, выполняются после установки родительского окна, чтобы избежать проблем с отображением.

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

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

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

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

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

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