TThread и GUI

Posted by maloy under Delphi, Архив

Freezer

У меня появилась следующая задачка. У меня в программе можно создавать любое количество потоков, которые выполняют каждый свой скрипт. Так в скрипте эсть возможность вызывать свои диалоговые формы, и воспламеняющиеся формы(как в QIP). Формы я реализовал свои, как наследники от TForm, но это не столь важно. Проблема заключается в том, что эти формы должны быть абсолютно независимыми, и функция которая их создает, должна видеть все остальные формы что б правильно рассчитать координаты новой формы. Это нужно для воспламеняющиеся форм, они появляются одна над другой, возле трея. Так вот, с одним или двумя потоками все ок, но если из запустить 5-10 штук, начинают вылазить глюки синхронизации. То Access Vialation, то глюки прорисовки. Перелопатил кучу доки, но нигде нормально не описана работа потоков с интерфейсом, максимум вызов через synchronize().
У кого есть идеи, или ссылки на нужную инфу?

BOBAH13

Идея такова.
1. создать в общем классе, или как общую переменную список TList.
2. в этот самый список, при создании каждого потока добовлять себя(этот поток) при вызове деструктора данного потока удалять из этого списка.
3. если речь о модальных окнах, то не понятно, причем тут общая переменная. При создании каждого потока, есть возможность передавать параметры (или же создать свой-во у потомка TThread), собственно сделать какую-то структуру с вашей информацией и создать в главном (родительском потоке) там где и список с потоками эту структуру. После при создании потока (дочернего) передавать ему указатель на эту структуру, так же не забывать отключить FreeOnTerminate у дочерних потоков.

В дополнение скажу, для синхронизации можно использовать события SetEvent (и другое см. в MSDN), или же просто критические секции CriticalSection (так же в MSDN) очень эффективно если требуется синхронизированное обращение к общим данным.

Freezer

Интергировать формы коректно так и не получилось.
Сделал так, потоки создают переменную моего типа TMessageQuery куда записывают заголовок, текст, набор кнопок, тип диалога и т.д., помещают его в защищенный список TTreadList, и зацикливаются.

function KShowDialog(Caption : string; Text: String; Buttons : array of TVcButtonKind; Style : TVcMassageStyle; Icon : TVcIcon): TVcResult;
var q : TMessageQuery;
begin
  q := TMessageQuery.Create(Caption, Text, Buttons, Style, Icon);
  RList.Add(q);
  while (q.Result = vcrNone) and not (Application.Terminated) do begin
    Application.ProcessMessages;
    SleepEx(1, true);
  end;
  Result := q.Result;
  RList.Remove(q);
  q.Free;
end;

К стати метод TMessageQuery.GetResult тоже делал через TCriticalSection.

А в главном потоке по таймеру проверял не появилось ли чего нового в очереди, если появилось — создавал форму. Здесь же проверял не нажали чего на форме, если нажали

q.Result := dlg.result;

и прячу форму.

Правда это получилась эмуляция того что я хотел, но проблему решило!

тема на форуме от 2009 года

Похожие статьи

• Псевдопараллельное выполнение процедур (Потоки)
• Скелет потока с процедурой Terminate
• Проверить состояние потока
• Создание своего класса потока
• Передать число следующему потоку
• «Контроль версий» в структуре БД
• Автоматическая очередь потоков
• Пример использования потока в форме
• Кодировать изображение Base64 и отправить как строку
• Пример передачи значения переменной потоку