[Aristarh Dark]

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

ЗЫЖ Забыл совсем, у меня EurikaLog установлен, так что у кого нет - удалите ExceptionLog из файла проекта.
ЗЗЫЖ Delphi XE

[NumLock]

маленькое замечаньице:
правильней делать так:

Код:

constructor TMyThread.Create(AListBox: TListBox);
begin
  inherited Create(True);
  // init
  Resume;
end;

либо:

Код:

constructor TMyThread.Create(AListBox: TListBox);
begin
  // init
  inherited Create(False);
end;

теоритически Execute может начать раньше выполняться, чем "продолжение" конструктора. может и не в данном примере, конечно...

[Aristarh Dark]

На самом деле нет. Поток создается с флагом CREATE_SUSPENDED и уже после отработки конструктора резюмится (или не резюмится, в зависимости от переданного параметра) в методе AfterConstruction.

[M.A.D.M.A.N.]

Эта функа может вообще в любой произвольный поток послать?

Сообщение от Aristarh Dark

На самом деле нет. Поток создается с флагом CREATE_SUSPENDED и уже после отработки конструктора резюмится (или не резюмится, в зависимости от переданного параметра) в методе AfterConstruction.

Может же быть ситуация, что AfterConstruction заовверрайдили, а inherited забыли.

[NumLock]

Сообщение от Aristarh Dark

На самом деле нет. Поток создается с флагом CREATE_SUSPENDED и уже после отработки конструктора резюмится (или не резюмится, в зависимости от переданного параметра) в методе AfterConstruction.

значит ты нам не тот исходник дал

[Aristarh Dark]

Сообщение от M.A.D.M.A.N.

Эта функа может вообще в любой произвольный поток послать?

Послать-то можно в любой произвольный, зная его ThreadID. Вопрос в том обработает, ли поток данное сообщение.

Сообщение от M.A.D.M.A.N.

Может же быть ситуация, что AfterConstruction заовверрайдили, а inherited забыли.

А могли вообще забыть описать Execute. ИМХО, тот у кого ума хватает овверрайдить AfterConstruction знает зачем этот метод.

[Aristarh Dark]

Сообщение от NumLock

значит ты нам не тот исходник дал

Посмотри исходник TThread, и вопросы снимутся.

[NumLock]

да, каюсь, про AfterConstruction я прозевал с какой версии Они это изменили.

в примерах до сих пор:

Код:

{ TSortThread }

constructor TSortThread.Create(Box: TPaintBox; var SortArray: array of Integer);
begin
  FBox := Box;
  FSortArray := @SortArray;
  FSize := High(SortArray) - Low(SortArray) + 1;
  FreeOnTerminate := True;
  inherited Create(False);
end;

c:\Program Files\Borland\Delphi7\Demos\Threads\SortThds.pas