Bytes auf ein Integer auffädeln

[Delphi.Narium]

Ich rate mal:

L := PInt16(@FReceiveBuffer[9])^

PInt16 ergeben 2 Byte, das heißt, das hier die Bytes 9 und 10 nach L kommen.

Bei L := PInt32(@FReceiveBuffer[9])^ müssten es dann die Bytes 9 bis 12 sein.

[Kostas]

data[9] := $0;
data[10] := $5f;

Das Ergebnis sollte sein = 95($5f)
Ich habe gerade ausprobiert, leider ist das Ergebnis nicht 95 sondern 24320($5f00)

Delphi-Quellcode:

procedure SnapshotLength;
              begin
//                FSnapshotLength := data[9];
//                FSnapshotLength := FSnapshotLength shl 8;
//                FSnapshotLength := FSnapshotLength or data[10];

                FSnapshotLength := PInt16(@data[9])^;
              end;

[Delphi.Narium]

Was bitte ist denn FReceiveBuffer? Gibt es da zufällig eine Definition zu, so dass man weiß, wovon geredet wird?

z. B.:

Delphi-Quellcode:

FReceiveBuffer : Array[0..12345] of Byte;
FReceiveBuffer : Array[0..12345] of Integer;
FReceiveBuffer : Array[0..12345] of Char;
FReceiveBuffer : Array[0..12345] of Word;

[himitsu]

Zitat von Kostas:

Das Ergebnis sollte sein = 95($5f)
Ich habe gerade ausprobiert, leider ist das Ergebnis nicht 95 sondern 24320($5f00)

System.Swap
https://www.delphipraxis.net/125740-...rtauschen.html

[Kostas]

Oh sorry Delphi.Narium,

FReceiveBuffer ist ein array of byte;
Da sind eine Menge Bytes enthalten. In diesem Paket muss ich z.B.: das Byte 9 und 10 in ein Integer kopieren. Zuerst kommt das Byte 9 und danach das Byte 10.

Als Beispiel:
FReceiveBuffer[9] := $10;
FReceiveBuffer[10] := $5f;

Wenn das Byte [9]+[10] auf ein Integer geschoben wird, sollte das Ergebnis $105f sein.

Gruß Kostas

[Uwe Raabe]

Delphi-Quellcode:

var
  buf: LongRec;
begin
  buf.Bytes[3] := 0;
  buf.Bytes[2] := 0;
  buf.Bytes[1] := FReceiveBuffer[9];
  buf.Bytes[0] := FReceiveBuffer[10];
  Result := Integer(buf);
end;

[Jasocul]

Ich benutze in solchen Fällen gerne variante Records:

Delphi-Quellcode:

  TMyRec = packed record
    case tag : byte of
      0 : (b1 : Byte;
           b2 : Byte;
           b3 : Byte;
           b4 : Byte);
      1 : (MyInt : Integer);
  end;

Mit deinem Beispiel müsste es dann so funktionieren:

Delphi-Quellcode:

var
  vRec : TMyRec;
begin
  vRec.MyInt := 0; // Initialisierung. Damit sind die b-Werte auch initialisiert
  vRec.b1 := $10;
  vRec.b2 := $5f;
end;

Bei der Reihenfolge der Byte-Werte weiß ich leider nicht mehr genau, wie das ganz korrekt sein muss. Ich meine, dass das Mixed Endian ist. Für das Beispiel ist es jedenfalls korrekt.
Das kannst du aber einfach prüfen, indem du Testwerte bei MyInt einträgst und nachsiehst, was bei den einzelnen Byte-Werten steht.

Einen Link, wie das in Delphi tatsächlich ist, habe ich auf die Schnelle leider nicht gefunden.

[Kostas]

Hallo Zusammen,

Die Methode mit dem packed record gefällt mit sehr gut.
Das Ergebnis von Test1 und Test2 sind identisch.
Ich finde Test1 ist schöner zu lesen.

Eigentlich habe ich gehofft es gibt so etwas wie: MyInt := FReceiveBuffer[11] << FReceiveBuffer[12] << FReceiveBuffer[13];
Ich werde die packed record Methode einsetzen.

Delphi-Quellcode:

TMyIntRec = packed record
    case tag : byte of
      0 : (b1 : Byte;
           b2 : Byte;
           b3 : Byte;
           b4 : Byte);
      1 : (MyInt : Integer);
end;


function Test1:integer;
var MyIntRec: TMyIntRec;
begin
  MyIntRec.MyInt := 0;
  MyIntRec.b1 := FReceiveBuffer[13];
  MyIntRec.b2 := FReceiveBuffer[12];
  MyIntRec.b3 := FReceiveBuffer[11];
  result := MyIntRec.MyInt;
end;

Delphi-Quellcode:

function Test2:integer;
begin
  result := FReceiveBuffer[11];

  result := result shl 8;
  result := result or FReceiveBuffer[12];

  result := result shl 8;
  result := result or FReceiveBuffer[13];

end;

Herzlichen Dank an ALLE und einen schönen Tag.
Gruß Kostas