{ -----------------------------------------------------------------------------} { Copyright 2000-2001, Zloba Alexander. All Rights Reserved. } { This unit can be freely used and distributed in commercial and private } { environments, provided this notice is not modified in any way. } { -----------------------------------------------------------------------------} { Feel free to contact me if you have any questions, comments or suggestions at} { zal@specosoft.com (Zloba Alexander) } { You can always find the latest version of this unit at: } { http://www.specosoft.com } { -----------------------------------------------------------------------------} { Date last modified: 08/10/2001 } { -----------------------------------------------------------------------------} { ZLPortIO driver interface unit v1.20 } { -----------------------------------------------------------------------------} { Description: } { This unit allow your application direct access port input and output under } { all versions of Microsoft Windows� } { Depends: } { zlportio.sys ddkint.pas } { You must distribute zlportio.sys with your application } { Procedures and functions: } { procedure zlioportread( const Port,DataType:dword ):dword; } { procedure zlioportwrite( const Port,DataType,Data:dword ); } { } { function portreadb( const Port:dword ):byte; } { function portreadw( const Port:dword ):word; } { function portreadl( const Port:dword ):dword; } { } { procedure portwriteb( const Port:Dword;const Data:byte ); } { procedure portwritew( const Port:dword;const Data:word ); } { procedure portwritel( const Port,Data:dword ); } { } { Examples: } { // get data bits from LPT port } { databits := portreadb( $378 ) } { // set data bits from LPT port } { portwriteb( $378, databits ) } { // The second parameter determine the databus length for operation } { -----------------------------------------------------------------------------} { Revision History: } { 1.00: + First public release } { 1.10: + Added new functions (portreadX,portwriteX) for convenience of usage } { 1.20: + Added new function (zliosetiopm) for enabling direct access to ports} { 1.30: + added compiler directives for correct compilation } { 1.40: + added opportunity to run multiply instances client to driver } { 1.50: - fixed bug with work under win98 } {------------------------------------------------------------------------------} {$A-,H-} unit zlportio; interface uses windows, sysutils, ddkint; Const ZLIO_BYTE = 0; ZLIO_WORD = 1; ZLIO_DWORD = 2; var // if TRUE then driver was started // in other case something wrong // We start driver in initialization section of unit. ZlIOStarted:boolean = false; // if TRUE then we can use asm IN,OUT under NT/2000 // see zliosetiopm for more details ZlIODirect:boolean = false; // handle to opened driver HZLIO:THandle; function portreadb( const Port:dword ):byte; function portreadw( const Port:dword ):word; function portreadl( const Port:dword ):dword; procedure portwriteb( const Port:Dword;const Data:byte ); procedure portwritew( const Port:dword;const Data:word ); procedure portwritel( const Port,Data:dword ); procedure zlioportwrite( const Port,DataType,Data:dword ); function zlioportread( const Port,DataType:dword ):dword; // if you need the best perfomance for your IO operations // call zliosetiopm(TRUE). This allow your application // to use asm command IN,OUT directly in your code. procedure zliosetiopm( const Direct:boolean ); // internal function zliostart:boolean; procedure zliostop; implementation const ZLIODriverName='zlportio'; var IOCTL_ZLUNI_PORT_READ:cardinal; IOCTL_ZLUNI_PORT_WRITE:cardinal; IOCTL_ZLUNI_IOPM_ON:cardinal; IOCTL_ZLUNI_IOPM_OFF:cardinal; type TzlIOData = record Port,DataType,Data:dword; end; procedure zlioportwrite( const Port,DataType,Data:dword ); var resdata:TZLIOData; cBR:cardinal; begin if (not ZLIODirect) then begin resdata.Port := Port; resdata.Data := Data; resdata.DataType := DataType; if ZLIOStarted then DeviceIoControl(HZLIO,IOCTL_ZLUNI_PORT_WRITE,@resdata,sizeof(resdata),nil,0,cBR,nil ); end else begin Case DataType of ZLIO_BYTE : asm mov edx,Port;mov eax,data;out dx,al; end; ZLIO_WORD : asm mov edx,Port;mov eax,data;out dx,ax; end; ZLIO_DWORD: asm mov edx,Port;mov eax,data;out dx,eax; end; end; end; end; function zlioportread(const Port,DataType:dword):dword; var resdata:TZLIOData; cBR:cardinal;i:dword; begin if (not ZLIODirect) then begin resdata.Port := Port; resdata.DataType := DataType; if ZLIOStarted then DeviceIoControl(HZLIO,IOCTL_ZLUNI_PORT_READ,@resdata,sizeof(resdata),@i,sizeof(dword),cBR,nil ); end else begin Case DataType of ZLIO_BYTE : asm mov edx,Port;xor eax,eax;in al,dx;mov i,eax; end; ZLIO_WORD : asm mov edx,Port;xor eax,eax;in ax,dx;mov i,eax; end; ZLIO_DWORD: asm mov edx,Port;xor eax,eax;in eax,dx;mov i,eax end; end; end; result := i; end; function portreadb( const Port:dword ):byte; begin Result := zlioportread(Port,ZLIO_BYTE); end; function portreadw( const Port:dword ):word; begin Result := zlioportread(Port,ZLIO_WORD); end; function portreadl( const Port:dword ):dword; begin Result := zlioportread(Port,ZLIO_DWORD); end; procedure portwriteb( const Port:Dword;const Data:byte ); begin zlioportwrite(Port,ZLIO_BYTE,Data); end; procedure portwritew( const Port:dword;const Data:word ); begin zlioportwrite(Port,ZLIO_WORD,Data); end; procedure portwritel( const Port,Data:dword ); begin zlioportwrite(Port,ZLIO_DWORD,Data); end; procedure zliosetiopm( const Direct:boolean ); var cBR:cardinal; begin if Win32Platform=VER_PLATFORM_WIN32_NT then if ZLIOStarted then begin if Direct then DeviceIoControl(HZLIO,IOCTL_ZLUNI_IOPM_ON,nil,0,nil,0,cBR,nil ) else DeviceIoControl(HZLIO,IOCTL_ZLUNI_IOPM_OFF,nil,0,nil,0,cBR,nil ); ZLIODirect := Direct; end end; function zliostart; var dir:shortstring; begin if Win32Platform<>VER_PLATFORM_WIN32_NT then begin result := true; exit; end; // Result := false; zliostop; dir := ExtractFileDir(ParamStr(0))+'\'+ZLIODriverName+'.sys'#0; driverinstall(pchar(@dir[1]),ZLIODriverName+#0); Result := driverstart(ZLIODriverName) = 0; end; procedure zliostop; begin if Win32Platform<>VER_PLATFORM_WIN32_NT then exit; driverstop(ZLIODriverName); driverremove(ZLIODriverName); end; function zlioopen( var Handle:thandle):boolean; var cERR:integer; s:string; begin if Win32Platform<>VER_PLATFORM_WIN32_NT then begin result := true; exit; end; Result := false; Handle := THandle(-1); Handle := createFile('\\.\ZLPORTIO', GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0 ); cERR := getlasterror; s := messagestring( cerr); if (cERR = ERROR_ALREADY_EXISTS)or(cERR = ERROR_SUCCESS) then Result := True; end; procedure zlioclose( const Handle:thandle); begin if (Win32Platform=VER_PLATFORM_WIN32_NT) then closehandle(Handle); end; initialization IOCTL_ZLUNI_PORT_READ := CTL_CODE(FILE_DEVICE_KRNLDRVR, 1, METHOD_BUFFERED, FILE_ANY_ACCESS); IOCTL_ZLUNI_PORT_WRITE := CTL_CODE(FILE_DEVICE_KRNLDRVR, 2, METHOD_BUFFERED, FILE_ANY_ACCESS); IOCTL_ZLUNI_IOPM_ON := CTL_CODE(FILE_DEVICE_KRNLDRVR, 3, METHOD_BUFFERED, FILE_ANY_ACCESS); IOCTL_ZLUNI_IOPM_OFF := CTL_CODE(FILE_DEVICE_KRNLDRVR, 4, METHOD_BUFFERED, FILE_ANY_ACCESS); if Win32Platform<>VER_PLATFORM_WIN32_NT then begin zliostarted := true; zliodirect := true; end else begin if not zlioopen(HZLIO) then begin if zliostart then ZLIOStarted := zlioopen(HZLIO) or (Win32Platform<>VER_PLATFORM_WIN32_NT); end else ZLIOStarted := true; end; finalization if ZLIOStarted then zliostop; end.