global.pas

来自「16 relay output channels and 16 isolated」· PAS 代码 · 共 39 行

unit Global;

interface
uses Driver;
type
    lpDevList = ^PT_DEVLIST;

const MaxEntries = 255;

var
    DeviceHandle            : Longint;
    dwDeviceNum             : Longint;
    ptDevGetFeatures        : PT_DeviceGetFeatures;
    lpDevFeatures           : DEVFEATURES;
    lpDevConfig_AI          : DEVCONFIG_AI;
    DeviceList              : array [0..MaxEntries] of PT_DEVLIST;
    SubDeviceList           : array [0..MaxEntries] of PT_DEVLIST;
    ErrCde                  : Longint;
    szErrMsg                : string[100];
    pszErrMsg               : Pchar = @szErrMsg;
    bRun                    : Boolean;
    fVoltage                : array [0..64] of Single;

    ptAIGetConfig           : PT_AIGetConfig;
    isStartChan             : Boolean;
    usDasChan               : array [0..64] of Smallint;
    usGainCode              : array [0..64] of Smallint;
    usGainIndx              : array [0..64] of Smallint;
    usStartChan             : Smallint;        { Start Channel }
    usStopChan              : Smallint;        { Stop Channel }
    usChanNum               : Smallint;
    usCurrentchan           : Smallint;        { Current Channel }
    AiCtrMode               : Integer;
    ptMAIConfig             : PT_MAIConfig;    { Structure for MAIConfig table }
    ptMAIVoltageIn          : PT_MAIVoltageIn; { Structure for MAIVoltageIn table}
implementation

end.