array byte short 16 bit signed integer

Version imprimable

08/04/2010, 14h23
ouiouioui

1 pièce(s) jointe(s)

array byte short 16 bit signed integer

bonjour, je crée une classe qui interroge des serveurs et affichent leur réponse. Un type de serveur me renvoie un short 16 bit signed integer et je ne sais pas comment le transformer.

à chaque réponse du serveur j'ai donc un array de byte. Que je transforme en string, integer 8 bits. mais je ne trouve pas pour 16bits qui tiens sur 2 valeurs de mon array.

en pièce joint on peut voir mon tableau, j'ai entouré en vert les strings, en bleu les integers 8bits, en rouge le integer 16bits que je n'arrive pas à transformer.

en php c'est avec unpack('S', donnees); quelqu'un a peut-être déjà eu ce problème.

Merci en tout cas de m'avoir lu.

bytes vers :

word/smallint 16bit :
Code:

1 2 V := PWord(@Bytes[index])^; V := PSmallInt(@Bytes[index])^;
string :
Code:

1 2 setLength(S, taille); S := PAnsiChar(@Bytes[index])^;

08/04/2010, 15h22
ouiouioui
oui mais la c'est sur 2 byte. donc imaginons
Code:

1 2 V := PSmallInt(@Bytes[5])^; V2 := PSmallInt(@Bytes[6])^;
je fait quoi après? v := v + v2; sa va me les additionner faut les mettre bout à bout plutôt non?

Si:
Code:

1 2 bytes[5] := 255; bytes[6] := 45;
je doit trouver 25545 si je me trompe pas?
08/04/2010, 15h35
Cl@udius

Salut

Un Smallint est codé sur 16 bits, donc:

Code:

V := PSmallInt(@Bytes[5])^;

Là tu devrais retrouver ta valeur, puisque tu vas lire 2 octets (5 et 6).

@+

ah d'accord je comprend mieux.

sa donne sa:

Code:

1
2
3
4
5
6
7
8
 
  FByteQueryResult[0]:=240;
  FByteQueryResult[1]:=0;
  PSmallInt(@FByteQueryResult[0])^; // 240
 
  FByteQueryResult[0]:=240;
  FByteQueryResult[1]:=54;
  PSmallInt(@FByteQueryResult[0])^; // 14064

je vous remercie beaucoup

pour les string je connais pas la longueur juste le delimiter la méthode du docteur à l'air plus rapide mais pas applicable je me trompe?

edit: a votre avis lequel est la mieux?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Function TGameServerParser.CutString(bDelimiter: Byte; Var I: Integer): String;
Begin
  Result := '';
  While (FByteQueryResult[I] <> bDelimiter) And (I < High(FByteQueryResult)) Do
  Begin
    Result := Result + Chr(FByteQueryResult[I]);
    Inc(I);
  End;
  if FByteQueryResult[I] = bDelimiter then
    Inc(I);
End;
 
Function TGameServerParser.CutString(bDelimiter: Byte; Var I: Integer): PAnsiChar;
Var
  iSize: Integer;
Begin
  Result := '';
  iSize  := 0;
  While (FByteQueryResult[I] <> bDelimiter) And (I < High(FByteQueryResult)) Do
    Inc(iSize);
 
  SetLength(Result, iSize);
  Result := PAnsiChar(@FByteQueryResult[I])^;
 
  Inc(I, iSize);
  If FByteQueryResult[I] = bDelimiter Then
    Inc(I);
End;