Pchar showmessage

Version imprimable

Bonjour

Je passe un Pchar en paramètre à une fonction d'une DLL qui doit modifier le contenu du string.
Le contenu doit ensuite être affiché par la procedure appelante.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Procedure Appel(); Mot : String; Pmot : Pchar; begin mot:=' '; {alocate memory} GetMem(pword,Length(mot)) ; // takes a pointer pword := PChar(mot); ChangeMot(Pword) ShowMessage(string(PWord)); {free the memory} FreeMem(pword) ; end;
// Procedure dans la dLL
Code:

1 2 3 4 5 6 7 8 Procedure ChangeMot(var p : Pchar); var NouveauMot : String; begin NouveauMot := 'DRESSER'; Move(NouveauMot,p,Length(NouveauMot)); end;
L'affichage de retour est 'DRES ' avec un symbole de fin de string je pense à la place de l'espace.

Y a t-il mieux à faire ?
merci

aïlle ouille ! ça fait mal !

je place les commentaires dans le code.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Procedure Appel();
 Mot : String;
 Pmot : Pchar;
begin
// A QUOI CA SERT ?
  mot:='                        ';
 {alocate memory}
// pourquoi pas un getmem(pmot,24); ?
 GetMem(pword,Length(mot)) ; // takes a pointer
// et voila que le getmem ci-dessus est perdu !
 pword :=  PChar(mot);
// ici, pword pointe sur @mot[1], c'est tout..
 
 ChangeMot(Pword)
// ...du coup, un ShowMessage(mot) suffirait (voir plus bas)
 ShowMessage(string(PWord));
 
{free the memory}
 FreeMem(pword) ;
 
end;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
// Procedure dans la dLL
 
// pas de VAR !!! c'est le contenu qu'on change pas la valeur du pointeur
Procedure ChangeMot(var p : Pchar);
var
    NouveauMot : String;
begin
    NouveauMot := 'DRESSER';
// non, un string EST un pointer, 
// c'est donc ici la valeur du pointeur qui est copié
// et "p" est aussi un pointer, il faut prendre l'adresse pointée "p^"
    Move(NouveauMot,p,Length(NouveauMot));
end;

... donc voici ce qu'il est possible de faire:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
procedure appel;
var
 mot:string;
begin
 SetLengh(mot,1024); // taille au pif 
 ChangeMot(@mot[1]);
 ShowMessage(mot);
// NB: ShowMessage s'arrêtera sur le #0, pas la peine d'ajuster la taille
end;
 
procedure ChangeMot(p:pchar); 
var
 NouveauMot:string;
begin
 NouveauMot:='DRESSER'; // attention à ne pas dépasser les 1024 !
 move(NouveauMot[1],p^,Length(NouveauMot)+1);
// on met un +1 pour inclure le #0 présent en fin de chaine
end;

mais on peut faire bien d'autres choses comme déjà débattu souvent ici et ailleurs....

21/07/2007, 15h04
Steff2

oui ça fait mal...
J'ai fait tellement de tests avec divers exemples qu'à la fin il y a des lignes inutiles et ça n'a plus aucun sens.

En realité de delphi à delphi-DLL mon code originel marchait très bien. C'est en appelant avec REALBASIC que j'avais plus de difficultés.

merci pour les corrections, j'ai corrigé dans realbasic et ça fonctionne à merveille.

Bonne journée.