Dear all,
Can someone help me to translate from vb to harbour.
Thanks your
Regard,
KOk
vb sample :
Private Sub cmdInventory_Click()
Static MaskValue As Integer
Dim nDSFID As Integer
Dim bUID(7) As Byte
Dim MaskLength As Integer
cmdInventory.Enabled = False
MaskLength = 7
If RWM600x1.isoInventory(MaskLength, MaskValue, nDSFID, VarPtr(bUID(0))) Then
If InList(lstReady, UID_CODE(bUID)) = False Then
lstReady.AddItem UID_CODE(bUID)
End If
End If
labMaskValue.Caption = CHex(MaskValue)
MaskValue = (MaskValue + 1) And &H7F
cmdInventory.Enabled = True
End Sub
Structure INFO
BYTE UID[8];
BYTE DSFID;
BYTE AFI;
BYTE NumOfBlock;
BYTE BlockSize;
Private Sub cmdSystemInfo_Click()
Dim I As Integer
Dim selInfo As RWM600XLib.INFO_T
If RWM600x1.isoGetSystemInformation(VarPtr(selInfo)) Then
' Update Information Label
labInfo(0).Caption = UID_CODE(selInfo.UID)
txtDSFID.Text = CHex(selInfo.DSFID)
txtAFI.Text = CHex(selInfo.AFI)
labInfo(1).Caption = selInfo.NumOfBlock
labInfo(2).Caption = selInfo.BlockSize
txtDSFID.Enabled = True
txtAFI.Enabled = True
End If
End Sub