How to VB to VFP ???
Thanks.
VB Code:
Declare Function IC_ReadMagCard Lib "dcic32.dll" (ByVal icdev As Long, ByVal ctime As String, ByRef pTrack2Data As Byte, ByRef pTrack2Len As Long, ByRef pTrack3Data As Byte, ByRef pTrack3Len As Long) As Integer
Private Sub Command5_Click()
Dim st As Integer
Dim pTrack2Data(128) As Byte
Dim pTrack3Data(128) As Byte
Dim sTrack2Data As String
Dim sTrack3Data As String
Dim pTrack2Len As Long
Dim pTrack3Len As Long
Dim ctime As String
Dim i As Integer
ctime = "500s"
st = IC_ReadMagCard(icdev, ctime, pTrack2Data(0), pTrack2Len, pTrack3Data(0), pTrack3Len)
If st = 0 Then
For i = 0 To pTrack2Len - 1
sTrack2Data = sTrack2Data + Chr(pTrack2Data(i))
Next
For i = 0 To pTrack3Len - 1
sTrack3Data = sTrack3Data + Chr(pTrack3Data(i))
Next
List1.AddItem "2 Data :" & sTrack2Data
List1.AddItem "2 Char :" & pTrack2Len
List1.AddItem "3 Data :" & sTrack3Data
List1.AddItem "3 Char :" & pTrack3Len
Else
List1.AddItem "Call IC_ReadMagCard() Error!"
End If
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only