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

Вниз

Multimedia timer   Найти похожие ветки 

 
Sergey Koshelev   (2003-11-03 13:10) [0]

таймер
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 функцию, или
где найти исходник с примером работы мультимедийного таймера ?


 
Woolen ©   (2003-11-03 15:57) [1]

не знаю почему у тебя виснет комп, но функция у тебя определена неправильно:
1) Первые 2 параметра не Word, а UINT. Ведь Word - 16 битный, а UINT - 32 битный.
2) Параметры надо принимать как непосредственные, а не как указатели на параметры, потому убери из объявления var.
3) Ты не забыл, что вызывается функция с передачей всех параметров в стеке в соответствии с конвенцией вызовов stdcall? Если забыл, укажи в объявлении функции после точки с зяпятой "stdcall;".


 
Sergey Koshelev   (2003-11-03 19:06) [2]

Благодарю за помощь. Теперь все работает.


 
app ©   (2003-11-03 19:26) [3]

Вот официаьное определение типа для CallBack процедуры

TFNTimeCallBack = procedure(uTimerID, uMessage: UINT; dwUser, dw1, dw2: DWORD) stdcall;



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

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

Наверх




Память: 0.47 MB
Время: 0.039 c
1-99597
Timego
2003-12-17 12:35
2003.12.30
Остановка и запуск потока нити


3-99443
OlegM
2003-12-08 07:37
2003.12.30
Локальная база без BDE и с возможностью использовать картинки


3-99504
Denisiy
2003-12-04 12:30
2003.12.30
Странная вещь в работе с таблицей через TTable.... не понимаю...


4-99823
sonic
2003-10-30 17:49
2003.12.30
Активно окно консоли ли нет...


1-99581
Denis
2003-12-17 16:33
2003.12.30
Как в DateTimePicker показать 1 число текущего месяца?