Bytes auf ein Integer auffädeln

[Kostas]

Hallo Zusammen,

um z.B.: zwei Bytes auf ein Integer aufzufädeln mache ich das so:

Delphi-Quellcode:

var L: Integer;
begin
  L := FReceiveBuffer[9];
  L := L shl 8;
  L := L or FReceiveBuffer[10];
end;

Ich setze gerade ein Protokoll um und da muss ich diese Aktion öfters machen von ein bis vier Bytes auf ein Integer auffädeln.
Gibt es eine elegantere Möglichkeit dafür?

Gruß Kostas

[Zacherl]

Zitat von Kostas:

Gibt es eine elegantere Möglichkeit dafür?

Definitiv! Sofern die Byte-Order garantiert gleich ist, kannst du auch einfach direkt den Datentyp auslesen, den du brauchst (z.B. Int16, Int32, ..) bzw. den Buffer dahingehend casten mit L := PInt16(@FReceiveBuffer[9])^ . Eventuell macht es ja sogar Sinn für jedes Paket ein struct zu deklarieren (vorrausgesetzt die Struktur ist immer gleich groß) und dann direkt in einem Rutsch auszulesen.

[Delphi.Narium]

Keine Ahnung, ginge sowas?

Delphi-Quellcode:

type 
  t4 = record
    a : Byte;
    b : byte;
    c : Byte;
    d : Byte;
  end; 

var
  i  : Integer;
  r4 : t4 absolute i;
begin
  r4.a := FReceiveBuffer[0];
  r4.b := FReceiveBuffer[1];
  r4.c := FReceiveBuffer[2];
  r4.d := FReceiveBuffer[3];
end;

Da r4 an der gleichen Adresse liegt wie i, müsste i nun die 4 Bytes enthalten.
Ob's hier jetzt schon die von Dir gewünschte Reichenfolge ist, weiß ich nicht.
Aber das ließe sich ja ggfls. einfach durch Änderungen der Reihenfolge bei der Zuweisung ändern.

[Kostas]

Zitat von Zacherl:

Zitat von Kostas:

Gibt es eine elegantere Möglichkeit dafür?

Definitiv! Sofern die Byte-Order garantiert gleich ist, kannst du auch einfach direkt den Datentyp auslesen, den du brauchst (z.B. Int16, Int32, ..) bzw. den Buffer dahingehend casten mit L := PInt16(@FReceiveBuffer[9])^ . Eventuell macht es ja sogar Sinn für jedes Paket ein struct zu deklarieren (vorrausgesetzt die Struktur ist immer gleich groß) und dann direkt in einem Rutsch auszulesen.

sorry das ich nachfrage, aber wie bekomme ich das zweite Byte auf den Integer aufgefädelt? Ich habe eigentlich nur vier Varianten Auf dem Integer L werden 1,2,3 oder 4 Bytes aufgefädelt.
Gruß Kostas

[himitsu]

Es gibt auch fertige Funktionen ala Point (TPoint), SmallPoint (TSmallPoint), MakeLong usw.

Ansonsten werden meistens Records zum Casten bzw. für Teilzugriffe verwendet, so wie bereits erklärt, von welchen es auch schon Fertige für Integer, Word usw. gibt.


L := (Integer(FReceiveBuffer[9]) shl 8) or FReceiveBuffer[10]; Die Klammern um SHL sind vermutlich nicht nötig, da SHL vor OR aufgelöst wird. (glaub ich)

Und das Wichtige ist der CAST des Buffer[9] auf Word oder gleich auf Integer, denn diese Typen sind schon groß genug, damit das SHL ordentlich schieben kann, ohne links überzulaufen.

[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.

[p80286]

Oder eine ganz alte Möglichkeit:

Delphi-Quellcode:

type
  Bufferb : Array [0..127] of Byte;
  BufferW : Array [0..63] of Word absolute BufferB;

Gruß
K-H

[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