Bit-Schiebereien

[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

[gammatester]

Zitat von Sir Rufo:

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

Allerdings sollte man es dann auch richtig machen. 32 Bits in einem WORD zu verwalten, ist doch wohl etwas vermessen (und keiner der Kommentatoren und Upvoter hat's bemerkt).

[p80286]

Zitat von gammatester:

Allerdings sollte man es dann auch richtig machen. 32 Bits in einem WORD zu verwalten, ist doch wohl etwas vermessen (und keiner der Kommentatoren und Upvoter hat's bemerkt).

Die Idee zählt!
Die praktische Umsetzung ist der zweite Schritt.

Gruß
K-H

[p80286]

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

Gruß
K-H

[Kostas]

Hallo Zusammen,

den Record habe ich noch nicht verstanden.
In rawData in mein Paket.
Wie habt ihr die Verarbeitung gedacht?
Wie gesagt, eine Nutzinformation kann sich von einem Bit bis hin zu mehrere Bytes ausbreiten.
Was ich habe ist immer nur der Index für Start und Ende einer Nurtinformation innerhalb eines Paketes in rawData.
Ist die binäre Interpretation von rawData und dann einfach über den Index bequem zugreifen oder doch
berechnen in welchem Byte der Anfang und das Ende der Nurtinformation steckt, die Bytes herausziehen,
die Bits aus dem Anfang-Byte extrahieren, die Bytes mitten drin dazu packen, die Bits vom letzten Byte extrahieren
und dazupacken.

[Kostas]

Zitat von p80286:

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

Gruß
K-H

Die Veriante muss ich noch durchgehen...