array byte string hexadecimal

bonjour, je suis un peu perdu j'ai une valeur hexa FE FD 00 que je transforme en string pour la transmettre avec

Code:

---

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:

---

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

mes deux fonctions magique :

http://www.developpez.net/forums/d86...e/#post4930922


la syntaxe 0xnn c'est en C, en delphi un nombre en representation hexa c'est $nn

Code:

---

1 2 3 4

C -> Delphi 0xFF -> $FF 0x00 -> $00 0xFFFE00 -> $FFFE00

---

si tu n'as que 3 ou 4 octets à transmettre tu peut ecrire un paquet :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

type TPacket = packed record case integer of 0: (kLL, kLH, kHL, kHH: byte); 1: (kLong : LongWord); 2: (kArray : array[0..3] of byte); end;   begin Packet.kLL := 1; Packet.kLH := 2; Packet.kHL := 3; Packet.kHH := 4;   Packet.kLong := $04030201;   for N := 0 to 3 do Packet.kArray[N] := N + 1;   Send(@Packet, SizeOf(TPacket)); Send(@Packet, 3); // send kLL, kLH, kHL or kArray[0..2] Send(@Packet, 2); // send kLL, kLH or kArray[0..1] Send(@Packet, 1); // send kLL or kArray[0]

---

Euh, BinToHex et HexToBin, c'est par défaut en Delphi ...

Ici un code pour éliminer espace et casse, cela écrit dans un fichier mais une fois HexaBuffer buffer obtenu, on peut en faire ce que l'on veut !

merci à vous, sa fonctionne comme sa

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

type TIdBytes = array of Byte; var t:TIdBytes; begin SetLength(t, 4); t[0] := $FE; t[1] := $FD; t[2] := $00; t[3] := $43; ...

---

par contre j'arrive pas a créer une constante de ce type, la c'est bon:

Code:

---

t: array[0..4] of Byte = ($FF, $FF, $FF, $FF, $02);

---

mais pour le type TIdBytes je trouve pas

Normal, c'est un type dynamique, tu ne peux pas initialisé ce type de tableau !

donc du coup a l'initialization de l'unité je remplis mes var avec mes constantes

Code:

---

1 2 3 4 5 6 7 8 9 10 11

const GSQ_GAMESPY2: Array[0..9] Of Byte = ($FE, $FD, $00, $04, $05, $06, $07, $FF, $FF, $00); var GSQ_GAMESPY2_IdB: TIdBytes;   .... begin For I := Low(GSQ_GAMESPY2) To High(GSQ_GAMESPY2) Do GSQ_GAMESPY2_IdB[I] := GSQ_GAMESPY2[I]; end;

---

sa fait bricolage sa non, en tout cas sa fonctionne bien merci à vous:ccool: j'ai tous passé avec des buffer de byte plutot que des string qui fonctionne sur 1 serveur sur 2:roll:

Pour faire encore plus bricolage :roll:

Code:

---

1 2 3 4

begin SetLength(GSQ_GAMESPY2_IdB, Length(GSQ_GAMESPY2); CopyMemory(@GSQ_GAMESPY2_IdB[0], @GSQ_GAMESPY2, SizeOf(GSQ_GAMESPY2)); end;

---

Cela fonction parce que c'est des Bytes !

J'ai déjà eu aussi le besoin d'avoir un tableau dynamique qui selon un paramètre prenait une constante différente, au final, je suis passé via un Pointeur ... j'avais au début essayé de jouer avec la mémoire, mais très très mal, voir Tableau Dynamique pointant sur Tableau Statiques mais avec la dernière remarque de Montor pour l'Affectation à nil avec Transtypage en Pointeur, mon idée farfelu est viable !