ClientSocket: 4bytes lesen und kombinieren

[Pseudemys Nelsoni]

hoi,

Wenn ich ein Socket "auslese" 1-byte zurzeit, die ersten 4bytes sind eine zahl die die länge des rests angeben. wie kombiniere ic diese 4bytes zu einen integer?

[negaH]

Delphi-Quellcode:

// Entweder
var
  A,B,C,D: Byte;
  I: Cardinal;
begin
  I := A shl 24 + B shl 16 + C shl 8 + D;
// oder
  I := D shl 24 + C shl 16 + B shl 8 + A;
end;

abhänig davon ob der Integer in Big Endian oder Little Endian gesendet wurde.

Gruß Hagen

[Chewie]

:wiejetzt: Ein Integer ist 4 Bytes groß.

Wie genau bekommst du die Daten geliefert?

[Pseudemys Nelsoni]

danke :}

[Christian Seehase]

Moin Pseudemys Nelsoni,

Du könntest das auch mit Varianten Records lösen:

Delphi-Quellcode:

type
  TMyVarRec = packed record
    case byte of
      0 : (A:Byte;
           B:Byte;
           C:Byte;
           D:Byte;);
      1 : (AR : array [1..4] of Byte);
      2 : (I:Cardinal);
  end;

var
  MyVar : TMyVarRec;

so könntest Du die Werte direkt in MyVar.A bis MyVar.D oder in einer Schleife in MyVar.AR[1] bis MyVar.AR[4] einlesen und könntest dann direkt, ohne weiter etwas umrechnen zu müssen (spart Rechenzeit) den Wert in I benutzen.
Ggf. die Reihenfolge beachten, wie Hagen ja schon geschrieben hatte.

[Pseudemys Nelsoni]

danke für den code, werde es benutzen :)