unit4.pas

来自「***智能监视系统*** 程序运行时需要视频捕捉设备」· PAS 代码 · 共 30 行

//***********************************************
//WinIO的声明单元
//***********************************************
unit Unit4;

interface

 function InstallWinIoDriver(const PathName: String; Flags: Boolean): Boolean; stdcall;
 function InitializeWinIo():Boolean; stdcall;
 function SetPortVal(PortAddr:Integer;PortVal:Integer;bSize:Byte):Boolean; stdcall;
 function GetPortVal(PortAddr:Integer;pPortVal:pDouble;bSize:Byte):Boolean;stdcall;
 procedure ShutdownWinIo;  stdcall;
 procedure RemoveWinIoDriver; stdcall;

implementation

 function InstallWinIoDriver(const PathName: String; Flags: Boolean): Boolean;
        external 'winio.dll' name 'InstallWinIoDriver';  stdcall;
 function SetPortVal(PortAddr:Integer;PortVal:Integer;bSize:Byte):Boolean;
        external 'winio.dll' name 'SetPortVal';  stdcall;
 function GetPortVal(PortAddr:Integer;pPortVal:pDouble;bSize:Byte):Boolean;
        external 'winio.dll' name 'GetPortVal';  stdcall;
 function InitializeWinIo():Boolean;
        external 'winio.dll' name 'InitializeWinIo'; stdcall;
 procedure ShutdownWinIo;
        external 'winio.dll' name 'ShutdownWinIo'; stdcall;
 procedure RemoveWinIoDriver;
        external 'winio.dll' name 'RemoveWinIoDriver';  stdcall;
end.