Discussion :

[mkiba]

Bonjour à tous!



Je voudrais savoir si dans DELPHI7, il existe une fonction permettant de convertir une chaîne de caractères en tableau d'octets (array of byte).

[rsc]

Je ne connais pas de fonction spéciale, mais une chaîne étant un tableau de caractères, et Ord renvoyant la valeur ASCII du caractère,

Code :

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

Ord (maChaine [i]);

ou en transtypant

Code :

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

Byte (Ord (maChaine [i]));

devrait te renvoyer la valeur que tu veux, non ?

[guillemouze]

peut etre en feintant comme ca:

Code :

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

1
2
 
x := TByteDynArray(PChar(MaChaine));

a tester ...

(Si TByteDynArray n'est pas declarée dans Types, c'est juste un array of byte)

[sjrd]

La solution de guillemouze me paraît extrèmement risquée. C'est la violation d'accès presque assurée.

Je préfèrerais :

Code :

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

1
2
3
4
5
6
7
8
9
var
  Str: string;
  Bytes: array of Byte;
begin
  ...
  SetLength(Bytes, Length(Str));
  Move(Str[1], Bytes[0], Length(Str));
  ...
end;

[guillemouze]

La solution de guillemouze me paraît extrèmement risquée. C'est la violation d'accès presque assurée.

oui mais la question etait :

il existe une fonction permettant de convertir une chaîne de caractères en tableau d'octets

et il n'est pas précisé "sans AV"
effectivement, ta solution est beaucoup plus sure.
Par contre, pourquoi un Move et pas un Copy? (je ne connais pas bien l'effet exacte de la fonction Move)

[sjrd]

Par contre, pourquoi un Move et pas un Copy? (je ne connais pas bien l'effet exacte de la fonction Move)

Parce qu'un Copy sur une chaîne renvoie une chaîne. Donc on n'est pas plus avancé

La routine Move(Source, Dest, Count) copie Count octets à partir de Source vers Dest.

[mkiba]

La solution de guillemouze me paraît extrèmement risquée. C'est la violation d'accès presque assurée.

Je préfèrerais :

Code :

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

1
2
3
4
5
6
7
8
9
var
  Str: string;
  Bytes: array of Byte;
begin
  ...
  SetLength(Bytes, Length(Str));
  Move(Str[1], Bytes[0], Length(Str));
  ...
end;

OK ça marche. Merci