Bit-Schiebereien

[Kostas]

vom Lehrbuch her ist mir das schon bekannt.
Wenn ich ein "komplettes" Byte habe ist das noch machbar.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var b:Byte;
begin
  b := $30; //110000
  Label1.caption := IntToStr(Ord(b shr 2)); //x shr 2 macht daraus 001100 und Ord die gewünschte 12 fertig
end;

Doch wie gehe ich hier vor:
Ich bekomme eine Reihe von ca. 60 Bytes (480Bits) und muss sie eigentlich im Ganzen betrachten.
von diesem String muss ich Bit 173-178 herausziehen und dezimal ausgeben.
Muss ich berechnen in welchem Byte(s) die Bits 173-178 stecken? sie werden sich sicherlich in mehrere Bits aufteilen.
Ich kann ja nicht 21,6 bis 22,26 Bytes ausschneiden.
Die Möglichkeit den String könnte ich Binär umwandeln und die Bits herausziehen. Das dauert zu lange.
Die Frage ist, ob es eine effiziente Möglichkeit gibt aus einem beliebig langen String bestimmte Bits herauszuziehen.

Gruß Kostas

P.S. Übrigens, danke für den Link. Wird einiges besser erklärt wie in Lehrbüchern.

[Sir Rufo]

Was bekommst du denn jetzt? Bytes oder Strings?

Gut, irgendwie bekommt man ja immer nur Bytes und ein String ist dann nur die Interpretation der Bytes

[Mavarik]

Zitat von Sir Rufo:

irgendwie bekommt man ja immer nur Bytes

Genau...

TCP/IP? Also hast Du doch sicher ein TIDBytes Buffer, oder?

Wenn die zu untersuchenden Bit's innerhalb einer Byte-Grenze liegen... Prima
(Byte AND Maske) SHR fertig...
Wenn Dein Pattern über eine Byte-Grenze hinaus geht...

Delphi-Quellcode:

type
    TBuffer : packet Record
               Byte1,
               Byte2   : byte;
               Treffer : word;
               Byte3   : byte;
              end;
var
    Buffer : TBuffer;
begin
  Move(IDBuffer[0],Buffer,length(Buffer));
  Caption := inttostr((Buffer.Treffer and Maske) shr whatever);
end;

Zum Beispiel...

Mavarik

PS: Oder nimm Buffer direkt als TCP/IP Zielpuffer!

[Kostas]

Hallo Mavarik,

Jedes Byte-Paket wandert in einer Queue damit ich es sequenziell abarbeiten kann.
Ein Paket enthält an Vielzahl an Nutzdaten. Die meisten überschreiten die Bytegrenzen.
Am einfachsten scheint mir die Möglichkeit das gesamte Paket in einem langen Binär-String umzuwandeln und
danach die einzelnen Bits herausziehen. Dann ist es mir Egal ob eine Bytegrenze überschritten wurde oder nicht.
Was mich dabei stört ist, das dauert relativ lange.

Die Version mit dem packet Record hab ich nicht verstanden.
Was machst du da genau?
Was hast du angenommen für IDBuffer?

Gruß Kostas

[Klaus01]

.. sind die Daten (60Byte) immer gleich aufgebaut?
Eventuell würde sich dann ja variante Records anbieten.

In etwas so:

Delphi-Quellcode:

type
  TDataType = record
    case boolean of
      true: (rawData: ARRAY[0..59] of Byte);
      false: ( data1: ...
               data2: ...
             ) 
  end;

Grüße
Klaus

[Kostas]

leider nicht, die Paketgröße variiert stark. Jedes Paket hat im Byte1 eine Typisierung und in Byte2 eine Länge.

[Sir Rufo]

Mit der Typisierung und der Länge kann man schon eine Factory aufbauen, die dann aus einem Stream entsprechende Instanzen erzeugt.

Das Grundproblem wird dadurch aber nicht gelöst.

Wie wäre es mit so einer Lösung
http://stackoverflow.com/questions/2...delphi-records

Würde ich in deinem Fall aber eher als Klasse aufbauen, das Prinzip ist aber gleich

[p80286]

vergiß es, Sir Rufo hat da was viel besseres.

Gruß
K-H

[himitsu]

Um wieviele Bit wird denn verschoben?

Bei maximal 8 und verschieben nacht rechts:
- man nimmt ein Byte und verschiebt dessen Bits um X nach rechts
- dazu kommen noch die Bits des vorherrigen Bytes, welche um (8-X) Bits nach links verschoben werden
- das Beides dann mit OR verbinden
- und nun nur noch das Ganze für jedes andere Byte machen (vom rechten Byte, bis zum Linken)


Das läßt sich natürlich noch bis Integer/Int64 aufweiten, wobei man da auf "ungerade" Bytes achten muß, welche keine vollen Interger/Int64 ergeben.

[DeddyH]

Mehr als 32 bzw. 64 Bit (je nach OS) kannst Du eh nicht am Stück betrachten, es sei denn, jemand kennt einen primitiven Datentypen, der mehr aufnehmen kann. Da wirst Du um Umrechnungen kaum herumkommen, aber wenn es sich um Strings aus Zeichen fester Größe handelt, ist das ja noch zu verschmerzen.