VB.net et dll Delphi

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

première fois que je met les pieds dans cette partie du forum car je travaille exclusivement en Pascal objet avec l'EDI Delphi, d'où mon problème quand je m'aventure avec VB.net

Le problème est le suivant : j'ai créé une dll avec Delphi XE10, avec une fonction à l'intérieur :
Code:

1 2 3 4 Function DllTest2(sName: string): string;StdCall; begin result:='Bienvenue '+sName ; end ;
Mon but maintenant est d'appeller cette dll en VB.net.

Mon code est le suivant :
Code:

1 2 3 4 5 6 7 8 9 10 Public Class Form1 Private Declare Auto Function DllTest2 Lib "C:\Users\Utilisateur\Documents\MyDll.dll" Alias "DllTest2" (sname As String) As String Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim maPhrase As String maPhrase = DllTest2("merlin") End Sub End Class
En executant ce code, j'ai l'erreur suivante :

Pièce jointe 297784

J'utilise Visual Studio 2013 avec le framework 4 ou 4.5.

Quelqu'un peut-il m'aider sur ce sujet ?

27/07/2017, 13h14
r.morel

Citation:

Envoyé par Cpt Anderson

En executant ce code, j'ai l'erreur suivante :

Pièce jointe 297784

Salut,
Après une petite recherche sur le web. Il y a notamment cela.
27/07/2017, 14h03
Cpt Anderson

Citation:

Envoyé par r.morel

Salut,
Après une petite recherche sur le web. Il y a notamment cela.

Bonjour, les deux systèmes d'exploitations sont les mêmes : Windows 7 64 bits.

Bonjour,
Les types string en Delphi et DotNet ne sont pas compatibles. Il faut passer par un PChar qui correspond à un PWideChar depuis Delphi 10 si ma mémoire est bonne :

Code Delphi :

Code:

1
2
3
4
5
6
function DllTest(sName: PChar) : PChar; StdCall;
var s : String;
begin
    s := 'Hello ' + sName;
    result := PChar(s);
end;

Code VB :

Code:

1
2
3
4
Private Declare Auto Function DllTest Lib "D:\Dev\DelphiXE10\TestDll\Win32\Debug\myDll.dll" Alias "DllTest" (sname As String) As IntPtr
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   Dim Msg As String = Marshal.PtrToStringAuto(DllTest("World"))
End Sub

28/07/2017, 14h38
Cpt Anderson

1 pièce(s) jointe(s)

Bonjour,

merci pour la réponse mais le problème ne semble pas venir de là, l'erreur est :

Citation:

tentative de chargement d'un programme de format incorrect

Certainement au chargement de la dll Delphi.

Pièce jointe 298033
28/07/2017, 15h17
ebastien

Effectivement, c'est une autre erreur. Le lien de r.morel aurait pu te mettre sur la voie : Ta Dll doit être compilée en 64 bit et ton programme en 32 ou l'inverse.