1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
| Imports System
Imports System.Runtime.InteropServices
Imports CSC_HANDLE = System.uint32
Public Partial Class MainForm
'Déinition de la structure CSC_FW_INFO selon le .h fournit avec la documentation et la dll
Public class CSC_FW_INFO
Public blVersionName(47) As byte
Public blPushButtonGD As byte
Public appStatus As byte
Public appVersionName(47) As byte
Public fwExecutionFlag As byte
Public serialNumber(11) As byte
End class
<DllImport("totoApi.dll", CallingConvention := CallingConvention.Cdecl, CharSet:=CharSet.none)> _
Public shared Function sCSCReaderStartEx(byval pszComName As string, byval ulSpeed As integer, byref pApiHandle As CSC_HANDLE) As short
End Function
<DllImport("totoApi.dll", CallingConvention := CallingConvention.Cdecl, CharSet:=CharSet.none)> _
Public shared function sCscGetFwInfoEx(byval hCsc As CSC_HANDLE, byval pFwInfo() As byte) As short
End Function
Public Sub New()
' The Me.InitializeComponent call is required for Windows Forms designer support.
Me.InitializeComponent()
Dim retour As Short ' retour des fonctions de la dll
Dim reader As CSC_HANDLE 'déclaration du lecteur de carte
Dim Firmware As New CSC_FW_INFO() 'déclaration de la variable récuperant les données du firmware
'démarrage de la connexion avec le lecteur de carte (port COM, baudrate, handle du reader retourné par la dll à l'ouverture de com)
retour = sCSCReaderStartEx("COM4", 9600, reader)
' récuperation des infos du firmware du reader
retour = sCscGetFwInfoEx(reader, Firmware.blVersionName) |
Partager