Discussion :

[Fred 57220]

Bonjour , j'ai besoin de faire appelle à une dll et je coince

Dans delphi je creais une DLL de la forme suivante ( exemple pour comprendre)

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
library Registry32_64;
uses
  SysUtils,  Classes;
 
{$R *.res}
function Somme(A, B : Integer): Integer; stdcall;
begin
   Result := A + B;
end;
 
function Multip(A, B : PAnsiChar): PansiChar; stdcall;
begin
   //A est une chaine de carracters
   //B est une chaine de carateres
   Result := 'J''ai trouvé' ;
end;
 
exports  Somme; //Sans précision, le nom d'exportation sera "Somme" et l'index 1
exports  Multip ; //  sans précision
 
begin
end.

Dans Windev , là je coince

j'appelle la dll

Code :

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

AppelDLL32("Registry32_64", "Somme" ,SAI_A,SAI_B)

mais comment je recupere la valeur de retour ?

Help.

Merci

[DelphiManiac]

Dés fois il faut un peu lire la doc ^^

http://doc.pcsoft.fr/fr-fr/?3014003&...n&q=AppelDLL32

Exécuter une fonction d'une DLL externe ou de l'API Windows identifiée par son nom
<Résultat> = AppelDLL32(<Nom de la DLL> , <Nom de la fonction> [, <Paramètre 1> [, <Paramètre 2> [, ... ]]])
<Résultat> : Entier sur 4 en 32 bits, entier sur 8 en 64 bits
Résultat de l'exécution de la fonction <Nom de la fonction>. Ce résultat peut être un code d'erreur. Le type de ce résultat dépend de la fonction exécutée. Consultez la documentation de cette fonction pour obtenir plus de détails.
Si le résultat de la fonction est d'une taille supérieure à la taille de l'entier de la plate-forme, il ne pourra pas être récupéré.

Si cela ne fonctionne pas il faudra sûrement jeter un oeil à la convention d'appel de la DLL (cdecl ou stdcall, de mémoire). Cette convention d'appel influence la manière dont les valeurs de retour sont renvoyées sur la pile.

[Fred 57220]

Bonjour

je commence toujours par lire la doc , mais là entre lire et comprendre
y a un pas que je n'arrive pas à faire.

j'ai fait x essai et entre les plantages et les rien.

cordialement

Fred

[DelphiManiac]

Donc, pour récupérer la valeur de retour de l'appel à ta fonction delphi :

Code :

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

valeurDeRetour est un <type de ta variable attendu> = AppelDLL32("Registry32_64", "Somme" ,SAI_A,SAI_B)