delphi 精度记时 api方法(20分)

lanxy · 2006-08-11

请教：我想用这个高精度记时，不知道用api怎么定义：请高手指点定义方法： var 　　c1:int64; 　　t1,t2:int64; 　　r1:double; 　　begin 　　QueryPerformanceFrequency(c1);//WINDOWS API 返回计数频率(Intel86:1193180)(获得系统的高性能频率计数器在一毫秒内的震动次数) 　　QueryPerformanceCounter(t1);//WINDOWS API 获取开始计数值 　　sleep(1000);{do...}//执行要计时的代码 　　QueryPerformanceCounter(t2);//获取结束计数值 　　r1:=(t2-t1)/c1;//取得计时时间，单位秒(s) 　　r1:=(t2-t1)/c1*1000;//取得计时时间，单位毫秒(ms) 　　r1:=(t2-t1)/c1*1000000;//取得计时时间，单位微秒 　　showmessage(floattostr(r1)); 　　end;

网中戏 · 2006-08-11

[

]不懂帮顶

weiliu · 2006-08-11

利用delphi建立精确计数器 作者 : TechnoFantasy 在windows中的很多场合下编程（例如工业控制、游戏）中需要比较精确的记时器，本文讨论的是在delphi下实现记时器的若干方法以及它们的精度控制问题。 在delphi中最常用的是timer控件，它的设置和使用都非常方便，理论上它的记时精度可以达到1ms(毫秒)。但是众所周知的，实际上timer在记时间隔小于50ms之下是精度是十分差的。它只适用于对于精度要求不太高的场合。 这里作者要介绍的是两种利用windows api函数实现精确记时的方法。第一中方法是利用高性能频率记数（作者本人的称呼）法。利用这种方法要使用两个api函数queryperformancefrequency和queryperformancecounter。queryperformancefrequency函数获得高性能频率记数器的震荡频率。 调用该函数后，函数会将系统频率记数器的震荡频率（每毫秒）保存到一个largeinteger中。不过利用该函数在几台机器上做过试验，结果都是1193180。读者朋友可以在自己的机器上试一下 queryperformancecounter函数获得系统频率记数器的震荡次数，结果也保存到一个largenteger中。 很显然，如果在计时中首先使用queryperformancefrequency获得高性能频率记数器每毫秒的震荡次数，然后在计时开始时使用queryperformancecounter函数获得当前系统频率记数器的震荡次数。在计时结束时再调用queryperformancecounter函数获得系统频率记数器的震荡次数。将两者相减，再将结果除以频率记数器每毫秒的震荡次数，就可以获得某一事件经过的准确时间。(次数除以频率等于时间) 另外的一种精确记时器的功能是利用多媒体记时器函数（这也是作者的定义，因为这个系列的函数是在winmm.dll中定义并且是为媒体播放服务的）。 实现多媒体记时器首先要使用timesetevent函数建立计时事件。该函数在delphi中的mmsystem.pas中有定义，定义如下： function timesetevent(udelay, uresolution: uint; lpfunction: tfntimecallback; dwuser: dword; uflags: uint): mmresult; stdcall 函数定义中参数udelay定义延迟时间，以毫秒为单位，该参数相当于timer控件的interval属性。参数uresolution定义记时精度，如果要求尽可能高的精度，要将该参数设置为0；参数lpfunction定义了timesetevent函数的回调函数。该函数相当于一个定时中断处理函数，每当经过一个udelay长度的时间间隔，该函数就会被调用，编程者可以在该函数中加入相应的处理语句。参数dwuser定义用户自定义的回调值，该值将传递给回调函数。参数uflags定义定时类型，如果要不间断的记时，该值应设置为1。 如果函数调用成功，在系统中建立了一个多媒体记时器对象，每当经过一个udelay时间后lpfunction指定的函数都会被调用。同时函数返回一个对象标识，如果不再需要记时器则必须要使用timekillevent函数删除记时器对象。 由于windows是一个多任务的操作系统，因此基于api调用的记时器的精度都会受到其它很多因素的干扰。到底这两中记时器的精度如何，我们来使用以下的程序进行验证： 设置三种记时器（timer控件、高性能频率记数、多媒体记时器）。将它们的定时间隔设置为10毫秒，让它们不停工作直到达到一个比较长的时间（比如60秒），这样记时器的误差会被累计下来，然后同实际经过的时间相比较，就可以得到它们的精度。 下面是具体的检测程序。 unit unit1; interface uses windows, messages, sysutils, classes, graphics, controls, forms, dialogs, stdctrls, extctrls,mmsystem; type tform1 = class(tform) edit1: tedit; edit2: tedit; edit3: tedit; button1: tbutton; button2: tbutton; timer1: ttimer; procedure formcreate(sender: tobject); procedure button1click(sender: tobject); procedure timer1timer(sender: tobject); procedure button2click(sender: tobject); private { private declarations } public { public declarations } end; var form1: tform1; acttime1,acttime2:cardinal; smmcount,stimercount,spcount:single; htimeid:integer; iten:integer; protimecallback:tfntimecallback; procedure timeproc(utimerid, umessage: uint; dwuser, dw1, dw2: dword) stdcall; procedure proendcount; implementation {$r *.dfm} //timesetevent的回调函数 procedure proendcount; begin acttime2:=gettickcount-acttime1; form1.button2.enabled :=false; form1.button1.enabled :=true; form1.timer1.enabled :=false; smmcount:=60; stimercount:=60; spcount:=-1; timekillevent(htimeid); end; procedure timeproc(utimerid, umessage: uint; dwuser, dw1, dw2: dword) stdcall; begin form1.edit2.text:=floattostr(smmcount); smmcount:=smmcount-0.01; end; procedure tform1.formcreate(sender: tobject); begin button1.caption :='开始倒计时'; button2.caption :='结束倒计时'; button2.enabled :=false; button1.enabled :=true; timer1.enabled :=false; smmcount:=60; stimercount:=60; spcount:=60; end; procedure tform1.button1click(sender: tobject); var lgtick1,lgtick2,lgper:tlargeinteger; ftemp:single; begin button2.enabled :=true; button1.enabled :=false; timer1.enabled :=true; timer1.interval :=10; protimecallback:=timeproc; htimeid:=timesetevent(10,0,protimecallback,1,1); acttime1:=gettickcount; //获得系统的高性能频率计数器在一毫秒内的震动次数 queryperformancefrequency(lgper); ftemp:=lgper/1000; iten:=trunc(ftemp*10); queryperformancecounter(lgtick1); lgtick2:=lgtick1; spcount:=60; while spcount>0 do begin queryperformancecounter(lgtick2); //如果时钟震动次数超过10毫秒的次数则刷新edit3的显示 if lgtick2 - lgtick1 > iten then begin lgtick1 := lgtick2; spcount := spcount - 0.01; edit3.text := floattostr(spcount); application.processmessages; end; end; end; procedure tform1.timer1timer(sender: tobject); begin edit1.text := floattostr(stimercount); stimercount:=stimercount-0.01; end; procedure tform1.button2click(sender: tobject); begin proendcount; //显示从开始记数到记数实际经过的时间 showmessage('实际经过时间'+inttostr(acttime2)+'毫秒'); end; end. 运行程序，点击“开始倒记时”按钮，程序开始60秒倒记时，由于上面的程序只涉及了记时器程序的原理而没有将错误处理加入其中，所以不要等60秒倒记时结束。点击“结束倒记时”按钮可以结束倒记时。这时在弹出对话框中会显示实际经过的时间（单位为毫秒），将三个文本框内的时间乘以1000再加上实际经过的时间，越接近60000，则记时精度越高。 下面是在我的机器上的执行结果。 从上面的结果看，由delphi的timer控件建立的记时器的精度十分差，无法在实际中使用，而利用高性能频率记数法和多媒体计数器法的误差都在1%以下。考虑到程序中在文本框中显示时间对程序所造成的影响，这个误差在应用中是完全可以忽略的。 另外在运行程序时作者还发现一个问题，如果在倒记时时拖动窗口，文本框中的显示都会停止，而当停止窗口拖放后，多媒体记时器显示会跳过这段时间记时，而其它两种记时器显示倒记时却还是从原来的时间倒数。这说明多媒体记时器是在独立的线程中运行的，不会受到程序的影响。 综合上面的介绍和范例，我们可以看到，如果要建立高精度的记时器，使用多媒体记时器是比较好的选择。而高性能频率记数法比较适合计算某个耗时十分短的过程所消耗的时间（例如分析程序中某个被多次调用的程序段执行时间以优化程序），因为毕竟高性能频率记数的理论可以达到微秒级别。timer控件虽然精度比上面两者差很多，但是它使用方便，在要求不高的场合它还是最佳选择。 （最后要说的是，以上的结果都是在windows 9x下获得的，作者在windows 2000下运行该程序时发现，timer控件的精度比在windows 9x下要高出很多，一般误差在5%以下，这说明windows 2000是一个真正的多任务操作系统。再加上windows nt/2000的稳定性和易用性，在工业控制或实时检测等领域是一个比较完美的平台）

xeen · 2006-08-11

uses windows不就行了

lanxy · 2006-08-11

本来uses里边就有 windows，那怎么加？

lanxy · 2006-08-14

问题已经解决，谢谢各位参与讨论！谢谢俺们的肖老师：欢迎程序爱好者参考。 最终正确版： unit test; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs,   StdCtrls,mmsystem; type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    Edit1: TEdit;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); type  //图象导入  TCISLoadImageFun = function(PImgName: PChar): Boolean; stdcall;  TCISGetImageFun  = procedure(PImageData: PChar;  Pwidth, Pheight, Pdepth, Pchannels: PInteger);stdcall;  TCISImageDllReleaseFun = procedure; stdcall; //车牌处理 CISDllInitFun  = function(): Boolean; stdcall; CISDllReleaseFun = procedure; stdcall; CISProcessFrameFun = function(PimageData: PChar;  width, height, depth, channels: Integer; pPlateChars

char ): Boolean;stdcall; var CISImageHandle: THandle; CubicPlateHandle: THandle;  //图片导入  CISGetImage: TCISGetImageFun; CISLoadImage: TCISLoadImageFun;  CISImageRelease: TCISImageDllReleaseFun; //车牌识别  CISDllInit:CISDllInitFun;  CISDllRelease:CISDllReleaseFun;  CISProcessFrame:CISProcessFrameFun; loadpic: Boolean; // 图像数据指针存放车牌识别字符  PimageData, pPlateChars : PChar;   //,pPlateChars   //pPlateChars:array[0..8] of pchar ;  //图像宽度  图像高度图像深度图像通道数  Pwidth,  pheight, Pdepth, Pchannels: PInteger; width,  height, depth, channels: Integer; //计时  //计时频率   c1:int64;  // 起始时间结束时间   t1,t2:int64;  //用去时间   r1:double;   xxs :   Boolean;   Tp,Tp2:TFarProc; begin  new(PimageData);  New(Pwidth);  New(pheight);  New(Pdepth);  New(Pchannels);  New(pPlateChars);    //申请内存保存车拍  getmem(pPlateChars, 8);  //计时开始    QueryPerformanceFrequency(c1);//WINDOWS API 返回计数频率(Intel86:1193180)(获得系统的高性能频率计数器在一毫秒内的震动次数)    QueryPerformanceCounter(t1);//WINDOWS API 获取开始计数值  //图片导入、  CISImageHandle := LoadLibrary('CISImage.dll');  if CISImageHandle > 0 then   try    Tp := GetProcAddress(CISImageHandle, PChar('CISLoadImage'));   CISLoadImage := TCISLoadImageFun(Tp);   @CISGetImage := GetProcAddress(CISImageHandle, PChar('CISGetImage'));   @CISImageRelease :=  GetProcAddress(CISImageHandle,PChar('CISImageDllRelease'));   if Tp <> nil  then // or (CISLoadImage = nil)   begin   loadpic := CISLoadImage('1024.jpg');   if loadpic then     CISGetImage(@PimageData, Pwidth,  Pheight,Pdepth, Pchannels);   ShowMessage(IntToStr(Pwidth^) + ':' + IntToStr(pheight^) + ':'  + IntToStr(Pdepth^) + ':' + IntToStr(Pchannels^));      //车牌识别    CubicPlateHandle := LoadLibrary('CubicPlate.dll');    if  CubicPlateHandle <=0 then exit;      Tp2 := GetProcAddress(CubicPlateHandle, PChar('CISDllInit'));      CISDllInit := CISDllInitFun(Tp2);      @CISProcessFrame := GetProcAddress(CubicPlateHandle, PChar('CISProcessFrame'));       @CISDllRelease  := GetProcAddress(CubicPlateHandle, PChar('CISDllRelease'));   if Tp2 <> nil then      xxs :=CISDllInit()    else exit;      xxs :=CISProcessFrame(PimageData,Pwidth^, Pheight^, Pdepth^, Pchannels^,pPlateChars);     if xxs then      Edit1.Text := pPlateChars     else      Edit1.Text := '无法识别';   // 计时结束    QueryPerformanceCounter(t2);//获取结束计数值 //   r1:=(t2-t1)/c1*1000;//取得计时时间，单位毫秒(ms)    r1:=(t2-t1)/c1*1000000;//取得计时时间，单位微秒   // showmessage(floattostr(r1);   IntToStr(width) + ':' + IntToStr(height) + ':'      + IntToStr(depth) + ':' + IntToStr(channels)+':'+    ShowMessage( pPlateChars  +'  共用去时间'+floattostr(r1)+ '微秒');   end   else      ShowMessage( 'CISGetImage函数没有找到');    finally    if  CubicPlateHandle  >0 then    begin     CISDllRelease;     FreeLibrary(CubicPlateHandle);    end;     CISImageRelease;     FreeLibrary(CISImageHandle); // Dispose(PimageData); //    Dispose(Pwidth); //    Dispose(pheight); //    Dispose(Pdepth); //    Dispose(Pchannels);    freemem (pPlateChars);  end; end; procedure TForm1.Button2Click(Sender: TObject); begin close; end; end.

delphi 精度记时 api方法(20分)

lanxy

Unregistered / Unconfirmed

网中戏

Unregistered / Unconfirmed

weiliu

Unregistered / Unconfirmed

xeen

Unregistered / Unconfirmed

lanxy

Unregistered / Unconfirmed

lanxy

Unregistered / Unconfirmed

Similar threads