Pessoal vcs podem me ajudar a converter este código para java.
Public Declare Function ICU_Mifare_GetCardNo Lib "ICUAPI215" (ByVal hICR As Long, _
ByRef cardNo As ICUCardNo) As Long
Public Type ICUCardNo
Data(0 To 3) As Byte
End Type
E no click de um botão é chamado esta função;
Dim ret As Long
Dim card As ICUCardNo
ret = ICU_Mifare_GetCardNo(hICR, card)
If ret <> ICU_SUCCESS Then Err.Raise vbObjectError + 1, , Hex(ret)
lblCardNo.Caption = ByteArrayToHex(card.Data)
Detalhe essa “ICUAPI215” é uma dll que no java estou chamando atráves de JNA.
Pessoal agradeço qualquer ajuda.
