Скачать: CL | DM;

Таймер в консоли   Найти похожие ветки 

← →
Windows ©   (2006-06-20 20:00) [0]

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

---

← →
Eraser ©   (2006-06-20 22:19) [1]

> [0] Windows ©   (20.06.06 20:00)

необходимо создать доп. поток и в нем цикл обработки сообщений, обрабатывать WM_TIMER. Устанавливается таймер с пом. SetTimer.

---

← →
Сергей М. ©   (2006-06-21 08:47) [2]

> необходимо создать доп. поток


Не обязательно, можно и в основном

---

← →
Windows ©   (2006-06-28 17:27) [3]

А можно кода кусок, я ничего не понимаю...

---

← →
Медвед   (2006-06-28 21:48) [4]

>Сергей М. в основном можно, только проблемы с "одновременностью"

program Project1;

{$APPTYPE CONSOLE}

uses
 SysUtils, Windows;

procedure TimerProc(hwnd,uMsg,idEvent,dwTime:integer);stdcall;
begin
 writeln("preved krosavcheg !");
end;

var
 msg:TMsg;
begin
 { TODO -oUser -cConsole Main : Insert code here }
 SetTimer(0,1,1000,@TimerProc);
 while GetMessage(msg,0,0,0) do DispatchMessage(msg);
end.

---

← →
Windows ©   (2006-06-30 13:03) [5]

Spasibo bolshoe!
A kak sdelat" ego uprovlyaushim...
t.e. mojno bilo vkluchit" i vikluchit pri neobhodimosti!
a to u menya putem vvoda peremennoy tipa BOOLEAN, on visnit...
mojno toje kusok koda.

p.s: Izvinite za translit, kakoy-to gluk s kompom, russkiy 9zik propal!(((

---

← →
TUser ©   (2006-06-30 17:29) [6]

Или использовать стандартный TTimer

---

← →
Windows ©   (2006-06-30 18:29) [7]

Kakim obrazom ego v Console ispolzovat"?
nekatit takoy variant!!!!
eshe est" predlojeniya?

---

← →
Шпиён   (2006-06-30 18:50) [8]


var TimerId:Cardinal;
..................................
TimerId:=SetTimer(0,1,1000,@TimerProc);- включаешь

KillTimer(0, TimerId); - выключаешь

Подробности - в справке.

Еще можно посмотреть в сторону timeSetEvent, CreateWaitableTimer, reateTimerQueueTimer

ps

> Windows ©   (30.06.06 18:29) [7]
> Kakim obrazom ego v Console ispolzovat"?

Можно извратиться. Но, думаю что нецелесообразно.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c