Delphi 多线程实例.doc

Delphi 多线程实例下面笔者将介绍一个简单的实例，解释和说明前面所述的内容。1） 建立Form，在其中建立两个按钮“开始采集” 和“停止采集”，添加一个PaintBox1。2） 建立一个新的单元，在其中输入以下代码：unit CollectThread;interfaceuses Classes,SysUtils,stdctrls,Graphics;type TCollectDataThread = class(TThread) private FPreSetTime:Word; FUsedTime:integer; FCanvas:TCanvas; protected procedure Execute; override; procedure ShowData; public CollectData:array0.1023of integer; constructor Create(PresetTime:Word;Canvas:TCanvas);end;implementation TCollectDataThreadconstructor TCollectDataThread.Create(PreSetTime:Word;Canvas:TCanvas);var i:integer;begin for i:=0 to 1023 do CollectDatai:=0; / 给数据赋初值 FCanvas:=Canvas; FPreSetTime:=PreSetTime; / 预置采集次数 FUsedTime:=0; / 已经采集的次数 inherited Create(true); FreeOnTerminate := True; /当线程终止时自动释放该线程end; procedure TCollectDataThread.Execute;var flag:Byte; address:Byte; i:integer;begin while FUsedTime 0 then begin CollectDataFUsedTime:=round(50.0*sin(3.1415/50*FUsedTime); Synchronize(ShowData); /同步调用数据显示函数 end; 实际上从硬件中采集数据最常用的是如下形式，但是这段程序正常工作需要 相应的I/O接口设支持，所以它仅共参考 repeat begin flag:=inportb($341); / 数据是否准备好标志 flag:=flag and $c0; if (flag=0) then / 如果AD转换的数据准备好 begin CollectDataFUsedTime:=inportw($342); end; flag:=flag and $10; / 恢复数据准备好标志 end; / end while not flag=0 until(flag=0); Synchronize(ShowData); /同步调用数据显示函数 end; /while FUsedtimeFPresetTime DoTerminate; /时间到后线程终止end;/ 在指定的画布上显示采集到的数据；procedure TCollectDataThread.ShowData;begin FCanvas.Pixels2*FUsedTime,80+CollectDataFUsedTime:=clRed; end;end.3） 在Form的单元文件中声明变量CollTestThread:TCollectDataThread，并在Form的OnCreate事件中加入以下代码：CollTestThread:= TCollectDataThread.Create(500,PaintBox1.Canvas);4）在“开始采集”按钮的OnClick事件中加入以下代码：CollTestThread.Resume;5） 在“暂停采集”按钮的OnClick事件中加入以下代码：CollTestThread.Suspend; 用户可以利用前面所提到的Synchronize函数来窗体，或者使用定时器定期刷新屏幕，这两种方式都可以间隔一定时间显示采集数据情况。6、结束语采用上面所述的方法，笔者实现了对心电谱数据的采