Discussion :

[djiga4me]

Bonjour,
Voilà un code :

Code :

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

1
2
3
4
5
var id : PAnsiChar;
begin
   Get(PChar(ID));
   IDEdit.Text:=id;
end;

Je fais ainsi, le résultat est bon, mais j'obtiiens une erreur dans le module "ntdll".

Remarque : Get prendre comme paramètre une variable de type PWideChar, et il faut que j'obtienne ce qu'elle renvoie dans une variable puis je l'envoie dans un string (pour le TEdit).

Une proposition ?!

[mick605]

Salut

C'est un peu flou ce que tu demandes ... Get c'est une fonction qui prends en argumet un PWideChar, ok ... Donc, tu n'as qu'a lui donner en parametre l'adresse d'une variable de type WideString ...

Code :

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

1
2
3
4
var Myvar : WideString;
 
Get(@MyVar[1]);
Edit1.text:=MyVar;

Je sais pas si ca va marcher ...

Bonne chance !

[djiga4me]

La solution proposée ne marche pas ! J'ai toujours une erreur "ntdll.dll".
Vous avez bien compris le problème, la fonction Get (qui renvoie un boolean) prend en paramètre un PWideChar.

(PS : le support technique du logiciel me conseille d'utiliser une variable de type PAnsiChar, et moi j'arrive pas à faire le transtypage, j'obtiens toujours une erreur ! : Transtypage incorrect !)

[Nono40]

Est-ce que l'appel de Get suppose que la mémoire du paramètre est bien alouée ? Si oui alors aucun des codes ci-dessus ne fonctionne.

Essaye :

Code :

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

1
2
3
4
5
 
Var Buffer:Array[0..1000]Of WideChar
Begin
  Get(@Buffer);
  Edit1.Text:=Buffer;

C'est brut et pas testé.

[mick605]

Est-ce que l'appel de Get suppose que la mémoire du paramètre est bien alouée ? Si oui alors aucun des codes ci-dessus ne fonctionne.

Je dis peut etre une bêtise, mais Delphi ne s'occupe-t-il pas de l'allocation mémoire (pour les types string) ?

[djiga4me]

ce code marche normalement, pas d'erreur ntdll,

Code :

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

1
2
3
4
5
 
Var Buffer:Array[0..1000]Of WideChar
Begin
  Get(@Buffer);
  Edit1.Text:=Buffer;

mais la fonction Get retourne des caractères chinois au lieu d'une chaine en bonne et due forme.
Et comme je l'ai dit, l'équipe technique du logiciel m'a conseillé d'utiliser PAnsiChar en var. Et c'est vrai que ça me retourne une chaine normale, sauf qu'il y a l'erreur de la dll !

[mick605]

Ben essaye de changer le WideChar en AnsiChar ... Enfin, c'est pas tres logique, si ta fonction prends en argument des WideChar et qu'on lui donne des AnsiChar ...

[Nono40]

=>djiga4me
Essaye ceci :

Code :

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

1
2
3
4
Var Buffer:Array[0..1000]Of AnsiChar
Begin
  Get(@Buffer);
  Edit1.Text:=Buffer;

Tu auras peut-être des problème avec les accents et caractères hors plage 32..127.

Je dis peut etre une bêtise, mais Delphi ne s'occupe-t-il pas de l'allocation mémoire (pour les types string) ?

Oui pour les String AnsiString WideString
Non pour les PChar PAnsiChar PWideChar

[mick605]

Oui pour les String AnsiString WideString
Non pour les PChar PAnsiChar PWideChar

Alors, est ce que tu sais pourquoi cette solution ne marche pas ?

Code :

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

1
2
3
4
var Myvar : WideString;
 
Get(@MyVar[1]);
Edit1.text:=MyVar;

Simple curiosité

[Nono40]

Tu perds la notion de type en utilisant l'opérateur @.

@MaWideString[1] n'est rien d'autre qu'un PWideChar et non pas un WideString.

La procédure Get n'a pas accès à la référence de la chaine et ne peut donc pas s'occuper de la gestion de mémoire.

[mick605]

Tu perds la notion de type en utilisant l'opérateur @.

@MaWideString[1] n'est rien d'autre qu'un PWideChar et non pas un WideString.

La procédure Get n'a pas accès à la référence de la chaine et ne peut donc pas s'occuper de la gestion de mémoire.

Ok, merci pour l'info ^^

[Montor]

Alors, est ce que tu sais pourquoi cette solution ne marche pas ?

Code :

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

1
2
3
4
var Myvar : WideString;
 
Get(@MyVar[1]);
Edit1.text:=MyVar;

Simple curiosité

ligne a ajouter

Code :

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

SetLength(MyVar,1000)

@Nono40
je pense qu'il faut ajouter

Code :

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

1
2
3
4
5
Var Buffer:Array[0..1000]Of AnsiChar
Begin
  Buffer  :='';
  Get(@Buffer);
  Edit1.Text:=Buffer;

[Nono40]

ligne a ajouter

Code :

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

SetLength(MyVar,1000)

Bien vu ça fonctionne aussi.

@Nono40
je pense qu'il faut ajouter

Code :

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

1
2
3
4
5
Var Buffer:Array[0..1000]Of AnsiChar
Begin
  Buffer  :='';
  Get(@Buffer);
  Edit1.Text:=Buffer;

Je ne pense pas, Get() doit écrire sans trop se soucier de qu'il y a avant.

[djiga4me]

Cool !
C'est bon le code ci-dessous à réglé le problème !

Code :

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

1
2
3
4
5
6
 
var Buffer : array [0..100] of AnsiChar;
begin
  Buffer:='';
  WLHardwareGetID(@Buffer);
  IDEdit.Text:=Buffer;

Je vous remercie tous.
Et si quelqu'un pouvait m'expliquer pourquoi l'initialisation de la variable buffer
à "" a changé quelque chose !
(et de passage, je ne comprends pas très bien les notions Char, PChar, AnsiChar, PAnsiChar ...)

[Nono40]

Ca veut dire que la fonction get() tient compte du contenu passé en paramètre avant de répondre et n'initialise pas par défaut.

Le fait de faire ='' initialise le tableau buffer avec une chaine vide.

[djiga4me]

D'accord !
Merci pour l'explication !