• 　　时间：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次