Таймер в потоке

[alexprey]

У меня есть поток. В нем мне нужно создать таймер и чтобы он выполнился в этом потоке. Таймер на любое время. По истечению таймера поток должен уничтожиться как мне это реализовать?

[Ins]

Непонятно зачем тут поток, если он ничего не будет делать, а только спать и ждать таймер (и жрать ресурсы системы), а когда проснется - что-то выполнит и уничтожится. Где параллельность выполнения?

[alexprey]

Зачем лишние вопросы?? Просто как сделать??

[Ins]

Затем, что отвечая на форумах, я пытаюсь дать хороший совет, а не плохой, так как:
1. Кто знает, может когда-то написанная тобой программа попадет ко мне на комп
2. Кто знает, может когда-то мне придется работать с написанным тобой кодом
3. Кто знает, может мой ответ когда-либо кто-либо найдет в интернете и вставит в свою программу, и потом, возможно она попадет на мой комп или мне придется работать с этим кодом или человеком, который его написал?

Поэтому и спрашиваю, чтобы ты сделал правильно, а не так, как ты считаешь что это правильно.

[kangreon]

// Поток
var
 b : boolean;
begin
 while b do
 begin
 {Код}
 sleep(1000); 
 if {условие выполнилось} then
 b := false;
 end;
end;

или так (не совсем понял вопрос)

//Поток
begin
 {Код потока}
 sleep(1000);// Ждать одну секунду, после чего уничтожить поток
end;

[alexprey]

ХМ. Гениально. А точность хорошая???

kangreon, нет все таки не подходит. Мне надо продолжать дальше действия.
Ins, я как пишу чтения скриптов для своего движка. Каждый скрипт выполняется в отдельном потоке, чтобы рендеринг изображения не приостанавливался. Так ты мне можешь помочь?

[Ins]

Так, а причем здесь таймер?

[alexprey]

короче, от вашего форума толку нету. Уже кажись понял как сделать. Можно сделать так???

TMyThRead = class(TThRead)
 constructor Create(code: string);
 protected
  procedure Execute; override;
 private
  FCode: string;
  procedure onTimer(Sender: TObject);
 end;

constructor TMyThRead(code: string);
begin
 inherited Create(false);
 FCode:= code;
 FreeOnTerminate:= true;
 Resume;
end;

procedure TMyThRead.Execute;
 var timer: TTimer;
begin
 if FCode = 'starttimer' then
 begin
  timer:= TTimer.Create(nil);
  timer.interval:= 5000;
  timer.onTimer:= onTimer;
  timer.Enable:= true;
  FreeOnTerminate:= false;
 end;
end;

procedure TMyThRead.onTimer(Sender: TObject);
begin
 //Мои действия
 Sender.Free;
 Destroy;
end;

[Ins]

Нет нельзя
1. Создавая в потоке таймер, как я говорил уже в соседнем топике, нужно позаботится о том, кто будет извлекать из очереди сообщения WM_TIMER и доставлять их адресату. Это не главный поток, тут нет Application.Run, следовательно сообщения сами по себе до адресата не дойдут и твой OnTimer никогда не сработает
2. Ты похоже не понимаешь, что после завершения метода Execute твой поток сразу завершится. Т.е. как только он у тебя запустится и проведет инициализацию таймера. Все, после этого нет ни потока, ни возможности сработать таймеру
3. У тебя утечка ресурсов. Так как поток сразу завершается и при этом он не убивает TTimer

[GunSmoker]

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

короче, от вашего форума толку нету

Известная проблема.