Discussion :

[khaourantin]

Bonjour,

Je dois utiliser une dll écrite en Delphi10 dans une application VB.net, j'arrive à accéder à certaines fonctions de cette dll (une, pour l'instant ), mais pas vraiment à ce dont j'ai besoin.

Je n'y connais strictement rien en Delphi, je me débrouille seulement en VB.net. J'ai posé la même question dans la section VB.Net du forum, mais pour l'instant je n'ai pas de réponse là bas, comme la question est à cheval sur les 2 langages je me permet de poser aussi la question ici .

Voici le lien vers les détails de mon problème:

https://www.developpez.net/forums/d1...0-sous-vb-net/

Merci de votre aide!

Corentin

[SergioMaster]

Bonjour,

sans être un as de la dll je vois au moins un problème (après avoir regardé la question sur VB.Net

Code VisualBasic :

Sélectionner tout - Visualiser dans une fenêtre à part

Declare Auto Function SmartkeyGetOption Lib "E:\DLL References\smDll.dll" (obj As Integer) As IntPtr

Code Delphi :

Sélectionner tout - Visualiser dans une fenêtre à part

function SmartkeyGetOption(ProgOption: Integer): PChar; stdcall;

la fonction Delphi renvoi un pointeur de chaine et on un pointeur d'entier comme déclaré en VB.net
Ensuite la question est la dll Delphi a été écrite avec une version inférieure à D2009 (apparition de l'Unicode chez Delphi) ou pas ?
Dans le premier cas PChar est un PAnsiChar mais dans le second c'est un PWideChar même s'il s'agit dans les deux cas d'un pointeur sur une chaine de caractères

[khaourantin]

Merci pour votre réponse,

Je n'y connais rien en Delphi... Je ne sais donc pas vous dire si a dll Delphi a été écrite avec une version inférieure à D2009. Le code source a très bien pu être écrit avant 2009 mais mis à jour ultérieurement, je n'en sais rien. J'ai accès au code source de la dll en question et à un poste développeur avec D10 Berlin. Si vous me dites comment le savoir je dois pouvoir fouiller et trouver la réponse à cette question!

EDIT : à priori ça a été écrit en Delphi7

Par ailleurs si je change le type de sortie de la fonction VB.Net de IntPtr en Object j'obtient une autre erreur :

[SergioMaster]

Re,

Je n'y connais rien en Delphi.

moi c'est en VB.net que je n'ai pas les connaissances nécessaires

Si vous avez les sources et accès à Delphi Berlin alors vous devriez pour recompiler la DLL (en 32 et en 64 bits) et de ce fait être sûr que PChar fait référence a un PWideChar (enfin pas sûr à 100% il est toujours possible de modifier certaines préférences mais je pars du principe que c'est une version non customisée)

Par ailleurs si je change le type de sortie de la fonction VB.Net de IntPtr en Object

J'avoue, je nage, VB.net et moi cela fait bien 2

Que feriez vous si cette même Dll était écrite en C ? Le fait que la dll soit en delphi et non en c n'a aucune importance car si vous regardez le source vous y verrez un petit stdcall; instruction qui, pour vulgariser à l'extrême, indique au compilateur Delphi que le passage des paramètres se fera comme pour une blibliothèque C.
Vous trouverez sur le net beaucoup de pistes (Delphi+dll+vb.net+pchar)

[BeanzMaster]

Bonjour

Idem j'y connais rien en VB et moins en .Net vu que la fonction de la fonction de la DLL renvoie une chaîne de caractères

pourquoi pas juste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Declare Auto Function SmartkeyGetOption Lib "E:\DLL References\smDll.dll" (obj As Integer) As String

[tourlourou]

Code vb.net :

Sélectionner tout - Visualiser dans une fenêtre à part

Declare Auto Function SmartkeyGetOption Lib "E:\DLL References\smDll.dll" (ByVal OptNum As Integer) As String

En VB.Net, le type Char est sur 2 octets, et le type string est Unicode, si j'en crois ceci.
Il y a donc un risque de recevoir une chaîne AnsiChar et de la considérer comme WideChar : utiliser un tableau de Byte pour recevoir la chaîne ?