mdumain.bas

磁条读写机

Attribute VB_Name = "mduMain"
Option Explicit
Public hPort As Long

Sub Main()
hPort = -1
frmMain.Show
End Sub

Sub OpenReader()
hPort = SC_OpenReader("USB", "")
If (hPort < 0) Then
    ReportError
    End
End If
End Sub

Sub ReportError()
    Dim strDesc As String
    strDesc = Space(1001)
    SCHelp_ErrorDesc SC_GetLastError, strDesc, 100
    MsgBox "error code:" & SC_GetLastError & Chr(10) & Chr(13) & strDesc
End Sub

Function ArrToHexStr(DataBuffer() As Byte, ByVal lCount As Long) As String
Dim strHex As String
ArrToHexStr = ""
Dim i As Long
For i = 0 To lCount - 1
    strHex = Space(2)
    SCHelp_BytesToHexString DataBuffer(i), 1, strHex
    ArrToHexStr = ArrToHexStr & strHex & " "
Next
End Function