global.pas

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

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                  : Integer;
    szErrMsg                : string;
    pszErrMsg               : Pchar = @szErrMsg;
    bRun                    : Boolean;

    lpDioPortMode           : PT_DioSetPortMode;
    lpDioReadPort           : PT_DioReadPortByte;

implementation

end.