Discussion :

[dim07]

Bonjour,
je souhaite développer une DLL afin de rendre accessibles mes fonctions Delphi à plusieurs programme.
Je teste ma DLL avec un projet Excel VBA et je rencontre certains problèmes dans les passages de paramètres : lors du lancement de la fonction EstVide, l'erreur suivante est levée :
Erreur d'exécution '-2147417848 (80010108)':
Erreur automation
L'Objet invoqué s'est déconnecté de ses clients.

Voici le code de ma DLL Delphi :

Code :

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

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
 
library LpFonctions;
 
uses
  ComServ,
  SysUtils,
  Classes,
  UCompteur,
  UFonctions;
 
{$R *.res}
 
function ValeurSuivante(): Pchar;
var
  zTmp: string;
begin
  zTmp := UCompteur.ValeurSuivante;
  Result := PAnsiChar(zTmp);
end;
 
function EstVide(var sChaine: PChar): Boolean;
begin
  Result := UFonctions.EstVide(sChaine);
end;
 
exports
  DllGetClassObject,
  DllCanUnloadNow,
  DllRegisterServer,
  DllUnregisterServer,
  ValeurSuivante,
  EstVide;
 
begin
end.

Code VBA utilisant la fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Declare Function ValeurSuivante Lib "C:\LpFonctions.dll" () As String
Private Declare Function EstVide Lib "C:\LpFonctions.dll" (sChaine As String) As Boolean
 
Private Sub CommandButton2_Click()
Dim s1 As String
 
  If Not EstVide("1e2") Then
    TextBox1.Text = ValeurSuivante
  Else
    TextBox1.Text = ""
  End If
End Sub

Y-a-t-il une erreur d'utilisation de types dans les paramètres ?

[Paul TOTH]

alors je ne sais pas trop comment VB gère les variable string en retour...mais ce qui est clair c'est que la chaine zTmp est libérée par Delphi en fin de fonction !

le paramètre de EstVide ne devrait pas être préfixé "var"

je te propose :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
 sGlobal:string;
 
function ValeurSuivante(): Pchar;
begin
  sGlobal := UCompteur.ValeurSuivante;
  Result := PAnsiChar(sGlobal);
end;
 
function EstVide(sChaine: PChar): Boolean;
begin
  Result := UFonctions.EstVide(sChaine);
end;

personnellement j'utilisais ceci

Code :

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

1
2
3
4
5
 
function GetString(Len:integer; Str:pchar):boolean;
begin
 StrLCopy(...)
end;

Code VB :

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

1
2
3
4
5
 
Private Declare Function GetString Lib "madll.dll" (Len As Integer, sChaine As String) As Boolean
 
 a$=space$(250) ' allocation de la chaine
 GetString(250,a$)

tu peux aussi prévoir de retourner la longueur de chaine réelle etc...

[dim07]

En fait la fonction ValeurSuivante fonctionne correctement.
Mon problème est lié à la fonction EstVide.

Je ne comprends pas l'utilisation de GetString.

J'ai supprimer le var devant le paramètre de la fonction EstVide.
Et j'ai fait le test suivant en VBA :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub CommandButton2_Click()
Dim s1 As String
  s1 = Space$(250)
  If Not EstVide(ByVal s1) Then
    TextBox1.Text = ValeurSuivante
  Else
    TextBox1.Text = ""
  End If
End Sub

Une erreur est levée : Convention d'appel de DLL incorrecte.

[dim07]

En testant avec un paramètre de type double, cela fonctionne.
Le problème provient effectivement du passage de paramètre de type string.

DLL Delphi :

Code :

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

1
2
3
4
5
 
function EstVide(sChaine: double): Boolean;
begin
  Result := UFonctions.EstVide(floattostr(sChaine));
end;

VBA :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub CommandButton2_Click()
Dim s1 As Double
  s = 12
  If Not EstVide(s1) Then
    TextBox1.Text = ValeurSuivante
  Else
    TextBox1.Text = ""
  End If
End Sub

[Paul TOTH]

il doit manquer un stdcall sur la déclaration des fonctions Delphi

j'ai un projet VBA qui fonctionne comme ceci

Code :

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

1
2
3
4
5
 
function Download(Source,FileName:PChar):integer; stdcall; 
begin
 ...
end;

Code vb :

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

1
2
3
4
5
6
 
Declare Function Download Lib "WORD400.DLL" (ByVal SourceName As String, ByVal FileName As String) As Integer
 
 If Download("LIB/FILE.MEMBER", "C:\XWORD.TXT")=0 Then
  MsgBox ("ok")
 End If

[dim07]

Bien vu, avec le stdcall; cela fonctionne.
Merci beaucoup Paul.