delphi取毫秒时间

2013-05-22 07:56:41 2.7k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

xiaolinyuanstayup 墨衍会员 · AI 创作全网分发关注 + 加入社区

基于51单片机语音识别智能台灯设计智能台灯；语音识别；STC89C52RC单片机阅读详情

在程序里，我使用的是
t1:=GetTickCount;
t2:=GetTickCount;
r1:=t2-t1;
还用了一个timer，来计时，控制5秒时间，按下一个按钮，计时开始，但是从开始到5秒结束记录下的时间有超过5000毫秒，这是为什么啊？

...全文

BEVFusion实战：从零搭建LiDAR-Camera融合的3D目标检测环境（附避坑指南）本文提供了BEVFusion实战指南，详细讲解如何从零搭建LiDAR-Camera融合的3D目标检测环境。内容涵盖环境配置、数据预处理、模型训练与性能优化等关键步骤，并附有实用的避坑技巧，帮助开发者高效部署这一先进的BEV感知算法。阅读详情

xiaolinyuanstayup

语言基础/算法/系统设计 16,741 成员 33,233 内容

+ 关注 + 加入社区

切换为时间正序

lyhoo163 2016-01-10

打赏
举报

2013年的帖子.....

zscomputer 2016-01-09

打赏
举报

Label3.Caption :=FormatFloat('0',(AWorkCount-lastc)/MilliSecondsBetween(now, lastt))+'kb/s'; sProgressBar2.Position:=AWorkCount; lastc:=AWorkCount; //用ProgressBar1.Position做lastc也可以 //smemo1.Lines.Add(MilliSecondsBetween(now, lastt).ToString()); lastt:=now;

kingzhang132 2013-08-03

打赏
举报

请用多媒体定时器,PC里可以达到1MS级别定时

iamduo 2013-07-30

打赏
举报


uses Windows;

var 
  i1,i2:Int64;
  diff,cc:Int64;
  b:Boolean;
begin
  QueryPerformanceCounter(i1);
...
...
  QueryPerformanceCounter(i2);
  diff := i2 - i1;
  b := QueryPerformanceFrequency(cc); // WINDOWS API 返回计数频率(Intel86:1193180)(获得系统的高性能频率计数器在一毫秒内的震动次数)
  if not b then cc := 1;              // false表示不支持高性能定时器
  Result := Round(diff * 1000 / cc);  // ms
end;

reverzeng 2013-07-16

打赏
举报

http://www.cnblogs.com/sifenkesi/archive/2011/06/01/2065673.html 可以参考一下

lm_whales 2013-07-16

打赏
举报

系统时钟每秒计时约为18.2次 1000/18.2 约为55 ms 即定时器的计时间隔大约是55 ms，再小一点的话，只不过连续计时几次而已，不可能用定时器精确计时的。 timeGetTime 可以精确到毫秒，再精确的话，就要在驱动程序里计时了。而精确计算时间间隔，也比较麻烦。大约要用到RTSC指令。或者 BOOL QueryPerformanceCounter( LARGE_INTEGER *lpPerformanceCount // pointer to counter value ); BOOL QueryPerformanceCounter( LARGE_INTEGER *lpPerformanceCount // pointer to counter value ); 等函数。

「已注销」 2013-07-16

打赏
举报

使用多媒体计时器 timesetevent，可以获得毫秒级的精度

lm_whales 2013-07-16

打赏
举报

1）GetTickCount 即使精度不够。 2）timer 定时器的精度也不够。 3）超过5000毫秒，才是正常的，恰好=5000的几率非常小，不够不会结束计时，只能是大部分时候，都是超过了5000毫秒的了。

kevinsem 2013-05-23

打赏
举报

楼上方法不错，标记

ywx2008 2013-05-22

打赏
举报

starttime:=now(); stoptime := Now(); r1 := MilliSecondsBetween(stoptime, starttime); //取得计时时间，单位毫秒(ms) StatusBar1.Panels.Items[2].Text := '本次查询耗时：' + inttostr(r1) + '毫秒';

rwlin 2013-05-22

打赏
举报

系统滴答时间是准的，关键是timer 不是name精确的，所以不可能那么干吗等于5000 ms

武稀松 2013-05-22

打赏
举报

Timer必然不准啊. Timer是每隔Interval的时间发一个WM_Timer消息的.而消息在消息队列中排队,一个一个处理,WM_Timer消息被处理的时间要看前面消息多少,每个消息处理的时间长短.

sololie 2013-05-22

打赏
举报

没太看懂你要表达啥，贴ontimer里的代码吧

delphi取毫秒时间

相关推荐