CT-Api[ERLEDIGT]

  • Allgemein

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von milaim.

    CT-Api[ERLEDIGT]

    Hi Leute,
    ich habe da ein Problem, und zwar mit der CT-Api (Card Terminal Application Programmin Interface)...

    Mein Problem: Ich versuche, aus einer KVK (Krankenversicherungskarte) die Daten über ein Kartenterminal auszulesen...
    Es gibt zwar eine Doku, die einige Befehle beschreibt, wie Reset CT oder Request ICC aber das hilft mir nicht wirklich weiter, denn ich bekomme die Daten nicht ausgelesen.

    Es gibt auch einige Beispiele im Internet, die das beschreiben, die funktionieren aber nicht, denn diese Beispiele sind meist zu alt und mit dem neuen Kartenterminal (ST-2052) von Cherry will das nicht hinhauen...

    Meine Frage: Hat schon jemand erfahrungen damit, wie man ein "Get File" oder "Get Data" Befehl über die CT-Api an das Kartenterminal versenden kann??
    Ich wär über jede Hilfe Dankbar, denn ich sitze schon seit Tagen an diesem Problem und bekomme einfach nicht die Lösung dafür.
    Übrigens: Ich Versuch die Verbindung in Access über VB hinzurichten.
    "Wenn jemand in einem Betrieb unverzichtbar ist, dann ist dieser Betrieb falsch organisiert." - Roberto Niederer

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „milaim“ ()

    Normaler weise wenn du eine DLL runter saugst muß kompletter Support dabei sein. Damit meine ich alles, beschreibung von Methoden/Eigenschaften, und vieleicht paar kleinere Beispiel Code. Wenn du damit nicht weiter kommst, würde ich an deine stelle andere DLL runter saugen, es gibs in google jede menge anbieter, und vieleicht beim anderen anbieter der support viel besser. Oder du setzt mit dem Hersteller in Verbindung und verlagnst etwas ausfürliche hilfe.

    Doku ist dabei, aber nicht ausreichend, damit ich die Daten von der Chipkarte der KVK hole. An dem Hersteller habe ich mich schon gewandt, die haben mir gesagt ich soll mich per Mail melden und die schicken mir ne neue Doku. Was rauskam ist eine Doku von 1999 -> war ein Downloadlink und nicht von denen.
    Ein Beispiel gibt es auch, ich bin schon viel weiter als das Beispiel.. Ich kann Reseten ich kann Karte verlangen ich kann auch Karte auswerfen (Prozess beenden) aber daten holen geht nicht, weil die Beispiele zu alt sind und weil die Instruktion mir als fehlerhaft angezeigt wird. Übrigens: Die dll war auf der Driverdisk dabei.
    "Wenn jemand in einem Betrieb unverzichtbar ist, dann ist dieser Betrieb falsch organisiert." - Roberto Niederer

    Hey.. Hab das Problem gelöst. Ich bin Stur geblieben und habs irgendwie zusammengeschraubt.

    Da ich nach Hilfe gefragt habe, will ich es auch nicht vorenthalten.


    So sollte es ablaufen:

    VB.NET-Quellcode

    1. Dim lResult As Byte
    2. Dim ctn As Integer
    3. Dim pn As Integer
    4. Dim dad As Byte
    5. Dim sad As Byte
    6. Dim lenc As Integer
    7. Dim command() As Byte
    8. Dim lenr As Integer
    9. Dim response() As Byte
    10. Dim str As String
    11. Dim i As Long
    12. ' CT_init : Verbindung zur SmartCard wird hergestellt
    13. ReDim command(300)
    14. ReDim response(1000)
    16. ctn = 1
    17. pn = 1
    18. lResult = CT_INIT(ctn, pn)
    19. If lResult = 0 Then
    22. 'Reset ICC
    23. dad = 1
    24. sad = 2
    25. command(0) = &H20
    26. command(1) = &H11
    27. command(2) = &H0
    28. command(3) = &H0
    29. command(4) = &H0
    33. ret = CT_DATA(ctn, dad, sad, lenc, command(0), lenr, response(0))
    34. 'End Reset ICC
    37. 'Request ICC
    38. lenc = 7
    39. lenr = 255
    40. dad = 1
    41. sad = 2
    42. command(0) = &H20
    43. command(1) = &H12
    44. command(2) = &H1
    45. command(3) = &H1
    46. command(4) = &H1
    47. command(5) = &HA
    48. command(6) = &H0
    50. ret = CT_DATA(ctn, dad, sad, lenc, command(0), lenr, response(0))
    51. 'END Request ICC
    53. 'Fehlerbehandlungen werden ausgelassen.
    58. 'Get Status
    59. lenc = 5
    60. lenr = 255
    62. ReDim command(300)
    63. ReDim response(1000)
    65. lenc = 5
    66. lenr = 255
    67. dad = 1
    68. sad = 2
    69. command(0) = &H20
    70. command(1) = &H13
    71. command(2) = &H0
    72. command(3) = &H46
    73. command(4) = &H0
    78. ret = CT_DATA(ctn, dad, sad, lenc, command(0), lenr, response(0))
    79. 'END Get Status
    81. 'SELECT FILE
    83. ReDim command(300)
    84. ReDim response(1000)
    86. lenc = 11
    87. lenr = 1000
    88. dad = 0
    89. sad = 2
    91. command(0) = &H0
    92. command(1) = &HA4
    93. command(2) = &H4
    94. command(3) = &H0
    95. command(4) = &H6
    96. command(5) = &HD2
    97. command(6) = &H80
    98. command(7) = &H0
    99. command(8) = &H0
    100. command(9) = &H1
    101. command(10) = &H1
    103. ret = CT_DATA(1, dad, sad, lenc, command(0), lenr, response(0))
    104. 'END SELECT FILE
    108. 'Read Binary
    109. ReDim command(300)
    110. ReDim response(1000)
    112. lenc = 5
    113. lenr = 1000
    114. dad = 0
    115. sad = 2
    116. command(0) = &H0
    117. command(1) = &HB0
    118. command(2) = &H0
    119. command(3) = &H0
    120. command(4) = &H0
    122. ret = CT_DATA(ctn, dad, sad, lenc, command(0), lenr, response(0))
    123. 'END Read Binary
    126. 'EJECT ICC
    127. ReDim response(1000)
    128. lenc = 4
    129. lenr = 255
    131. dad = 1
    132. sad = 2
    133. command(0) = &H20
    134. command(1) = &H15
    135. command(2) = &H1
    136. command(3) = &H0
    138. ret = CT_DATA(ctn, dad, sad, lenc, command(0), lenr, response(0))
    139. 'END EJECT ICC
    141. CT_CLOSE (ctn) 'Verbindung mit der SmartCard auf jedenfall wieder beenden.


    Also:
    - Verbindung herstellen
    - Reset ICC
    - Request ICC
    - Get Status
    - SELECT FILE
    - Read Binary
    - Eject ICC
    - Verbindung trennen

    Das wär dann die Reihenfolge. Evtl könnte man bei SELECT FILE noch einige Änderungen vornehmen, jedoch hat das für mich persönlich gereicht.

    Select File und Read Binary waren die Knackpunkte an der ganzen Sache, da sie eine andere Class (command(0)) hatten und nur wenn man die Werte von sad(Source Address) und dad (Destination Address) verändert, funktioniert das ganze. Das stand eben sehr undeutlich in der Doku.

    //BTW: Nicht über den Code ärgern, ich habs nur so nach der Reihe gemacht bis es funktioniert. Natürlich siehts bei mir jetzt Objektorientierter aus ;)

    //Übrigens: Einige Ausschnitte stammen nicht von mir (Select File und Read Binary)
    "Wenn jemand in einem Betrieb unverzichtbar ist, dann ist dieser Betrieb falsch organisiert." - Roberto Niederer

    Dazu sollte ich nochmal die Funktionen auflisten:

    VB.NET-Quellcode

    1. 'Cherry Kartenleser
    2. 'CTPCSC32KV.dll ist aus dem Selben Verzeichnis wie ctapi.dll, nur für KVK geeignet.
    3. Private Declare Function CT_INIT Lib "CTPCSC32KV.DLL" Alias "CT_init" (ByVal ctn As Integer, ByVal pn As Integer) As Byte
    4. Private Declare Function CT_DATA Lib "CTPCSC32KV.DLL" Alias "CT_data" (ByVal ctn As Integer, ByRef dad As Byte, ByRef sad As Byte, ByVal lenc As Integer, ByRef command As Byte, ByRef lenr As Integer, ByRef response As Byte) As Byte
    5. Private Declare Function CT_CLOSE Lib "CTPCSC32KV.DLL" Alias "CT_close" (ByVal ctn As Integer) As Byte


    Die werden ja als Referenzen übergeben und da wird beim Array nur der erste Index als "Zeiger" an die Funktion übergeben und gibt dann ein Byte-Array zurück. Zumindest hab ichs auf anhieb nicht anders in VB Access hinbekommen.
    "Wenn jemand in einem Betrieb unverzichtbar ist, dann ist dieser Betrieb falsch organisiert." - Roberto Niederer

Facebook
Telefonspende