Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.27;
Скачать: CL | DM;

Вниз

SetWaitableTimer, таймер не срабатывает несколько раз..   Найти похожие ветки 

 
Dmitry_177   (2007-04-02 21:57) [0]

Нужно сделать чтобы таймер срабатывал каждые 10 секунд например. Делаю я так:

var
 hTimer: THandle;
 idTimeThread: DWORD;

function ThreadTimer(Param: Pointer): DWORD; stdcall;
begin
 WaitForSingleObject(hTimer, INFINITE);
 Windows.Beep(800,200);
 Result := 0;
end;

...

var
 sysTime: SYSTEMTIME;
 fTime: FILETIME;
begin
 hTimer := CreateWaitableTimer(nil, false, nil);

 заполняем sysTime...

 SystemTimeToFileTime(sysTime, fTime);
 LocalFileTimeToFileTime(fTime, fTime);

 SetWaitableTimer(hTimer, TLargeInteger(fTime), 10000, nil, nil, false);  // период 10 секунд
 CloseHandle(CreateThread(nil, 0, @ThreadTimer, nil, 0, idTimeThread));
end;

И срабатывает почему-то один раз.. Что я не так делаю? Подскажите пожалуйста..


 
Leonid Troyanovsky ©   (2007-04-02 23:19) [1]


> Dmitry_177   (02.04.07 21:57)  

> И срабатывает почему-то один раз.. Что я не так делаю? Подскажите

После срабатывания таймера ожидающий поток завершается.
Сделай, хотя бы, цикл
while WaitForSingleObject(hTimer, INFINITE) = WAIT_OBJECT_0 do
Хотя, конечно, как заканчивать поток следует продумать тщательней.

--
Regards, LVT.



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

Текущий архив: 2007.05.27;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.029 c
2-1178480212
vofk
2007-05-06 23:36
2007.05.27
Picture


2-1178477740
Dmitry_177
2007-05-06 22:55
2007.05.27
Exit


6-1163746643
Pack
2006-11-17 09:57
2007.05.27
Узнать значение параметра в Webbrowser


2-1178558763
Dik59
2007-05-07 21:26
2007.05.27
Настройки Delphi?


15-1177411473
CCili
2007-04-24 14:44
2007.05.27
Купить мобильник через интернет. Подскажите где?