global.pas

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

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[100];
    pszErrMsg               : Pchar = @szErrMsg;
    bRun                    : Boolean;

    gwPort                  : Smallint;
    dwDeviceNum             : Longint;
    lpReadPortByte          : PT_ReadPortByte;
    lpReadPortWord          : PT_ReadPortWord;
    lpReadPortDword         : PT_ReadPortDword;
    lpWritePortByte         : PT_WritePortByte;
    lpWritePortWord         : PT_WritePortWord;
    lpWritePortDword        : PT_WritePortDword;
implementation

end.