| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Multimedia timer [D5, Win95/98]
Sergey Koshelev © (2003-11-03 13:10:00)
таймер
idTimer:= TimeSetEven(Interval,Timer_Resolution,@MyProc,TIME_PERIODIC);
вызывает CallBack процедуру:
MyProc (var idTimer,Msg: WORD; var Data,dw1,dw2:LONGWORD);
begin
LineTo (X_,Y_);
end;
процедура срабатывает один раз и компьютер виснет
Может быть в теле процедуры должно что-то делаться, чтобы программа выходила из нее нормально ? Подскажите пожалуйста, как правильно написать callback функцию, или
где найти исходник с примером работы мультимедийного таймера ?
app (2003-11-03 19:26:00) [1]
Вот официаьное определение типа для CallBack процедуры
TFNTimeCallBack = procedure(uTimerID, uMessage: UINT; dwUser, dw1, dw2: DWORD) stdcall;
Sergey Koshelev (2003-11-03 19:06:00) [2]
Благодарю за помощь. Теперь все работает.
Woolen (2003-11-03 15:57:00) [3]
не знаю почему у тебя виснет комп, но функция у тебя определена неправильно:
1) Первые 2 параметра не Word, а UINT. Ведь Word - 16 битный, а UINT - 32 битный.
2) Параметры надо принимать как непосредственные, а не как указатели на параметры, потому убери из объявления var.
3) Ты не забыл, что вызывается функция с передачей всех параметров в стеке в соответствии с конвенцией вызовов stdcall? Если забыл, укажи в объявлении функции после точки с зяпятой "stdcall;".
| |
