tviclib.bas

支持PC机的各种端口的读写,包括,并口,串口,USB,等等

Public Declare Function GetActiveHW Lib "TVicHW32.DLL" (ByVal HW32 As Long) As Long

'-------------------------------------
'--------- Port I/O Group ------------
'-------------------------------------

Public Declare Sub SetHardAccess Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByVal HardAccess As Long)

Public Declare Function GetHardAccess Lib "TVicHW32.DLL" (ByVal HW32 As Long) As Long

Public Declare Function GetPortByte Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByVal PortAddr As Long) As Byte
 
Public Declare Sub SetPortByte Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByVal PortAddr As Long, ByVal nNewValue As Byte)

Public Declare Function GetPortWord Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByVal PortAddr As Long) As Byte

Public Declare Sub SetPortWord Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByVal PortAddr As Long, ByVal nNewValue As Integer)

Public Declare Function GetPortLong Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByVal PortAddr As Long) As Long

Public Declare Sub SetPortLong Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByVal PortAddr As Long, ByVal nNewValue As Long)


Public Declare Sub ReadPortFIFO Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByRef pBuffer As Any)
                
Public Declare Sub ReadPortWFIFO Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByRef pBuffer As Any)

Public Declare Sub ReadPortLFIFO Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByRef pBuffer As Any)
                

Public Declare Sub WritePortFIFO Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByRef pBuffer As Any)
                
Public Declare Sub WritePortWFIFO Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByRef pBuffer As Any)
                 
Public Declare Sub WritePortLFIFO Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByRef pBuffer As Any)

                 
'------------------ Memory Group  -----------------

Public Declare Function MapPhysToLinear Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByVal PhAddr As Long, ByVal nNewValue As Long) As Long
                 
Public Declare Sub UnmapMemory Lib "TVicHW32.DLL" (ByVal HW32 As Long, PhAddr As Long)
                 
Public Declare Function GetMemByte Lib "TVicHW32.DLL" Alias "GetMem" (ByVal HW32 As Long, ByVal MappedAddr As Long, ByVal Offset As Long) As Byte
                 
Public Declare Sub SetMemByte Lib "TVicHW32.DLL" Alias "SetMem" (ByVal HW32 As Long, ByVal MappedAddr As Long, ByVal Offset As Long, ByVal nNewValue As Byte)
                 
Public Declare Function GetMemW Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByVal MappedAddr As Long, ByVal Offset As Long) As Integer
                
Public Declare Sub SetMemW Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByVal MappedAddr As Long, ByVal Offset As Long, ByVal nNewValue As Integer)
                 
Public Declare Function GetMemL Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByVal MappedAddr As Long, ByVal Offset As Long) As Long
                 
Public Declare Sub SetMemL Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByVal MappedAddr As Long, ByVal Offset As Long, ByVal nNewValue As Long)
                 
'-------------------------- IRQ Group  -----------------

Public Declare Function IsIRQMasked Lib "TVicHW32.DLL" (ByVal HW32 As Long, IrqNumber As Integer) As Long
                 
Public Declare Sub UnmaskIRQ Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByVal IrqNumber As Integer, ByVal lpHWHandler As Long)
                 
Public Declare Sub MaskIRQ Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByVal IrqNumber As Integer)
                 
Public Declare Function GetIRQCounter Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByVal IrqNumber As Integer) As Long
                 
'-------------------------- Keyboard Group  -----------------

Public Declare Sub PutScanCode Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByVal scan_code As Byte)

Public Declare Function GetScanCode Lib "TVicHW32.DLL" (ByVal HW32 As Long) As Byte

Public Declare Sub HookKeyboard Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByVal KbdHandler As Long)
                
Public Declare Sub UnhookKeyboard Lib "TVicHW32.DLL" (ByVal HW32 As Long)
                 
Public Declare Sub PulseKeyboard Lib "TVicHW32.DLL" (ByVal HW32 As Long)
                
Public Declare Sub PulseKeyboardLocal Lib "TVicHW32.DLL" (ByVal HW32 As Long)
                 

'-------------------- LPT port Group -------------

Public Declare Sub SetLPTReadMode Lib "TVicHW32.DLL" (ByVal HW32 As Long)
Public Declare Sub SetLPTWriteMode Lib "TVicHW32.DLL" (ByVal HW32 As Long)

Public Declare Function IsLPTAcquired Lib "TVicHW32.DLL" (ByVal HW32 As Long, LPTNumber As Integer) As Integer
Public Declare Function AcquireLPT Lib "TVicHW32.DLL" (ByVal HW32 As Long, LPTNumber As Integer) As Integer
Public Declare Sub ReleaseLPT Lib "TVicHW32.DLL" (ByVal HW32 As Long, LPTNumber As Integer)


Public Declare Function GetLPTNumber Lib "TVicHW32.DLL" (ByVal HW32 As Long) As Byte
                
Public Declare Sub SetLPTNumber Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByVal nNewValue As Byte)
                 
Public Declare Function GetLPTNumPorts Lib "TVicHW32.DLL" (ByVal HW32 As Long) As Byte
                 
Public Declare Function GetLPTBasePort Lib "TVicHW32.DLL" (ByVal HW32 As Long) As Long
                 

Public Declare Function GetPin Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByVal nPin As Byte) As Long
                 
Public Declare Sub SetPin Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByVal nPin As Byte, ByVal bNewValue As Long)

Public Declare Function GetLPTAckwl Lib "TVicHW32.DLL" (ByVal HW32 As Long) As Long
                 
Public Declare Function GetLPTBusy Lib "TVicHW32.DLL" (ByVal HW32 As Long) As Long
                 
Public Declare Function GetLPTPaperEnd Lib "TVicHW32.DLL" (ByVal HW32 As Long) As Long
               
Public Declare Function GetLPTSlct Lib "TVicHW32.DLL" (ByVal HW32 As Long) As Long
                
Public Declare Function GetLPTError Lib "TVicHW32.DLL" (ByVal HW32 As Long) As Long
                

Public Declare Sub LPTInit Lib "TVicHW32.DLL" (ByVal HW32 As Long)
                 
Public Declare Sub LPTSlctIn Lib "TVicHW32.DLL" (ByVal HW32 As Long)
                 
Public Declare Sub LPTStrobe Lib "TVicHW32.DLL" (ByVal HW32 As Long)
                 
Public Declare Sub LPTAutofd Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByVal Flag As Long)

Public Declare Sub ForceIrqLPT Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByVal IrqEnable As Long)
               
               

Public Declare Sub GetHDDInfo Lib "TVicHW32.DLL" _
                             (ByVal HW32 As Long, _
                              ByVal IdeNumber As Integer, _
                              ByVal Master As Integer, _
                              ByRef Info As TypeHddInfo)
                 

Public Declare Function GetLastPciBus Lib "TVicHW32.DLL" (ByVal HW32 As Long) As Integer
                 
Public Declare Function GetHardwareMechanism Lib "TVicHW32.DLL" (ByVal HW32 As Long) As Integer
                 
Public Declare Function GetPciDeviceInfo Lib "TVicHW32.DLL" _
                                        (ByVal HW32 As Long, _
                                         ByVal bus As Integer, _
                                         ByVal Device As Integer, _
                                         ByVal Fun As Integer, _
                                         ByRef CfgInfo As Any) As Long
                                         
'============================
'== DMA Buffer allocation
'============================

Public Declare Function GetSysDmaBuffer Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByRef Buf As TDmaBufferRequest) As Boolean
Public Declare Function GetBusmasterDmaBuffer Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByRef Buf As TDmaBufferRequest) As Boolean
Public Declare Sub FreeDmaBuffer Lib "TVicHW32.DLL" (ByVal HW32 As Long, ByRef Buf As TDmaBufferRequest)

                                         
Public Function HexToInt(strMyString As String) As Long
  Dim lngMyInteger As Long
  lngMyInteger = 0
  On Error Resume Next
  lngMyInteger = "&h" & strMyString
  HexToInt = lngMyInteger
End Function

Public Function IntToHex2(MyVal As Byte) As String
  Dim s As String
  s = Hex(MyVal)
  If Len(s) = 1 Then s = "0" & s
  IntToHex2 = s
End Function
Public Function IntToHex4(MyVal As Integer) As String
  Dim s As String
  s = Hex(MyVal)
  While Len(s) < 4
    s = "0" & s
  Wend
  IntToHex4 = s
End Function
Public Function IntToHex8(MyVal As Long) As String
  Dim s As String
  s = Hex(MyVal)
  While Len(s) < 8
    s = "0" & s
  Wend
  IntToHex8 = s
End Function