小于 1ms 定时调用
请问在 BCB 6.0 中 小于 1ms 的定时调用该用哪个控件？ 转一篇：（讲的是Visual C++的，但可以参考）三种Windows中的定时或计时方法，精度小于1ms，达到微秒级2007-10-08 11:02 -------------------------------------------------------------------------------
三种Windows中的定时或计时方法
--------------------------------------------------------------------------------
---- 随着软硬件的飞速发展，计算机技术已经广泛地应用到自动化控制领域，为了实现实时控制，控制程序应该能够精确地完成定时和计时。Visual C++提供了很多关于时间操作的函数，下面根据它们精度的不同，分别进行说明。
---- 任何Visual C++的程序员都会利用Windows的WM_TIMER消息映射来进行简单的时间控制：1、调用函数SetTimer()设置定时间隔，如SetTimer(0,200,NULL)即为设置200毫秒的时间间隔；2、在应用程序中增加定时响应函数OnTimer()，并在该函数中添加响应的处理语句，用来完成定时时间到时的操作。这种定时方法是非常简单的，但其定时功能如同Sleep()函数的延时功能一样，精度非常低，只可以用来实现诸如位图的动态显示等对定时精度要求不高的情况，但在精度要求较高的条件下，这种方法应避免采用。
---- 在要求误差不大于1毫秒的情况下，可以采用GetTickCount()函数(如果读者仍然使用Windows3.1，可以使用GetCurrentTime()函数)，该函数的返回值是DWORD型，表示以毫秒为单位的计算机启动后经历的时间间隔。使用下面的编程语句，可以实现50毫秒的精确定时，其误差小于1毫秒。以下语句已经使用在大连理工大学海岸和近海工程国家重点实验室为广东省水利水电科学研究所研制开发的液压伺服多向不规则造波机系统的控制程序中。
DWORD dwStart, dwStop ; // 起始值和中止值
dwStop = GetTickCount();
while(TRUE)
{
dwStart = dwStop ; // 上一次的中止值变成新的起始值
// …… 此处添加相应控制语句 ……
do
{
dwStop = GetTickCount() ;
} while(dwStop - 50 < dwStart) ;
}
---- 对于一般的实时控制，使用GetTickCount()函数就可以满足精度要求。但作者在为大连基康公司编写快速计数程序时，发现使用GetTickCount()函数对计数结果产生很大影响。为了进一步提高计时精度，作者使用了QueryPerformanceFrequency()函数和QueryPerformanceCounter()函数。这两个函数是Visual C++提供的仅供Windows 95及其后续版本使用的高精度时间函数，并要求计算机从硬件上支持高精度计时器。QueryPerformanceFrequency()函数和QueryPerformanceCounter()函数的原型为：
BOOL QueryPerformanceFrequency
(LARGE_INTEGER *lpFrequency) ;
BOOL QueryPerformanceCounter
(LARGE_INTEGER *lpCount) ;
---- 数据类型LARGE_INTEGER既可以是一个作为8字节长的整型数，也可以作为两个4字节长的整型数的联合结构，其具体用法根据编译器是否支持64位而定。该类型的定义如下：
typedef union _LARGE_INTEGER
{
struct
{
DWORD LowPart ; // 4字节整型数
LONG HighPart ; // 4字节整型数
};
LONGLONG QuadPart ; // 8字节整型数
} LARGE_INTEGER ;
---- 在进行计时之前，应该先调用QueryPerformanceFrequency()函数获得机器内部计时器的时钟频率。作者在主频为266、300、333的三种PentiumⅡ机器上使用该函数，得到的时钟频率都是1193180Hz。接着，作者在需要严格计时的事件发生之前和发生之后分别调用QueryPerformanceCounter()函数，利用两次获得的计数之差和时钟频率，就可以计算出事件经历的精确时间。下面的程序是用来测试函数Sleep(100)的精确持续时间。
LARGE_INTEGER litmp ;
LONGLONG QPart1,QPart2 ;
double dfMinus, dfFreq, dfTim ;
QueryPerformanceFrequency(&litmp) ;
// 获得计数器的时钟频率
dfFreq = (double)litmp.QuadPart ;
QueryPerformanceCounter(&litmp) ;
// 获得初始值
QPart1 = litmp.QuadPart ;
Sleep(100) ;
QueryPerformanceCounter(&litmp) ;
// 获得中止值
QPart2 = litmp.QuadPart ;
dfMinus = (double)(QPart2 - QPart1) ;
dfTim = dfMinus / dfFreq ;
// 获得对应的时间值
---- 执行上面程序，得到的结果为dfTim=0.097143767076216(秒)，细心的读者会发现，每次执行的结果都不一样，存在一定的差别，这是由于Sleep()自身的误差所致。
---- 本文介绍了三种定时或计时的实现方法，读者可以根据自己的实际情况进行选择，以达到程序的定时和计时功能。以上程序均使用Visual C++5.0和6.0在Windows98下调试通过。 VC中基于 Windows 的精确定时（后面提供VC源代码工程文件下载）
中国科学院光电技术研究所 游志宇
在工业生产控制系统中，有许多需要定时完成的操作，如定时显示当前时间，定时刷新屏幕上的进度条，上位 机定时向下位机发送命令和传送数据等。特别是在对控制性能要求较高的实时控制系统和数据采集系统中，就更需要精确定时操作。
众所周知，Windows 是基于消息机制的系统，任何事件的执行都是通过发送和接收消息来完成的。 这样就带来了一些问题，如一旦计算机的CPU被某个进程占用，或系统资源紧张时，发送到消息队列 中的消息就暂时被挂起，得不到实时处理。因此，不能简单地通过Windows消息引发一个对定时要求 严格的事件。另外，由于在Windows中已经封装了计算机底层硬件的访问，所以，要想通过直接利用 访问硬件来完成精确定时，也比较困难。所以在实际应用时，应针对具体定时精度的要求，采取相适 应的定时方法。
VC中提供了很多关于时间操作的函数，利用它们控制程序能够精确地完成定时和计时操作。本文详细介绍了 VC中基于Windows的精确定时的七种方式，如下图所示：
http://cache.amobbs.com/bbs_upload782111/files_13/ourdev_429860.gif
(原文件名:VC中基于windows的精确定时.gif)
方式一：VC中的WM_TIMER消息映射能进行简单的时间控制。首先调用函数SetTimer()设置定时 间隔，如SetTimer(0,200,NULL)即为设置200ms的时间间隔。然后在应用程序中增加定时响应函数 OnTimer()，并在该函数中添加响应的处理语句，用来完成到达定时时间的操作。这种定时方法非常 简单，可以实现一定的定时功能，但其定时功能如同Sleep()函数的延时功能一样，精度非常低，最小 计时精度仅为30ms，CPU占用低，且定时器消息在多任务操作系统中的优先级很低，不能得到及时响 应，往往不能满足实时控制环境下的应用。只可以用来实现诸如位图的动态显示等对定时精度要求不高的情况。如示例工程中的Timer1。
方式二：VC中使用sleep()函数实现延时，它的单位是ms，如延时2秒，用sleep(2000)。精度非常 低，最小计时精度仅为30ms，用sleep函数的不利处在于延时期间不能处理其他的消息，如果时间太 长，就好象死机一样，CPU占用率非常高，只能用于要求不高的延时程序中。如示例工程中的Timer2。
方式三：利用COleDateTime类和COleDateTimeSpan类结合WINDOWS的消息处理过程来实现秒级延时。如示例工程中的Timer3和Timer3_1。以下是实现2秒的延时代码：
COleDateTime start_time = COleDateTime::GetCurrentTime();
COleDateTimeSpanend_time= COleDateTime::GetCurrentTime()-start_time;
while(end_time.GetTotalSeconds()< 2) //实现延时2秒
{
MSG msg;
GetMessage(&msg,NULL,0,0);
TranslateMessage(&msg);
DispatchMessage(&msg);
//以上四行是实现在延时或定时期间能处理其他的消息，
//虽然这样可以降低CPU的占有率，
//但降低了延时或定时精度，实际应用中可以去掉。
end_time = COleDateTime::GetCurrentTime()-start_time;
}//这样在延时的时候我们也能够处理其他的消息。
方式四：在精度要求较高的情况下，VC中可以利用GetTickCount()函数，该函数的返回值是DWORD型，表示以ms为单位的计算机启动后经历的时间间隔。精度比WM_TIMER消息映射高，在较 短的定时中其计时误差为15ms，在较长的定时中其计时误差较低，如果定时时间太长，就好象死机一样，CPU占用率非常高，只能用于要求不高的延时程序中。如示例工程中的Timer4和Timer4_1。下列代码可以实现50ms的精确定时：
DWORD dwStart = GetTickCount();
DWORD dwEnd = dwStart;
do
{
dwEnd = GetTickCount()-dwStart;
}while(dwEnd <50);
为使GetTickCount()函数在延时或定时期间能处理其他的消息，可以把代码改为：
DWORD dwStart = GetTickCount();
DWORD dwEnd = dwStart;
do
{
MSG msg;
GetMessage(&msg,NULL,0,0);
TranslateMessage(&msg);
DispatchMessage(&msg);
dwEnd = GetTickCount()-dwStart;
}while(dwEnd <50);
虽然这样可以降低CPU的占有率，并在延时或定时期间也能处理其他的消息，但降低了延时或定时精度。
方式五：与GetTickCount()函数类似的多媒体定时器函数DWORD timeGetTime(void)，该函数定时精 度为ms级，返回从Windows启动开始经过的毫秒数。微软公司在其多媒体Windows中提供了精确定时器的底 层API持，利用多媒体定时器可以很精确地读出系统的当前时间，并且能在非常精确的时间间隔内完成一 个事件、函数或过程的调用。不同之处在于调用DWORD timeGetTime(void) 函数之前必须将 Winmm.lib和 Mmsystem.h 添加到工程中，否则在编译时提示DWORD timeGetTime(void)函数未定义。由于使用该 函数是通过查询的方式进行定时控制的，所以，应该建立定时循环来进行定时事件的控制。如示例工程中的Timer5和Timer5_1。
方式六：使用多媒体定时器timeSetEvent()函数，该函数定时精度为ms级。利用该函数可以实现周期性的函数调用。如示例工程中的Timer6和Timer6_1。函数的原型如下：
MMRESULT timeSetEvent（ UINT uDelay,
UINT uResolution,
LPTIMECALLBACK lpTimeProc,
WORD dwUser,
UINT fuEvent ）
该函数设置一个定时回调事件，此事件可以是一个一次性事件或周期性事件。事件一旦被激活，便调用指定的回调函数， 成功后返回事件的标识符代码，否则返回NULL。函数的参数说明如下：
uDelay：以毫秒指定事件的周期。
Uresolution：以毫秒指定延时的精度，数值越小定时器事件分辨率越高。缺省值为1ms。
LpTimeProc：指向一个回调函数。
DwUser：存放用户提供的回调数据。
FuEvent：指定定时器事件类型：
TIME_ONESHOT：uDelay毫秒后只产生一次事件
TIME_PERIODIC ：每隔uDelay毫秒周期性地产生事件。
具体应用时，可以通过调用timeSetEvent()函数，将需要周期性执行的任务定义在LpTimeProc回调函数 中(如：定时采样、控制等)，从而完成所需处理的事件。需要注意的是，任务处理的时间不能大于周期间隔时间。另外，在定时器使用完毕后， 应及时调用timeKillEvent()将之释放。
方式七：对于精确度要求更高的定时操作，则应该使用QueryPerformanceFrequency()和 QueryPerformanceCounter()函数。这两个函数是VC提供的仅供Windows 95及其后续版本使用的精确时间函数，并要求计算机从硬件上支持精确定时器。如示例工程中的Timer7、Timer7_1、Timer7_2、Timer7_3。
QueryPerformanceFrequency()函数和QueryPerformanceCounter()函数的原型如下：
BOOLQueryPerformanceFrequency(LARGE_INTEGER ＊lpFrequency);
BOOLQueryPerformanceCounter(LARGE_INTEGER ＊lpCount);
数据类型ARGE_INTEGER既可以是一个8字节长的整型数，也可以是两个4字节长的整型数的联合结构， 其具体用法根据编译器是否支持64位而定。该类型的定义如下：
typedef union _LARGE_INTEGER
{
struct
{
DWORD LowPart ;// 4字节整型数
LONGHighPart;// 4字节整型数
};
LONGLONG QuadPart ;// 8字节整型数
}LARGE_INTEGER ;
在进行定时之前，先调用QueryPerformanceFrequency()函数获得机器内部定时器的时钟频率， 然后在需要严格定时的事件发生之前和发生之后分别调用QueryPerformanceCounter()函数，利用两次获得的计数之差及时钟频率，计算出事件经 历的精确时间。下列代码实现1ms的精确定时：
LARGE_INTEGER litmp;
LONGLONG QPart1,QPart2;
double dfMinus, dfFreq, dfTim;
QueryPerformanceFrequency(&litmp);
dfFreq = (double)litmp.QuadPart;// 获得计数器的时钟频率
QueryPerformanceCounter(&litmp);
QPart1 = litmp.QuadPart;// 获得初始值
do
{
QueryPerformanceCounter(&litmp);
QPart2 = litmp.QuadPart;//获得中止值
dfMinus = (double)(QPart2-QPart1);
dfTim = dfMinus / dfFreq;// 获得对应的时间值，单位为秒
}while(dfTim<0.001);
其定时误差不超过1微秒，精度与CPU等机器配置有关。 下面的程序用来测试函数Sleep(100)的精确持续时间：
LARGE_INTEGER litmp;
LONGLONG QPart1,QPart2;
double dfMinus, dfFreq, dfTim;
QueryPerformanceFrequency(&litmp);
dfFreq = (double)litmp.QuadPart;// 获得计数器的时钟频率
QueryPerformanceCounter(&litmp);
QPart1 = litmp.QuadPart;// 获得初始值
Sleep(100);
QueryPerformanceCounter(&litmp);
QPart2 = litmp.QuadPart;//获得中止值
dfMinus = (double)(QPart2-QPart1);
dfTim = dfMinus / dfFreq;// 获得对应的时间值，单位为秒
由于Sleep()函数自身的误差，上述程序每次执行的结果都会有微小误差。下列代码实现1微秒的精确定时：
LARGE_INTEGER litmp;
LONGLONG QPart1,QPart2;
double dfMinus, dfFreq, dfTim;
QueryPerformanceFrequency(&litmp);
dfFreq = (double)litmp.QuadPart;// 获得计数器的时钟频率
QueryPerformanceCounter(&litmp);
QPart1 = litmp.QuadPart;// 获得初始值
do
{
QueryPerformanceCounter(&litmp);
QPart2 = litmp.QuadPart;//获得中止值
dfMinus = (double)(QPart2-QPart1);
dfTim = dfMinus / dfFreq;// 获得对应的时间值，单位为秒
}while(dfTim<0.000001);
其定时误差一般不超过0.5微秒，精度与CPU等机器配置有关。(完)
示例中的源代码工程下载：
点击此处下载 ourdev_429874.rar(文件大小:29K) (原文件名:multitimerdemo.rar) 接上楼：
为了找更短的定时才找到这个文章，但我发现如果实现小于1ms的定时，这些方法都很困难，主要的原因在于使用了太多的CPU（这些方法都是在一个循环中不停检查），这是不能符号要求的。因此必须找到一个新的方法。
在别人提示的情况下，发现socket的select函数有一个使用微秒的等待时间，看下这个函数的原型：
int select(
int nfds,
fd_set* readfds,
fd_set* writefds,
fd_set* exceptfds,
const struct timeval* timeout
);
第四个参数就是我想要设置的。timeval结构如下：
typedef struct timeval {long tv_sec;long tv_sec;long tv_sec;long tv_usec;
} timeval;
Members
tv_sec Time value, in seconds. tv_usec Time value, in microseconds.
显然，我可以设置微秒的等待时间。
因此如果在select的调用时间内，没有read，wirte和异常时间发生，函数会在timeout时间过后返回，那么就可以实现了定时调用的功能。
基本实现步骤：
1。创建一个线程，建立一个accept的socket。异步的socket。
2。创建另一个线程，用来建立一个socket来连接那个accept的异步的socket。
3。连接建立好之后，使用select函数来查询在socket发生的事件，由于不发送数据，接受数据等，所以每次select都在timeout时间结束后返回，在这个时候执行需要的代码。
我最终得到的结果是CPU使用率在10%-20%(机器不同可能不同），定时精度在0.8ms。基本达到要求。
实现代码：
点击此处下载 ourdev_429910.rar(文件大小:2K) (原文件名:TimeThread.rar) API:QueryPerformanceCounter可以实现,但需要占用较多的CPU资源,而且线程优先级必须提到最大,否则也不准确的
Windows不是实时系统,小于us级别的定时,如果要精度,必须在Ring0驱动完成 太占系统资源 如果不要求定时准确，只是利用 PC 空闲时间快速处理，有简单方法吗？ 有个问题想问，VC中每一条指令要多长的时间才能完成。 WIN中RING3实时是不能保证的,即使用QueryPerformanceCounter,如果来个RING0的处理,时间是要比期望的大.所以最别指望性能,特别是商用程序,你不能肯定客户PC中正跑几个程序,如果客户自己还有个驱动级程序在跑,那你那程序就丧失了时间精度,客户完全可以说你的指标不行 LS的正解~R3程序只能做到mS的精度,对于1mS都不可靠了
uS必须用驱动而且IRQL要最高,这会导致系统可用性大大下降 学习了. mark
页:
[1]