请问如何实现1ms以下的精确定时?(200分)

山

山药蛋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-16

• #1

有一个事件需要的执行周期在1ms以下,而且越精确越好,用Timer似乎不行,
那么有什么好的方法吗?谢谢!

 

Z

zxb200

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-16

• #2

這樣看看：
Procedure waittime(time1:integer); //time1單位為毫秒
var begindate:integer;
begin
begindate:=GetTickCount;
while (GetTickCount-begindate)<=time1 do
begin
application.ProcessMessages;
end;
end;

 

天

天真

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-16

• #3

zxb200兄：好象这样也只能执行一次呀，不能象TIMER一样反复执行！

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-16

• #4

学习～

 

H

hclee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-16

• #5

要求不太精确的话可以用线程，准确度为1MS

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-16

• #6

http://www.specosoft.com/download/zlrdtsc.zip

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-16

• #7

RDTSC v1.00 FWS 2K 2001-7-24
作者:Alexander Zloba. 这款控件是奔腾RDTSC指令的封装，使你能够得到十亿分之一秒的时间间隔，而且使用非常简单。

完整功能. 源代码: 有
适用于 D2 D3 D4 D5 D6
http://www.delphibyte.com/download/softdown.php?softid=421&url=http://61.132.118.165/soft/delphi/Delphi3/zlrdtsc.zip

 

落

落雨樵

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-16

• #8

学习

 

Z

zz99

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-16

• #9

to vine
请问大侠，有没有BCB版的。先谢了。

 

山

山药蛋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-17

• #10

to vine:
您给的地址我没法下载,您有现成的文件吗?有的话请发到我的邮箱:
Superpotato@263.NET
谢谢!

 

山

山药蛋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-29

• #11

多人接受答案了。