Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Потоки


Автор: NoeR 15.5.2005, 16:05
Нужен простой пример: как создать поток?
Или вообще что-нибудь про потоки почитать дайте пож-ста...

Автор: Quadr0 15.5.2005, 16:12
...

Автор: Girder 15.5.2005, 16:22
Код

type
 TMainT= class(TThread)
 private
  { Private declarations }
 protected
  procedure Execute; override;
 end;

//...

var Form1: TForm1;
      TM:TMainT;

//...

procedure TMainT.Execute;
begin
 while not Terminated do 
   Sleep(100); //типо... ни чего не делаем
end; 

procedure TForm1.Button1Click(Sender: TObject); //создаем и запускаем
begin
  TM:=TKillThread.Create(true);
  TM.FreeOnTerminate:=true;
  TM.Resume; 
end;

procedure TForm1.Button2Click(Sender: TObject); //говорим потоку... все хорош работать :)
begin
  TM.Terminate; 
end;
//...

Автор: NoeR 15.5.2005, 16:59
Quadr0 вот хед мне и нужен был, в хелпе не написано как его создавать, только как работать smile
Girder Спасибо, вижу, что это то что надо, но проверю завтра smile

Автор: SoWa 15.5.2005, 17:14
Есть еще и специальные компоненты.

Автор: Poseidon 15.5.2005, 17:19
Цитата(NoeR @ 15.5.2005, 16:05)
Или вообще что-нибудь про потоки почитать дайте пож-ста...
Читаем http://forum.vingrad.ru/index.php?act=module&module=vingradfaq§ion=545. А еще вот тебе хорошее описание, сам на этом учился.

PS. Пришлось немного урезать (картинки поудалял), т.к. ограничение на закачку файлов до 50 КВ. Так что, так где долждны быть картинки возле кнопки "меню", то кнопки "вперед" и "назад". Загружать файл Index0. smile
Если нужна будет какая-нить картинка, то говори, вылажу отдельно.

Автор: NoeR 15.5.2005, 17:35
Спасибо, посмотрю smile

Автор: Петрович 16.5.2005, 08:28
http://mbo88.narod.ru/ToC.html

Автор: NoeR 16.5.2005, 15:03
Большое спасибо smile

Автор: Quadr0 16.5.2005, 15:09
...

Автор: MacTep 1.6.2005, 06:03
Цитата(Quadr0 @ 15.5.2005, 16:12)
Посмотри в DRKB.
Там есть, но что-то как-то заумно. А вот с самого начала бы...

Автор: Poseidon 1.6.2005, 09:34
Цитата(MacTep @ 1.6.2005, 06:03)
А вот с самого начала бы...
Ну так скачай ты эту главу по ссылке выше. smile

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)