unit4.~pas

求是科技出版的《Delphi串口通信工程开发实例导航》所有的源代码。是一本很好的书。拿出来与大家共享。

//***********************************************
//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:dword;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:dword;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.