Discussion :

[flexio2]

Bonjour,
Je dois utiliser à partir de Vb (ou Access) la fonction suivante d'une Dll
Delphi 5 :
function algo(data0,data1,data2,data3,data4:pchar):pchar;

Pour cela je déclare selon :
Public Declare Function algo Lib "Algo.dll" (ByVal data0 As String, ByVal
data1 As String, ByVal data2 As String, ByVal data3 As String, ByVal data4 As
String) As String

Avec l'appel :
Dim MyStr$
MyStr$ = algo("1", "a", "b", "c", "d")

Ce qui provoque un plantage !!
Que dois-je corriger dans mon appel ???
Faut-il avoir "stdcall" à la fin de la fonction ?

D'avance merci
Flexio

[Eric Boisvert]

Avant tout, bienvenue sur Developpez.

Personnellement j'essai de ne pas retourner de string
via mes fonctions qui sont dans une DLL.

J'essaie de faire comme les API de windows et j'inclus dans
mes parametres de function, une valeur de sortie.

donc pour ton exemple, je ferais ainsi:

Code 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
 
//==============================================================================
//=== Fonction ===
//==============================================================================
function AlgoFunc(data0,data1,data2,data3,data4,lpBufferResult:pchar):DWORD;stdcall;
begin
  result:=0;
  if Data0='bonjour' then
  begin
    StrCopy(lpBufferResult,'allo');
    result:=1;
  end;
 
end;

Declaration et utilisation dans vb
(ici VBA dans excel)

Code VB :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Public Declare Function AlgoFunc Lib "Algo.dll" (ByVal data0 As String, ByVal _
data1 As String, ByVal data2 As String, ByVal data3 As String, ByVal data4 As _
String, ByVal lpBufferResult As String) As Long
 
 
Sub test()
  Dim Result As String
  '== Prepare assez de place pour recevoir une reponse... =='
  Result = String$(255, 0)
  Debug.Print AlgoFunc("bonjour", "2", "3", "4", "5", Result)
  Debug.Print Result
End Sub

Dans la fenetre de debug je vois le text suivant:

Code :

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

1
2
3
 
 1 
allo

C'est selon moi la meilleur façon de procéder...
et ça reste une simple opinion personnel.

[flexio2]

Bonjour et merci pour l'accueil et la réponse.

Malheureusement je n'ai que le code source et la dll compilée mais pas les outils de dev pour corriger et recompiler.

Finalement, en l'état sans "stdcall" en fin de fonction ai-je un espoir de pouvoir l'appeler via VB ou Access ?

D'avance merci.

Flexio

[Eric Boisvert]

Selon moi, une fonction Delphi qui retourne une string et qui est dans une DLL
peut seulement être utilisée que par un autre programme Delphi.

Et il y a plusieurs raison à cela...
La principale étant que VB,C ou Delphi, tous ces langages traite les
chaînes de caractères de façon différente et il est impossible au moment
de la compilation de la DLL de savoir à qui on a affaire.

Lorsqu'on veut utilisé les chaînes de caractères, on doit alloué un morceau
de la mémoire, et éventuellement le libérer. Encore une fois, d'un langage à
l'autre, ça ce passe de façon différente. C'est pourquoi habituellement, le
programme qui appelle une fonction dans une DLL doit allouer lui même
l'espace mémoire et passer un pchar (pointeur de caractères) à la fonction.
Le programme qui appèle ainsi la fonction sera à quelle moment et de quelle façon libérer la mémoire qui contient une série de caractères.

Donc, à moins que tu ne trouve quelqu'un pour faire la modification de la DLL
(puisque tu as le code source) ou tu traduis cette fonction en VB pour
éliminer la DLL... je crois que tu est coincé.

donc

ai-je un espoir de pouvoir l'appeler via VB ou Access ?

Non. Désolé.

[Eric Boisvert]

Par contre, si ton Algo n'est pas top secret,
je pourrait peut-être te la recompiler.

[flexio2]

Une fois de plus merci pour toutes ces infos.
Je vais essyer de réécrire l'algo en VB.
Si je n'y arrive pas je veux bien une recompile du code.

Flexio