请大家来研究一下高精度定时器函数的用法.(100分)

hejiesi · 2000-09-07

有下面的一些语句 var   uTimerRes,uTimerID:UNIT; ............ procedure Tform1.Button1Click(Sender:Tobject); begin   uTimerRes:=10;     timeBeginPeriod(uTimerRes);   uTimerID:=timeSetEvent(uTimerRes, uTimerRes, @timecallback, 0 ,TIME_PERIOD);   if uTimerID=0 then timeEndPeriod(uTimerID); end; procedure Tform1.timecallback(uTimerID,uMessage : UINT; dwUser, dw1, dw2 : Dword); begin    ....... end; 但出现Variable required 的错误, 光标停在timeSetEvent 中@timecallback 的逗号后面, Why?

Another_eYes · 2000-09-07

hehehehe, TimeCallBack不能定义为类函数, 必须定义成静态函数.

yzhshi · 2000-09-07

GetTickCount可以得到精度高一些的定时器(ms级别精度)， 另外直接读系统I/O也可以得到ns级别的精度。

steve · 2000-09-07

这个问题好像urus兄研究得比较透彻，他还有个能精确到0.01ms的控件。 建议去看看。

hejiesi · 2000-09-08

............ var   Form1: TForm1;   i:integer=0;   TIMER_RES:UINT=10;   uTimerRes,uTimerID:UINT; implementation {$R *.DFM} procedure CallBack(uTimerID,uMessage:UINT; dwUser,dw1,dw2

word); begin   if i>10000 then exit;   inc(i);   form1.label1.caption:=inttostr(i); end; procedure TForm1.Button1Click(Sender: TObject); var   tc : TIMECAPS; begin   timeGetDevCaps (@tc, sizeof (TIMECAPS)) ;   uTimerRes:=max(tc.wPeriodMin, TIMER_RES);   uTimerRes:=min(uTimerRes,tc.wPeriodMax);   timeBeginPeriod (uTimerRes) ;   uTimerID:=timeSetEvent(max(uTimerRes,100),uTimerRes, @CallBack, 0, TIME_ONESHOT) ;   if (uTimerID = 0) then timeEndPeriod (uTimerRes) ; end; procedure TForm1.Button2Click(Sender: TObject); begin   if uTimerID<>0 then     timeKillEvent(uTimerID) ;   timeEndPeriod(uTimerRes) ; end; end. 为什么上面的代码能通过编译但一点击Button1的时候就会发生错误连CPU调试窗口也出来了.

hejiesi · 2000-09-08

To  steve:   到哪里看,请指明.

宋远午 · 2000-09-08

以下是一个完整的多媒体定时器设计示例程序，该定时器的精度为1毫秒。 程序清单如下： #include < vcl.h > #pragma hdrstop #include "mmsystem.h" //包含多媒体定时器函数的头文件 #define MilliSecond 1 //定时间隔1毫秒 #define Accuracy 1 //系统允许的分辨率最小值 #define Min(x,y) ((x < y) ? x : y) #define Max(x,y) ((x > y) ? x : y) #include "HighTimerU.h" //------------------------------------------------ #pragma package(smart_init) #pragma resource "*.dfm" UINT TimerID; //定义定时器句柄 int count; //定义一个变量以进行计数 int TimerAccuracy; TForm1 *Form1; //------------------------------------------------ __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } void PASCAL TimerCallProc(UINT TimerID, UINT msg,DWORD dwUser,DWORD dwa,DWORD dwb) //定义定时器事件的调用函数 { count++; Form1- >Edit1->Text=count; //在一个编辑框内显示计数值，即定时值 } //--------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { TIMECAPS timecaps; int TimerResolution; //从系统获得关于定时器服务能力的信息， //分辨率不能超出系统许可值（1到16毫秒） if (timeGetDevCaps(&timecaps,sizeof(     TIMECAPS))==TIMERR_NOERROR) TimerAccuracy=Min(Max(timecaps.wPeriodMin,     Accuracy),timecaps.wPeriodMax); timeBeginPeriod(TimerAccuracy); //设置定时器分辨率 TimerResolution=1; //设置定时间隔为1毫秒 //产生间隔1毫秒，周期执行的定时器事件；启动定时器 TimerID = timeSetEvent(TimerResolution,TimerAccuracy, &TimerCallProc,1,TIME_PERIODIC); } //------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { timeKillEvent(TimerID); //删除定时器事件 timeEndPeriod(TimerAccuracy); //清除定时器分辨率 } 　　多媒体定时器对实现高精度定时是很理想的工具，而且其精度是十分可靠的。 但是，因为它可靠的精度是建立在对系统资源的消耗之上的。因此必须注意以下几点： 1．多媒体定时器的设置分辨率不能超出系统许可范围。 2．在使用完定时器以后，一定要及时删除定时器及其分辨率，否则系统会越来越慢。 3．多媒体定时器在启动时，将自动开辟一个独立的线程。在定时器线程结束之前，注 意一定不能再次启动该定时器，不然将迅速造成死机。    另外，回调函数必须定义成全局函数或类的静态函数。。。切记，切记！！！

cemi · 2000-09-09

如果你把回调函数写成这样就对了 procedure CallBack(uTimerID,uMessage:UINT; dwUser,dw1,dw2

word) stdcall; begin   if i>10000 then exit;   inc(i);   form1.label1.caption:=inttostr(i); end;

hejiesi · 2000-09-10

多人接受答案了。

请大家来研究一下高精度定时器函数的用法.(100分)

hejiesi

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

steve

Unregistered / Unconfirmed

hejiesi

Unregistered / Unconfirmed

hejiesi

Unregistered / Unconfirmed

宋远午

Unregistered / Unconfirmed

cemi

Unregistered / Unconfirmed

hejiesi

Unregistered / Unconfirmed

Similar threads