一个delphi多线程采集数据的实例代码
- 时间:2020-04-18
- 概述:多线程 采集
本代码是通过一个多线程采集类采集网络数据,介绍一个简单的实例,操作要点如下:
1)建立Form,在其中建立两个按钮“开始采集” 和“停止采集”,添加一个PaintBox1。
2)建立一个新的单元,在其中输入以下代码:
unit CollectThread; interface uses Classes,SysUtils,stdctrls,Graphics; type TCollectDataThread = class(TThread) private FPreSetTime:Word; FUsedTime:integer; FCanvas:TCanvas; protected procedure Execute; override; procedure ShowData; public CollectData:array[0..1023]of integer; constructor Create(PresetTime:Word;Canvas:TCanvas); end; implementation {TCollectDataThread} constructor TCollectDataThread.Create(PreSetTime:Word;Canvas:TCanvas); var i:integer; begin for i:=0 to 1023 do CollectData[i]:=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 < FPresetTime do begin FUsedTime:=FUsedTime+1; flag:=0; // 数据准备好标志 {由于您在调试程序时没有硬件支持,所以建议您使用下面的这段程序来 模拟硬件的工作,} for i:=0 to 9000000 do //产生迟延, flag:=i; if flag>0 then begin CollectData[FUsedTime]:=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 CollectData[FUsedTime]:=inportw($342); end; flag:=flag and $10; // 恢复数据准备好标志 end; // end while not flag=0 until(flag=0); Synchronize(ShowData); //同步调用数据显示函数 } end; //while FUsedtime<FPresetTime DoTerminate; //时间到后线程终止 end; // 在指定的画布上显示采集到的数据; procedure TCollectDataThread.ShowData; begin FCanvas.Pixels[2*FUsedTime,80+CollectData[FUsedTime]]:=clRed; end; end.
3)在Form的单元文件中声明变量CollTestThread:TCollectDataThread,并在Form的OnCreate事件中加入以下代码:
CollTestThread:= TCollectDataThread.Create(500,PaintBox1.Canvas);
4)在“开始采集”按钮的OnClick事件中加入以下代码:
CollTestThread.Resume;
5)在“暂停采集”按钮的OnClick事件中加入以下代码:
CollTestThread.Suspend;
用户可以利用前面所提到的Synchronize函数来窗体,或者使用定时器定期刷新屏幕,这两种方式都可以间隔一定时间显示采集数据情况。
相关内容:
- Delphi多线程采集中的4个端口操作函数2020-04-18阅读0次
相关声明:
- 若“一个delphi多线程采集数据的实例代码”有损您的权益,请告之我们删除内容。
部分文章来源于网络,版权归原作者所有。