eventthread.pas

usb4711A数据采集卡的DI转换通道程序

unit EventThread;

interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,Driver,event,Global;

type
  PT_ThreadData = Record
                  lDriverHandle:    Longint;
                  stCounts:         ^TStaticText;
                  stFrequency:      ^TStaticText;
                  stIntSource:      ^TStaticText;
   end;

  TEventThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;

  public
    MData         : PT_ThreadData;
    constructor Create(TData: PT_ThreadData);
  end;

implementation



{ Important: Methods and properties of objects in VCL or CLX can only be used
  in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure TEventThread.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ TEventThread }

constructor TEventThread.Create(TData: PT_ThreadData);
Begin
	MData := TData;

	inherited Create(True);

End;

procedure TEventThread.Execute;
var
    ptCheckEvent: PT_CheckEvent;
    dwStartTime    :Longint;
    dwCurrentTime  :Longint;
    dwTime         :Longint;
    dwEventCount   :Longint;
    ratio          :Single;
    usEventType    :Smallint;
begin
  { Place thread code here }

    dwCount := 0;
    dwEventCount := 0;
    szStatus := '00000000';
    ptCheckEvent.EventType := @usEventType;
    ptCheckEvent.Milliseconds := 1000;
    dwStartTime := GetTickCount();
    while(not Terminated)do
    begin
       if(DRV_CheckEvent(MData.lDriverHandle, ptCheckEvent) = SUCCESS)then
       begin
           case usEventType of
		ADS_EVT_INTERRUPT_DI0:           // interrupt event from DI1
                begin
                    szStatus:='00000001';
                    dwEventCount := dwEventCount+1;
                    dwCount := dwCount+1;
                end;

	        ADS_EVT_INTERRUPT_DI1 :		// interrupt event from DI1
	 	begin
                    szStatus:='00000010';
                    dwEventCount := dwEventCount+1;
                    dwCount := dwCount+1;
    	 	end;

	        ADS_EVT_INTERRUPT_DI2 :          // interrupt event from DI2
                begin
		    szStatus:='00000100';
                    dwEventCount := dwEventCount+1;
                    dwCount := dwCount+1;
                end;

		ADS_EVT_INTERRUPT_DI3 :		// interrupt event from DI3
		begin
                    szStatus:='00001000';
                    dwEventCount := dwEventCount+1;
                    dwCount := dwCount+1;
                end;

                ADS_EVT_INTERRUPT_DI4 :		// interrupt event from DI4
                begin
		    szStatus:='00010000';
                    dwEventCount := dwEventCount+1;
                    dwCount := dwCount+1;
                end;

                ADS_EVT_INTERRUPT_DI5 :		// interrupt event from DI5
                begin
		    szStatus:='00100000';
                    dwEventCount := dwEventCount+1;
                    dwCount := dwCount+1;
             	end;

                ADS_EVT_INTERRUPT_DI6 :		// interrupt event from DI6
                begin
		    szStatus:='01000000';
                    dwEventCount := dwEventCount+1;
                    dwCount := dwCount+1;
                end;

                ADS_EVT_INTERRUPT_DI7 :		// interrupt event from DI7
                begin
		    szStatus:='10000000';
                    dwEventCount := dwEventCount+1;
                    dwCount := dwCount+1;
          	end;

                ADS_EVT_INTERRUPT:
                begin
                    szStatus:='Happened';
                    dwEventCount := dwEventCount+1;
                    dwCount := dwCount+1;
                end
           else

                szStatus:='00000000';
           end;
                

           dwCurrentTime := GetTickCount();
           dwTime := dwCurrentTime - dwStartTime;

           if (dwTime > 1000)then
           begin
               ratio := (dwEventCount / dwTime) * 1000.0;
	       szBuf := FormatFloat('0.000', ratio);
               dwEventCount := 0;
               dwStartTime := GetTickCount();
           end;

          if(dwCount>100000)then
          begin
               dwCount := dwCount - 100000;
          end;

       end;
    end;
end;

end.