global.pas

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

unit Global;

interface
uses Driver;
type
    lpDevList = ^PT_DEVLIST;

const MaxEntries = 255;

var
    DeviceHandle            : Longint;
    ptDevGetFeatures        : PT_DeviceGetFeatures;
    DeviceList              : array [0..MaxEntries] of PT_DEVLIST;
    SubDeviceList           : array [0..MaxEntries] of PT_DEVLIST;
    ErrCde                  : Longint;
    szErrMsg                : string[255];
    pszErrMsg               : Pchar = @szErrMsg;
    bRun                    : Boolean;

    AiCtrMode               : Integer;
    AiVolIn                 : PT_AIVoltageIn;
    ptAIConfig              : PT_AIConfig;
    ptAIGetConfig           : PT_AIGetConfig;
implementation

end.