utiliser une dll avec des fonctions en C en vb.net

Bonjour,

Je cherche à comprendre comment dialoguer avec une dll codé en C à partir de VB.net.
J'ai bien réussi à faire quelques essai es concluant mais j'ai plus l'impression de faire de la bidouille que de réellement comprendre comment cela fonctionne, en fait la ou je peche c'est sur le type de variable à utiliser, voila ci dessous l'appel à 2 fonctions de la dll qui me retourne un résultat cohérent, mais je me demande quand même si je m'y prend correctement.
Je tiens à préciser que j'ai lu quelques tuto sur le sujet trouvés à l'aide de google mais je reste un peu incertain sur la compréhension que j'ai eu.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

<DllImport("totoApi.dll")> _ Public Shared function GetApiVersionEx(ByRef API_EX_MAJOR_VERSION As Integer, ByRef API_EX_MINOR_VERSION As Integer) As short End function   <DllImport("totoApi.dll")> _ Public Shared function StartEx(byval pszComName As string, byval ulSpeed As integer, byref phCsc As integer) As short End function     Dim maj As integer Dim min As Integer Dim error As short   error = GetApiVersionEx(maj, min) => ici j'obtiens bien les versions de la dll maj et min, avec "error" = 0 ce qui correspond à un succes de la fonction retourné par la dll     Dim x As Integer Dim hRw(x) As Integer   error = StartEx("COM4", 0, hRw(x)) => ici j'obtiens "error" = 0 ce qui correspond à un succes de la fonction retourné par la dll et x = 0 ce qui a l'air cohérent

---

Voici les fonctions tel quel sont déclarées dans la documentation que j'ai ou dans le .h livré avec la dll:

Code:

---

1 2	short GetApiVersionEx (int *piMajorVersion, int *piMinorVersion);

---

Code:

---

1 2 3

short StartEx (const char *szPortName, ULONG ulComSpeed, CSC_HANDLE *pApiHandle);

---

avec comme info dans le doc:

Citation:

---

szPortName Pointer to a zero-terminated string that specifies the name of the communication port
ulComSpeed Specifies the communication speed, in bits per second, on the serial line
pApiHandle Pointer to a CSC_HANDLE object that is initialized with the handle to the opened logical device.

---

C'est surtout cette dernière variable "CSC_HANDLE *pApiHandle" que j'ai du mal à comprendre comment la déclarer proprement

J'avais suivi ce tuto https://rp.developpez.com/vb/tutoriels/dll/ mais en suivant le tableau "VI. Correspondance des types" j'aurai eu tendance à déclarer la variable " byval ulSpeed " en Long , mais ca ne fonctionne pas (message d'erreur) pourtant dans le tableau on indique bien qu'un ULONG en C correspond à un Long en VB.net, or cela fonctionne quand je déclare le paramètre en Integer.

Merci pour vos aides et explications.

Cdt,
yaume

Bonjour,

En général, il suffit d'ajouter la référence à la DLL dans les références du projet et de préciser les espaces de noms utilisés dans les Imports, soit le plus souvent la Dll elle-même :

Code:

---

1 2	Imports MaDll Imports MaDll.CetEspaceDeNom

---

L'intellisense devrait t'indiquer en cours de programmation, toutes les méthodes Public de ta Dll.

Pièce jointe 479785

Bonne journée ... :)

Salut Phil,

En fait il s'agit d'une dll native et pas un assembly. ;)

Merci pour l'info Wallace.
Autrement, ça ne semble pas évident à la lecture du message ..., surtout avec un exemple de DLL nommée "totoApi.dll".
Et bien tant pis si mon message ne sert à rien .. ferai mieux une autre fois :D

Bonsoir,

Concernant le "totoApi.dll" comme il s'agit d'une dll d'une société , je voulais pas trop divulgué le nom.
Cela étant dit , j'ai un peu progressé sur mon sujet, sans toutefois vraiment être sur de ce que je fais encore une fois.
Je ne suis pas un pro de la programmation , donc je suis pas forcement familier avec le vocabulaire parfois employé.

Tout ceci étant dit, je vais peut être situé un peu plus le contexte, ce qui pourra vous aider peut etre à mieux cerner la ou je bloque.

La dll en question est une dll permettant de comuniquer avec un périphérique lecteur de carte sans contact produite par la société.
Selon la doc en ma possession elle est en langage C.

Du coup j'ai réussi à démarrer la communication avec le péripherique grace à la fonction startex grace au code ci dessous, par contre il y a une fonction permettant de récuperer des infos sur le firmware du péripherique que j'ai du mal à faire fonctionner correctement:

Code:

---

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)

---

Le problème est qu'avec ce code , je récupère uniquement "Firmware.blVersionName" dans un tableau de 48 byte qui contient par exemple la suite d'entier suivante 66 , 111 , 111, 116, 76, 111, 97, 100, 101, 114,..... qui correspond bien à ce que j'attends au final (meme si ce n'est pas sous la bonne forme) puisqu'en code ASCII cela correspond à "BootLoader....."

Si je modifie mon code ainsi

Code:

---

1 2 3 4 5 6 7 8

Public class CSC_FW_INFO Public blVersionName(108) 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

---

Pour le coup j'arrive à récuperer toutes les infos (blVersionName, blPushButtonGD , appStatus, appVersionName, fwExecutionFlag , serialNumber) dans "Firmware.blVersionName" dans un tableau de 108 byte sous forme décimal.
J'en conclu donc que la dll me retourne bien l'ensemble des infos que je veux mais n'arrive pas à attribuer les données à mon objet "Firmware"

Or, je souhaiterai que chaque propriété récupère la valeur qui lui correspond retourné par la fonction de la dll.

Pour plus de clarté voici ce que contient le .h fournit:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

typedef unsigned int UINT; typedef UINT CSC_HANDLE; typedef unsigned char UCHAR; typedef char CHAR;   typedef struct { char blVersionName[48]; UCHAR blPushButtonGD; UCHAR appStatus; char appVersionName[48]; UCHAR fwExecutionFlag; UCHAR serialNumber[12];   } CSC_FW_INFO;   short sCSCReaderStartEx (const char *szPortName, ULONG ulComSpeed, CSC_HANDLE *pApiHandle);   short sCscGetFwInfoEx (CSC_HANDLE apiHandle, CSC_FW_INFO *pFwInfo);

---

Ainsi que dans la doc:

Citation:

---

Code:

---

1 2 3

short sCSCReaderStartEx(const char* pszComName, ULONG ulSpeed, CSC_HANDLE* phCsc);

---

pszComName = Pointer to a zero-terminated string that specifies the name of the communication port, as known by the operating system, where the CSC Reader peripheral is connected. I.e. “COM1” or “\\.\COM13”, “/dev/ttyS0” on Linux

ulSpeed = Specifies the communication speed, in bits per second, on the serial line.
The possible values for ulSpeed are 0, 9600, 19200, 57600 and 115200 (default speed). The special value 0 means that the ulSpeed parameter shall not be used, and the default communication speed with the reader shall be used instead.

phCsc = Pointer to a CSC_HANDLE object that is initialized with the handle to the opened logical device.

---

Citation:

---

Code:

---

1 2	short sCscGetFwInfoEx(CSC_HANDLE hCsc, CSC_FW_INFO *pFwInfo);

---

hCsc = Handle to the logical CSC Reader device.

pFwInfo = Pointer to a CSC_FW_INFO structure in which the firmware information is returned.

---

il y a également des exemples pour appeler les fonction mais en C ou C++

Citation:

---

Code:

---

1 2 3

CSC_HANDLE hRw;   err = sCSCReaderStartEx("COM1", 115200, &hRw);

---

---

Citation:

---

Code:

---

1 2 3

CSC_FW_INFO fwInfo;   err = sCscGetFwInfoEx(hRw, &fwInfo);

---

---

Voila je sais pas si c'est bien clair, et si j'ai pu apporter les précisions nécessaires pour pouvoir m'aider, pour le moment je tâtonne sur le sujet, certes je cherche à arriver au résultat final, mais aussi à comprendre les erreurs que je fait.
Merci à vous.