var aStr: string = 'Une chaine a envoyer'; procedure TForm1.Button1Click(Sender: TObject); var I: Integer; aByteArray: array of Byte; // un tableau pour récupérer les fameux Bytes begin // on ajuste la taille du tableau à la taille de la chaine de caractères SetLength(aByteArray, Length(aStr)); // et on convertit chaque caractère en Byte for I := 1 to Length(aStr) do aByteArray[I-1] := Ord(aStr[I]);// I-1 parce qu'un tableau commence à 0 et non à 1 comme une chaine de type string //ici tu envoies les données ... end;
12 mai 2015 à 08:07