当前位置: 源码素材网 » Delphi教程 » 详情页

一个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多线程采集数据的实例代码”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。