DLL : récupérer des string/PChar...

Version imprimable

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:

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:

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

08/11/2005, 02h08
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) :?: :?: :?:
08/11/2005, 03h07
the_magik_mushroom

en utilisant les PChar ont peu justement se passer de sharemem (enfin je crois)
08/11/2005, 03h56
LadyWasky

Citation:

Envoyé par the_magik_mushroom

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... :? )
08/11/2005, 06h21
Hauwke

Citation:

Envoyé par waskol

Citation:

Envoyé par the_magik_mushroom

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
09/11/2005, 01h58
the_magik_mushroom

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

Citation:

Envoyé par Hauwke

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:

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:

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 ;)

09/11/2005, 19h25
the_magik_mushroom

ça marche nikel, merci :)

Citation:

Smyley :

Code:

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à ! :ccool: