Ошибки в многопоточности при динамическом управлении вкладками в Delphi

Delphi , Интернет и Сети , TCP/IP

Как безопасно добавить вкладку в PageControl в событии OnConnect TIdCmdTCPServer?

Введение

При работе с компонентами VCL, особенно при использовании многопоточности, важно помнить о правилах доступа к объектам из разных потоков. В данной статье рассмотрим проблему добавления вкладки в PageControl во время выполнения события OnConnect компонента TIdCmdTCPServer, которая связана с использованием многопоточности.

Проблема

Разработчик хочет добавлять вкладки (Tabsheet) в PageControl динамически при подключении клиента к серверу TIdCmdTCPServer. Пример кода, который демонстрирует проблему:

procedure TForm1.IdCmdTCPServer1Connect(AContext: TIdContext);
var
  ATabSheet: TTabSheet;
begin
  ATabSheet := TTabSheet.Create(PageControl1);
  ATabSheet.PageControl := PageControl1;
  ATabSheet.Caption := 'Hello!';
  // ...
end;

При закрытии приложения возникает ошибка EOSError с сообщением "System Error. Code: 1400. Invalid window handle".

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

После получения помощи от David Heffernan, разработчик изменил метод добавления вкладки, используя новый класс TMyThrd:

type
  TMyThrd = class(TThread)
  protected
    procedure Execute; override;
  end;

procedure TMyThrd.Execute;
begin
  with TTabsheet.Create(Form1.PageControl1) do
    PageControl := Form1.PageControl1;
end;

// ...

Однако проблема с закрытием приложения осталась.

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

Проблема заключается в том, что обработчик события и код, который работает с VCL, выполняются не на главном потоке GUI. Все операции с объектами VCL должны происходить в главном потоке. Для решения этой проблемы необходимо использовать TIdSync или TThread.Synchronize, чтобы перенести доступ к VCL на главный поток.

Альтернативный ответ и окончательное решение

Используя советы из обсуждения, разработчик изменил код следующим образом:

uses
  ..., IdSync, ...
  ...

type
  TSyncThrd = class(TIdSync)
  protected
    procedure DoSynchronize; override;
  end;

procedure TForm1.cmdAddTabCommand(ASender: TIdCommand);
begin
  with TSyncThrd.Create do
  begin
    try
      Synchronize;
    finally
      Free;
    end;
  end;
end;

procedure TSyncThrd.DoSynchronize;
begin
  with TTabsheet.Create(Form1.PageControl1) do
    PageControl := Form1.PageControl1;
end;

Важно закрыть все текущие соединения перед закрытием приложения, чтобы избежать операций с невалидными указателями.

Заключение

При работе с многопоточностью и VCL важно понимать, что операции доступа к объектам должны происходить в главном потоке. Использование TThread.Synchronize является ключевым решением для безопасного добавления вкладок в PageControl.

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

Обсуждение проблемы и решения при работе с многопоточностью и VCL компонентами, особенно при динамическом добавлении элементов управления во время выполнения событий в клиент-серверных приложениях на Delphi.

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

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

:: Главная :: TCP/IP ::