checkform.pas

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

unit CheckForm;

interface

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

type
  TfrmCheck = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    txtInt: TEdit;
    txtBuffChange: TEdit;
    txtValue: TEdit;
    btnExit: TButton;
    prgStatus: TProgressBar;
    tmrCheck: TTimer;
    procedure tmrCheckTimer(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCheck: TfrmCheck;

implementation
uses FrmMain;
{$R *.dfm}
Function ChkErr(lErrCde: Longint): Boolean;
var
  szErrMsg   : string[100];
  pszErrMsg  : PChar;
begin
  If (lErrCde <> 0) Then
  begin
    pszErrMsg := @szErrMsg;
    DRV_GetErrorMessage(lErrCde, pszErrMsg);
    Application.MessageBox(pszErrMsg, 'Error!!', MB_OK);
    ChkErr := True;
  end
  Else
    ChkErr := False;
end;
procedure TfrmCheck.tmrCheckTimer(Sender: TObject);
var
    ptFAICheck :  PT_FAICheck;
    usStopped  : integer;
    ulRetrieved  : integer;
    usOverrun  : integer;
    usHalfReady  : integer;
    usActiveBuf  : integer;

begin

    ptFAICheck.stopped := @usStopped;
    ptFAICheck.retrieved := @ulRetrieved;
    ptFAICheck.overrun := @usOverrun;
    ptFAICheck.HalfReady :=@usHalfReady;
    ptFAICheck.ActiveBuf := @usActiveBuf;

    // Check current status
    ErrCde := DRV_FAICheck(DeviceHandle, ptFAICheck);
   If (ErrCde <> 0 ) Then
   begin
        tmrCheck.Enabled := False;
        exit;
   end;

    if (ulRetrieved = 0) then
        ulRetrieved := 1;

    prgStatus.Position := ulRetrieved - 1;


end;

procedure TfrmCheck.btnExitClick(Sender: TObject);
begin
  tmrCheck.Enabled := False;
  FrmADInt.cmdStopClick(nil);
end;

end.