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
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement