Utiliser une DLL en Delphi avec Visual Basic

Bonjour,

J'ai récupéré une DLL en Delphi dont je voudrais utiliser les fonctions avec Visual Basic.
Le problème c'est que je travaille sur Visual Studio 2005 et que je n'arrive pas à exploiter cette dll.
Lors de l'appel à une fonction, un message d'erreur me dit que la dll est introuvable. De même, il m'est impossible de l'ajouter parmi les références du projet car elle est soit "introuvable" soit "non compatible".
Pourtant le fichier est bien dans le répertoire de mon projet que j'ai ajouté dans les chemins d'accès aux bibliothèques dans les options de Visual.

Quelqu'un pourrait-il m'aider ?

La dll Delphi est une dll native (en général Delphi <= 7) ou managée ?
Si c'est une dll native ton seul moyen d'y accéder sera par des PInvoke et je pense que c'est le cas dans lequel tu es.

A vrai dire je ne sais pas trop ...
C'est mpusbapi.dll, soit un driver pour contrôler un PIC en USB.
Mais j'ai réussi à résoudre mon problème en plaçant le fichier de la dll dans System32...
Je n'ai toujours pas compris pourquoi ça marchait mieux mais mon problème est résolu !
Merci quand même pour cette réponse rapide :)

Citation:

---

Envoyé par jix69

Je n'ai toujours pas compris pourquoi ça marchait mieux mais mon problème est résolu !

---

Si tu ne donne pas de chemin à ta dll dans ton projet, celle-ci doit etre dans le même répertoire que l'executable (Bin/Debug ou Bin/Release) suivant ta config.

Si tu l'as inclue dans ton projet, tu sélectionne le fichier dans l'arborescence, et tu modifie la propriété "Copier dans le dossier de sortie" pour que ta dll soit copier avec l'exe lors de la génération de la solution.

Mais je pensais que dès l'instant où l'on a spécifié le répertoire dans lequel le fichier est présent, il devrait le trouver, non ?
Et quelqu'un aurait-il une idée pour la correspondance d'un PWORD et d'un Pointer (Delphi) en VB ?
Merci beaucoup pour vos réponses :)

Tout dépend de ton instruction Declare dans ton code (si c'est bien cette méthode là que tu utilise)

Soit tu indique un chemin pour la dll, et effectivement la dll doit se trouve à l'endroit indiqué (attention aux chemins relatifs, qui seront relatifs depuis l'endroit ou se trouve l'executable, et non pas celui du projet)

Soit tu n'indique pas de chemin, juste le nom du fichier, dans ce cas la dll doit se trouver dans l'un des chemins suivants (dans l'ordre de recherche)
- Dossier de l'executable
- Dossier Windows
- Dossier Système (System32)
- Dossiers de la variable d'environnement Path dans l'ordre d'apparition


Pour un PWORD, c'est un pointeur sur une variable de 2 octets, donc en VB ça devrai être un type Short passé par référence (By Ref)

Merci beaucoup pour ces réponses claires.
Cependant j'ai encore des problèmes avec les types.
J'ai pu remarqué que l'utilisation d'un type Int32 pour un DWORD marchait très bien par contre je ne suis pas sûre pour la conversion PCHAR => String.

C'est que j'utilise donc la librairie mpusbapi.dll, et l'ouverture du port avec

Code:

---

myOutPipe = MPUSBOpen(0, vid_pid, out_pipe, MP_WRITE, 0)

---

où

Code:

---

1 2 3

Public Const MP_WRITE = 0 Public Const vid_pid = "vid_04d8&pid_000b" Public Const out_pipe = "\MCHP_EP1"

---

et

Code:

---

1 2 3 4 5 6 7 8 9

Public Declare Function MPUSBOpen _ Lib "mpusbapi" _ Alias "MPUSBOpen" _ (ByVal instance As Long, _ ByVal pVID_PID As String, _ ByVal pEP As String, _ ByVal dwDir As Long, _ ByVal dwReserved As Long) _ As Int32

---

sachant qu'en Delphi :

Code:

---

Function MPUSBOpen(instance : DWORD ; pVID_PID :PCHAR; pEP : PCHAR; dwDir : DWORD; dwReserved : DWORD): THANDLE;

---

ne fonctionne pas puisqu'il renvoie -1.

Quelqu'un saurait-il m'aider ?

Bonjour,

Pour le PCHAR je serais plutot tenté de faire une déclaration de type

Code:

---

ByRef String

---

plutôt que

Code:

---

ByVal String

---

ce qui donnerait :

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Declare Function MPUSBOpen _ Lib "mpusbapi" _ Alias "MPUSBOpen" _ (ByVal instance As Long, _ ByRef pVID_PID As String, _ ByRef pEP As String, _ ByVal dwDir As Long, _ ByVal dwReserved As Long) _ As Int32

---

Voilà, j'espère que ça t'aideras.

Effectivement ça marche mieux par référence !
Par contre le type long ne semble pas adapté et il faut mettre des Int32.

Merci beaucoup pour vos réponses !