Discussion :

[ouiouioui]

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.

[Dr.Who]

bytes vers :

word/smallint 16bit :

Code :

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

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

string :

Code :

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

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

[ouiouioui]

oui mais la c'est sur 2 byte. donc imaginons

Code :

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

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 :

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

1
2
 bytes[5] := 255;
 bytes[6] := 45;

je doit trouver 25545 si je me trompe pas?

[Cl@udius]

Salut

Un Smallint est codé sur 16 bits, donc:

Code :

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

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

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

@+

[ouiouioui]

ah d'accord je comprend mieux.

sa donne sa:

Code :

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

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 :

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

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;