工控中使用的精确延时函数

作者 admin

2012年10月1日 1 分钟阅读

在工控领域，对时间的要求都很高，Delphi中自带的几个延时、定时器都是基于Windows消息机制，不是很准，只能用在对时间要求不高的地方。
下面的函数可以实现快速准确延时：

// 延时函数，MSecs单位为毫秒(千分之1秒)
procedure Delay(MSecs: Longint);
var
  FirstTickCount, Now: Longint;
begin
  FirstTickCount := GetTickCount();
  repeat
    Application.ProcessMessages;
    Now := GetTickCount();
  until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;

// 延时函数，MSecs单位为毫秒(千分之1秒)

procedure Delay(MSecs: Longint);

var

FirstTickCount, Now: Longint;

begin

FirstTickCount := GetTickCount();

repeat

Application.ProcessMessages;

Now := GetTickCount();

until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);

end;

admin

关注我

其他文章

上一个

Modbus协议CRC的两种算法源码

下一个

摩托罗拉GP2000写频、扩频软件GP2000_R01.07

一条评论

iLuffy说道：

2017年12月27日 14:57

GetTickCount();如果开机时间大于47天可能引起错误

回复

发表回复取消回复

这个站点使用 Akismet 来减少垃圾评论。了解你的评论数据如何被处理。