bonjour, je suis un peu perdu j'ai une valeur hexa FE FD 00 que je transforme en string pour la transmettre avec
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
function HexToString(H: String): String;
var I : Integer;
begin
  Result:= '';
  for I := 1 to length (H) div 2 do
    Result:= Result+Char(StrToInt('$'+Copy(H,(I-1)*2+1,2)));
end;
ce que je cherche a faire c'est d'envoyer un array of byte avec ma valeur hexa et c'est la que je coince hexa byte quelqu'un peut m'expliquer?
0X00 EN hexa c'est null en byte je trouve pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var
  t: array of Byte;
Begin
  SetLength(t, 3);
  t[0] := 0xFE;
  t[1] := 0xFD;
  t[2] := 0x00;
end;
merci d'avance pour votre aide