Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];

Вниз

опять поток!   Найти похожие ветки 

 
Gear   (2004-08-20 18:04) [0]

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


 
Суслик ©   (2004-08-20 18:13) [1]

что все в потоки то ломанулись?

слушать можно:
1. Через event (см. msdn createevent+WaitForsingleobject).
2. Через очередь сообщений (см. postthreadmessage+getmessage,peekmessage,waitforsingleobjectmsg)

да полно методов.


 
Gear   (2004-08-20 23:42) [2]

Если не сложно пример небольшой можно?


 TSessionThread = class(TThread)
 private
  FForm1: TForm1;
 protected
  procedure Execute; override;
 public
  ID: string;
  constructor Create(AForm1: TForm1; AID:String);
  destructor Destroy; override;
 end;

...

procedure TSessionThread.Execute;
begin
  FreeOnTerminate := True;
  FForm1.Memo1.Lines.Add(ID);
end;

...


что здесь нужно написать, чтобы при посылке значения ID из основного потока второстепенному, второстепенный добавлял ID в memo и после этого не умирал, а ждал новой посылки от основного потока?



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.041 c
4-1090406888
Delphi5.01
2004-07-21 14:48
2004.09.05
Ia pitaus ispolzovat "rar.exe" console dla arhivacii dannih, ...


3-1092224632
snake1977
2004-08-11 15:43
2004.09.05
уникальный номер записи


14-1092668010
Паскальные надписи
2004-08-16 18:53
2004.09.05
Генератор случайных чисел


14-1092921031
stone
2004-08-19 17:10
2004.09.05
"Ремейк" книжных бестселлеров


1-1092933546
Фёдор Мегатронов
2004-08-19 20:39
2004.09.05
Не получаеться остановить поток





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский