global.pas

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

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

    lpDioPortMode           : PT_DioSetPortMode;
    lpDioWritePort          : PT_DioWritePortByte;
    lpDioGetCurrentDOByte   : PT_DioGetCurrentDOByte;

implementation

end.