Discussion :

[Cpt Anderson]

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 :

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

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 :

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

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 :



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

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

[r.morel]

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

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

[Cpt Anderson]

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.

[ebastien]

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 :

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

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 :

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

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

[Cpt Anderson]

Bonjour,

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

tentative de chargement d'un programme de format incorrect

Certainement au chargement de la dll Delphi.

[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.