Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Помогите с потоками

Автор: 1988Олег1988 27.7.2013, 18:04

Доброго времени суток.

Начал изучать работу с потоками и чем больше изучаю, тем больше вопросов

Для работы с потоком создаю 2 массива потоков в сумме их 4 штуки всего (3 потока TrLTR27 и of TrLTR51)

Код


unit MainForm;
  ...

  TForm1 = class(TForm)
  ...
  private
    { Private declarations }
  ...
    ArTrLTR27 : array  of TrLTR27;
    ArTrLTR51 : array  of TrLTR51;

  procedure WMProcessData(var Message:TMessage); message WM_PROCESSDATA27;
  procedure WMProcessData51(var Message:TMessage); message WM_PROCESSDATA51;
  ...
  end;
  ...
  procedure WMProcessData(var Message:TMessage);
  begin
  // Здесь я визуализирую данные из потока
  end;

  procedure WMProcessData51(var Message:TMessage);
  begin
  // Здесь я визуализирую данные из потока
  end;

unit ThreadLTR27;
...
 PostMessage(Form1.Handle, WM_PROCESSDATA27, NomerSlota,1 );

unit ThreadLTR51;
...
 PostMessage(Form1.Handle, WM_PROCESSDATA51, NomerSlota,1 );  //В итоге когда я пытаюсь отправить ссобщение главному потоку у меня все виснет!!!

Не подскажите почему у меня начинает виснуть прога когда я отправляю главному потоку сообщения из 2х разных
и получается, что если убрать
PostMessage(Form1.Handle, WM_PROCESSDATA51, NomerSlota,1 ); или второй зависание прекращается.

Прошу подсказать почему появляется зависание и как от этого можно избавиться

И второй вопрос, как можно ПРАВИЛЬНО приостанавливать и запускать поток?
У меня в потока используется бесконечный циклы

Код


while true do
begin
...
if Terminated then Break;
end;

В итоге когда я пытаюсь приостановить поток ArTrLTR27[i].Terminate;, останавливается все хорошо но пытаюсь запустить поток с помощью ArTrLTR27[i].Resume, но цикл не запускается.

Автор: Illusion Dolphin 27.7.2013, 23:10

Цитата

приостанавливать

= Suspend

Terminate это значит дать знать потоку что он должен быть завершён.

Цитата

Прошу подсказать почему появляется зависание и как от этого можно избавиться

Когда зависнет - посмотрите на вкладку потоки (Threads = Ctrl+Alt+T), там будет указано кто кого ждёт и почему. Двойным кликом переключайтесь между потоками и будите видеть Call-stack для каждго отдельного потока.

Автор: StranikS 28.7.2013, 11:39

Глянул на главный код, непонятно зачем синхронизация идет через посты? Что это вам дает? Вы все равно обращаетесь к форме Form1 из каждого модуля с описанием потока.

Автор: Illusion Dolphin 28.7.2013, 12:26

Цитата

зачем синхронизация идет через посты? Что это вам дает?

Например, это не блокирует поток, дожидаять обработки сообщения, как это через Send.

Автор: 1988Олег1988 28.7.2013, 14:38

Цитата(StranikS @ 28.7.2013, 11:39)

Ну Посты я использовал для того чтобы не блокировать поток, дожидаясь обработки сообщения.
А то что к форме на прямую обращаюсь - это временно.

Вообще я лпанирую любые данные получаемые с потоков заполнять в некоторый глобальный список например типа SyncList:TList с доступом через крит.секцию.

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

Но пока руки не дошли и кое где ликбеза не хватает smile

...

А может кто подскажет как можно в потоке дожидаться выполнения какой либо функции или процедуры в потоке???
например функция в потоке:

Код


Trsize:= LTR27_Recv(@ltr27_3, @Trbuf[0], nil, 16, 1000);// Здесь происходит задержка.

Но поток не дожидается ее выполнения и молотит дальше...

Автор: Illusion Dolphin 28.7.2013, 15:23

Цитата

Но поток не дожидается ее выполнения и молотит дальше...

Предполагаю ( smile

), что проблема в реализации фкнуции LTR27_Recv smile

Автор: 1988Олег1988 28.7.2013, 15:42

Цитата(Illusion Dolphin @ 28.7.2013, 15:23)

Предполагаю ( smile

), что проблема в реализации фкнуции LTR27_Recv smile

Решил проблему - просто с переменными запутался smile