Hallo,
ich benötige mal eine Hilfestellung.
Ich muss eine APDU Message erstellen. Jedoch meckert er mit folgender Fehlermeldung: "Der Wert des Typs "Byte()" kann nicht in "Byte()()" konvertiert werden"
Kann mir da mal jemand helfen?
Gruß Marco
ich benötige mal eine Hilfestellung.
Ich muss eine APDU Message erstellen. Jedoch meckert er mit folgender Fehlermeldung: "Der Wert des Typs "Byte()" kann nicht in "Byte()()" konvertiert werden"
Quellcode
- Private Async Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- Dim cla As String = "E0"
- Dim ins as string= "02"
- Dim p1 as string= "00"
- Dim p2 as string= "00"
- Dim data as string= "00"
- Dim apdu As Byte = CreateApdu(cla, ins, p1, p2, data)
- End Sub
- Private Function UnicodeStringToBytes(
- ByVal str As String) As Byte()
- Return System.Text.Encoding.ASCII.GetBytes(str)
- End Function
- Function CreateApdu(ByVal cla As String, ins As String, p1 As String, p2 As String, Data As String)
- Dim apdu
- Dim apdu0 = UnicodeStringToBytes(cla)
- Dim apdu1 = Convert.ToByte(ins)
- Dim apdu2 = Convert.ToByte(p1)
- Dim apdu3 = Convert.ToByte(p2)
- Dim apdu4 = Convert.ToByte(Data)
- apdu = {apdu0, apdu1, apdu2, apdu3, apdu4}
- Return apdu
- End Function
Kann mir da mal jemand helfen?
Gruß Marco