项目总结（一）——延时函数Delay

 

       暑假花了一个多月的时间，和另一个同学合作完成了《实用英语语音教程》一书的配套辅助学习系统的开发，以下是我完成这一项目后的一些总结，记录实际项目编程中的一些知识。

 

项目实际需求介绍

（1）题目：听录音，标出被朗读的单词。

（2）说明：每小题有四个选项，随机朗读其中的两项，一个界面放5小题，播放完自动显示下5题内容。如下图所示:

 

（3）要求：播放每题的两个选项（单词）之间，每小题之间及每页切换间隔为0.3～2.5秒（这个时间可调），关键是能及时响应学习者点击选中的选项。这个延时及响应在切换页时尤为重要，如果延时不够及界面假死，则学习者不能勾中第5题的的选项。

 

 

        播放指定组的MP3音频，中间需短暂停顿（0.5～2.5秒），如果采用线程调用API播放估计重复创建启动线程比较耗费资源和时间，而采用TMediaPlayer多媒体播放控件加定时器TTimer控件比较容易实现。TMediaPlayer和TTimer都开辟了子线程来处理任务，如何使主线程（主界面线程）在响应定时器“到时（即MediaPlayer中一首MP3播放完）”处理事件中使主线程延时短暂的时间后接着处理任务（即更新界面）？如果使用Sleep函数将挂起程序使界面出现短暂的假死，这对在播放MP3期间还需“及时”响应界面操作是不允许的。而用下面的Delay函数替换Sleep函数可以很好的解决这类问题。

 

 

//***********************************************

//功能：延时函数

//参数：dwMilliseconds，微秒，1000=1秒

//

//***********************************************

procedure Delay(dwMilliseconds:DWORD);

var

nowTick:DWORD;

dt:DWORD;

begin

  Timer1.Enabled:=False;//关闭定时器，延时期间不产生到时消息

  nowTick:=GetTickCount;

  dt:=0;

  while(dt<dwMilliseconds)do

  begin

    Application.ProcessMessages;//分发消息以使及时程序响应

    dt:=GetTickCount-nowTick;

  end;

  Timer1.Enabled:=True;//打开定时器，重新响应到时消息

end;

 

       另：上述Delay函数虽然很好解决实际项目中的问题，但它也有一个致命的弱点：由于采用了循环查询致使CPU占用率过高，达到了50%。但对于这个实际项目是没有多大问题的，因为它维持这个高占用率的时间很短（最多2.5秒），所以在做个练习题时CPU占用率是一会1%，一会50%，不会一直50%的占用率。

 

       解决CPU高占用率的问题有两种方案，一是可以在循环检测中加入一个稍微耗时而不怎么占用CPU的无用操作，如I/O读写等；第二种方案是改进Delay函数，具体留待下一节介绍。