parallelportapi.pas

delphi 并口控制信号开发接口 源代码

//!
//!-----------------------------------------------------------------------------
//!       Name            ParallelPortAPI.PAS
//!       Purpose         Device Driver Interface for Win32s,WinNT/XP/2000
//!       Development Kit Borland Delphi 7.00
//!       Author          Chen XianYu
//!       Date            2005/9/28
//!
//!
//!       Description     Ver 1.0
//!
//!
//!-----------------------------------------------------------------------------
//!


Unit ParallelPortAPI;

Interface

  Function InitializeWinIo():Boolean;StdCall;
  Procedure ShutdownWinIo();StdCall;
  Function MapPhysToLin(pbPhysAddr:PBYTE;dwPhysSize:LongWord;pPhysicalMemoryHandle:THandle):PByte;StdCall;
  Function UnmapPhysicalMemory(PhysicalMemoryHandle:THANDLE;pbLinAddr:PBYTE):Boolean;StdCall;
  Function GetPhysLong(pbPhysAddr:PBYTE;pdwPhysVal:PLongWord ):Boolean;StdCall;
  Function SetPhysLong(pbPhysAddr:PBYTE;dwPhysVal:LongWord):Boolean;StdCall;
  Function GetPortVal(wPortAddr:WORD;pdwPortVal:PLongWord;bSize:BYTE):Boolean;StdCall;
  Function SetPortVal(wPortAddr:WORD; dwPortVal:LongWord; bSize:BYTE):Boolean;StdCall;
  Function InstallWinIoDriver(pszWinIoDriverPath:PString; IsDemandLoaded:Boolean=false):Boolean;StdCall;
  Function RemoveWinIoDriver():Boolean;StdCall;

  Function StartWinIoDriver():Boolean;StdCall;
  Function StopWinIoDriver():Boolean;StdCall;

implementation

  Function InitializeWinIo;far;external 'winio.dll';
  Procedure ShutdownWinIo;far;external 'winio.dll';
  Function MapPhysToLin;far;external 'winio.dll';
  Function UnmapPhysicalMemory;far;external 'winio.dll';
  Function GetPhysLong;far;external 'winio.dll';
  Function SetPhysLong;far;external 'winio.dll';
  Function GetPortVal;far;external 'winio.dll';
  Function SetPortVal;far;external 'winio.dll';
  Function InstallWinIoDriver;far;external 'winio.dll'; 
  Function RemoveWinIoDriver;far;external 'winio.dll'; 

  Function StartWinIoDriver;far;external 'winio.dll'; 
  Function StopWinIoDriver;far;external 'winio.dll'; 

end.