Discussion :

[the_magik_mushroom]

bonjour,

je n'arrive pas a récupérer des strings depuis une de mes dll.
j'ai tout essayé, PChar, ShortString... et je bloque

voici le code de ma dll:

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
36
library Project1;
uses
  SysUtils,
  Classes,
  Windows;
{$R *.RES}
 
function getnameuser: string; StdCall;
const
  cnMaxUserNameLen = 254;
var
  sUserName: string;
  dwUserNameLen: DWORD;
begin
  dwUserNameLen := cnMaxUserNameLen - 1;
  SetLength(sUserName, cnMaxUserNameLen);
  GetUserName(PChar(sUserName), dwUserNameLen);
  SetLength(sUserName, dwUserNameLen);
  Result := sUserName;
end;
 
function messtrg: PChar; StdCall;
var
str1, str2: string;
begin
str1 := ('username :  ' + getnameuser);
str2 := ('salut! ');
result := PChar(str1);
end;
 
exports
getnameuser,
messtrg;
 
begin
end.

et de mon exe:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
Type TMonmesstrg = procedure;
Var
Hdle : THandle;
messtrg: TMonmesstrg;
begin
 
Hdle:=LoadLibrary(PChar('C:\test.dll')); //Charge la DLL
@messtrg:=GetProcAddress(Hdle,'messtrg'); //Récupère l'adresse de la procedure
messtrg; //Appelle la procedure "messtrg"
FreeLibrary(Hdle); //Libère la DLL
end;

j'ai essayé des 15 façons différentes sans succès,
ce que je voudrai c'est récupérer str1 et str2 en appelant messtrg.

merci d'avance

[LadyWasky]

Il n'y a pas une unité spéciale à rajouter par hasard, style ShareMem ou je ne sais plus trop (j'ai pas mon Delphi sous les yeux) : : :

[the_magik_mushroom]

en utilisant les PChar ont peu justement se passer de sharemem (enfin je crois)

[LadyWasky]

en utilisant les PChar ont peu justement se passer de sharemem (enfin je crois)

Oui mais en utilisant que des PChar, dès que tu as un type String déclaré quelque part, il me semble que ça ne marche plus justement (je me trompe TREEEEEEEEEEEEEEES surement, hein, donc je ne m'avance pas trop... )

[Hauwke]

en utilisant les PChar ont peu justement se passer de sharemem (enfin je crois)

Oui mais en utilisant que des PChar, dès que tu as un type String déclaré quelque part, il me semble que ça ne marche plus justement (je me trompe TREEEEEEEEEEEEEEES surement, hein, donc je ne m'avance pas trop... )

Tu ne te trompes absolument pas! Si l'on veut que nos Dll soient "portables" il faut absolument que toutes les chaînes de caractéres aussi bien échangée au travers de la Dll qu'à l'intérieur de la dll respectent certaines régles comme celles énoncées dans ce tuto
Cordialement,
Hauwke

[the_magik_mushroom]

merci pour le tuto, mais je suis toujours bloqué :/

[smyley]

Tu ne te trompes absolument pas! Si l'on veut que nos Dll soient "portables" il faut absolument que toutes les chaînes de caractéres aussi bien échangée au travers de la Dll qu'à l'intérieur de la dll respectent

Mais non, seule les types exportés ont de l'importance. Dans mes dlls je fait toujours des fonctions qui exportent des PChars mais en interne j'utilise des String, Class et tout un tas d'autres truc et ça marche presque toujours

bon ensuite si tu déclares ta fonction TMonmessstrg comme un procédure, ça va pas marcher

donc pour le code :

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
 
procedure TForm1.Button1Click(Sender: TObject);
 
Type TMonmesstrg = function : PChar;StdCall; //même déclaration que pour messstrg
 
Var
Hdle : THandle;
messtrg: TMonmesstrg;
ChaineDeResultat : string;
begin
 
Hdle:=LoadLibrary(PChar('C:\test.dll')); //Charge la DLL
@messtrg:=GetProcAddress(Hdle,'messtrg'); 
 
ChaineDeResultat := StrPas(messtrg); //On récupère la chaine
 
FreeLibrary(Hdle); //Libère la DLL
end;

et maintenant la dll :

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
 
function messtrg: PChar; StdCall;
var
str1, str2: string;
Res : PChar;
begin
str1 := ('username :  ' + getnameuser);
str2 := ('salut! ');
 
//result := PChar(str1); FAUT PAS FAIRE ce genre de trucs, ça peut faire des érreurs avec la gestion de la mémoire donc :
 
str2 := str2 + #0; //caractère de fin de chaine sous windows
 
GetMem(Res,Length(str2));
Move(Pointer(str2)^,Res^,Length(str2));
Result := Res;
end;

Bon, voilà qui devrais marcher nikel

[the_magik_mushroom]

ça marche nikel, merci

[LadyWasky]

Smyley :

Code :

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

1
2
3
4
5
6
//result := PChar(str1); FAUT PAS FAIRE ce genre de trucs, ça peut faire des érreurs avec la gestion de la mémoire donc :
 
str2 := str2 + #0; //caractère de fin de chaine sous windows
 
GetMem(Res,Length(str2));
Move(Pointer(str2)^,Res^,Length(str2));

Je viens d'apprendre quelque chose là !