VPF::описание OnTerninate в потоке - Форум программистов

DmitryHT

Дата 18.10.2007, 00:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 97
Регистрация: 31.8.2007

Репутация: нет
Всего: нет

в данном примере (пример простого многопоточного приложения) исп. след код для события OnTerminate

Код


procedure TForm1.EventMyThreadOnTerminate (Sender :tObject);
begin

  // На всякий случай, убедимся что экземпляр объекта еще существует
  if  not Assigned(MyThread) then Exit; // если его нет, то и делать нечего

  // Еще раз замечу - не уничтожим объект, а только затрем ссылку. Объект
  // уничтожится сам!
  MyThread := Nil;
end;

Можно ли описывать OnTerminate в самом потоке, например, так:

Код


procedure tPotok.execute;
begin
  potok[TT].OnTerminate:= ThreadDone;
  GetIt:=TIdHttp.create(nil);
...
...

и само событие

Код


procedure tPotok.ThreadDone(Sender: TObject);
begin
  if not Assigned(potok[TT])
  then Exit;
  potok[TT]:= nil;
end;

Либо если нельзя, то как передать в procedure TForm1.EventMyThreadOnTerminate (Sender :tObject);
объект, нужно затереть если он описан в виде массива потоков, т.е. potok[i].OnTerminate

Спасибо! smile

aktuba

Дата 18.10.2007, 00:36 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38

Цитата

Можно ли описывать OnTerminate в самом потоке

Нет.

Цитата

как передать в procedure TForm1.EventMyThreadOnTerminate (Sender :tObject);
объект, нужно затереть если он описан в виде массива потоков, т.е. potok[i].OnTerminate

Заведи в потоке паблик свойство, в котором храни индекс текущего потока, а в OnTerminate сделай примерно следующее:

Код


procedure TForm1.EventMyThreadOnTerminate (Sender :tObject);
begin
  if  not Assigned(MyThreads[TMyThread(Sender).Index]) then Exit; 
  MyThreads[TMyThread(Sender).Index] := Nil;
end;

P.S.: не надо использовать цветной текст в посте - только мешает, имхо...

--------------------

DmitryHT

Дата 18.10.2007, 00:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 97
Регистрация: 31.8.2007

Репутация: нет
Всего: нет

спасибо, так отлично работает!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »