[Windows API für CyberJack Standard RFID]

Kann mir denn niemand etwas dazu sagen? Gibt es hier jemanden, der sich damit auskennt?

[Windows API für CyberJack Standard RFID]

Es gibt ja noch die Möglichkeit zur Ansteuerung über PC/SC alternativ zur CT-API.

Aber ich bin schon etwas weiter gekommen mit der CT-API.

Beim Ausführen der Methode GetCardMonStatus() erhalte ich den Fehler "Tag 80". Was bedeutet das?

Bevor jemand fragt: Das Kartenlesegerät ist angeschlossen und es steckt eine Versichertenkarte drin.

Der Fehler tritt hier auf (siehe Kommentar im Code):

Const CT_DEST_CARD = 0
Const CT_DEST_CT = 1
Const CT_DEST_APPLICATION = 2

Declare Function init Lib "Ctrsct32" Alias "CT_init" (ctn As UInt16, pn As UInt16) As Int8
Declare Function data Lib "Ctrsct32" Alias "CT_data" (ctn As UInt16, ByRef dad As Int8, ByRef sad As Int8, lenc As UInt16, command As Ptr, ByRef lenr As UInt16, response As Ptr) As Int8
Declare Function close1 Lib "Ctrsct32" Alias "CT_close" (ctn As UInt16) As Int8

Var Dad As Int8 = CT_DEST_CT
Var Sad As Int8 = CT_DEST_APPLICATION
Var nRelevantByte As Integer = 0

Var Cmd As New MemoryBlock(5)
Cmd.Int8Value(0) = &h20
Cmd.Int8Value(1) = &h13
Cmd.Int8Value(2) = &h00
Cmd.Int8Value(3) = &h80
Cmd.Int8Value(4) = &h00
Var Lc As UInt16 = Cmd.Size

Var Rsp As New MemoryBlock(65535)
Var Lr As UInt16 = Rsp.Size

Var nRet As Integer = -1

nRet = data(1, Dad, Sad, Lc, Cmd, lr, Rsp)

If nRet < 0 Then
  Return "error nret < 0"
End If

If Lr < 3 Then
  return "error lr < 3"
End If

If CType((Rsp.Int8Value(lr - 2) * &h0100) + (Rsp.Int8Value(Lr - 1)), UInt16) <> &h9000 Then
  Return "error h0100"
End If

Select Case Lr
Case 3
  nRelevantByte = 0
Case 4
  nRelevantByte = 0
Case 5
  If ((Rsp.Int8Value(0) <> &h80) Or (Rsp.Int8Value(1) <> &h01)) Then
    return "error h80" // hier tritt der Fehler auf
  End If
  nRelevantByte = 2
Else
  Return "error default case"
End Select

If CType(rsp.Int8Value(nRelevantByte) And 1, Boolean) Then
  return "Card inserted"
Else
  return "Card released"
End If

 

[Windows API für CyberJack Standard RFID]

Und über die Windowsschnittstelle? Wie sieht es damit aus?

Ich bin sowieso noch am Anfang des Projekts, das heißt ich kann noch "rüberswitchen".

[Windows API für CyberJack Standard RFID]

Hallo René,

ich verwende nun in meinem Projekt CTAPI.

Declare Function init Lib "Ctrsct32" Alias "CT_init" (ctn As UInt16, pn As UInt16) As Int8
Declare Function data Lib "Ctrsct32" Alias "CT_data" (ctn As UInt16, ByRef dad As Int8, ByRef sad As Int8, lenc As UInt16, command As Ptr, ByRef lenr As UInt16, response As Ptr) As Int8
Declare Function close1 Lib "Ctrsct32" Alias "CT_close" (ctn As UInt16) As Int8

Var value_init As Int8
Var value_close As Int8
Var value_data As Int8

Try 
  value_init = init(1,1)
  If value_init = 0 Then
    MessageBox("success")
    
  Else
    MessageBox(value_init.ToString)
  End If
Catch e As FunctionNotFoundException
  MessageBox(e.Message)
End Try

value_close = close1(1)

Ich nehme an, dass der Rückgabewert 0 der Funktion CT_init bedeutet, dass die Initialisierung erfolgreich war. Ist das korrekt?

Ansonsten frage ich mich, wie man die Funktion CT_data verwendet? Zu der Funktion CT_data steht in der Doku nur eine kurze Beschreibung. Das hilft mir aber in dem Fall nicht so viel weiter.

Ich möchte Krankenkassen Chipkarten auslesen. Dazu gibt es von der Gematik ein PDF-Dokument: https://www.dkgev.de/fileadmin/default/Mediapool/2_Themen/2.1_Digitalisierung_Daten/2.1.5._Telematik-Infrastruktur/2.1.5.2_Einfuehrung_und_Betrieb/2013_11_06_364_eGK_Veroeffentlichung_Dokuaenderungen.pdf

Vielleicht übersehe ich da auch etwas, würde mich freuen, wenn man mir dazu etwas sagen kann.

[Windows API für CyberJack Standard RFID]

Hallo,

ich möchte eine Software für Windows entwickeln, anhand deren man Versichertenkarten von Krankenkassen auslesen kann. Es wäre sehr praktisch, wenn es eine Windows-API für den ReinerSCT CyberJack Standard RFID geben würde. Also wenn ich die Kartendaten z. B. über die Kommandozeile (CMD) auslesen könnte. Gibt es eine solche Schnittstelle?

Beste Grüße

Alex