Hexwert in Binärdatei suchen und Position ermitteln

[HolgerX]

Hmm....

Schon hier ist ein Fehler!

Zitat von fringer:

die Hex-Sequenz "58 50 52 30 00 28" (oder Ansi-Sequenz "XPR0.(" gesucht werden.

Die Hex-Sequenz "58 50 52 30 00 28" ist nicht "XPR0.("!
Die 00 kann nur nicht dargestellt werden, weshalb wohl dein Text-Editor, mit welchem Du die Datei geöffnet hast, diese gegen '.' austauscht..

Wenn Du nach genau dieser Hex-Sequenz in der Datei xyz.dat suchen willst, dann geht folgendes:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  B : Array[0..5] of Byte = ($58, $50, $52, $30, $00, $28); // "XPR0 ("
var
  F : TFileStream;
begin
  F := TFileStream.Create('xyz.dat', fmOpenRead);
  try
    EditPos.Text := IntToStr(FindPosInStream(F,B));
  finally
    F.Free;
  end;
end;

Im Edit steht dann die erste Position der Hex-Sequenz "58 50 52 30 00 28".

Mein Letztes Beispiel (vorheriger Post) zeigte nur das Suchen eines (ANSI) Textes in einem (ANSI) StringStream.
Die FindPosInStream-Funktion arbeitet jedoch mit jedem Stream und sucht darin eine Bytefolge.
Würde ich die Bytefolge z.B. mit 00 58 00 50 00 52 00 30 00 00 00 28 füllen, dann würde im Stream nicht nach einem ANSI-String "XPR0 (" sondern einem WideString "XPR0 (" gesucht. (Kann auch sein, dass die Low/BigEndian Reihenfolge im ByteArray gedeht werden muss )

[Delphi.Narium]

In meinem Beispiel oben ist übrigens diese Zeile falsch: A[k] := StrToInt(x); Da muss man irgendwie aus z. B. FF 255 machen. Und da ist StrToInt irgendwie ungünstig

Aber wenn man statt HEX-Werten die entsprechenden Dezimalwerte nimmt, sollte es auch so funktionieren.

[fringer]

Hallo
@HolgerX und @Delphi.Narium,

eure beiden Funktionen funktionieren wunderbar! Habe sie noch einmal ausprobiert. Der Fehler lag bei mir. Ich habe, wie HolgerX schon geschrieben, die Hexadezimale "0"
immer als "." gesucht. Daher kann die Funktion auch keinen Treffer ausgeben. Weiterhin habe ich den Fehler gemacht, das ich mit meinem Stream schon gearbeitet habe
und die Position des Streams nicht mehr "0" war. Die Suchfunktion hatte dann gar nicht die Möglichkeit den gesamten Stream zu durchsuchen, daher kam ich auch
immer zu einem falschen Ergebnis.

Also noch einmal vielen Dank für die Funktionen und vor allem auch für die Erklärungen.
Was nützt einem auch der beste Code-Schnipsel wenn man ihn nicht versteht (auch wenn es manchmal etwas länger dauert)
Danke für eure Geduld und vielleicht hilft das auch anderen wenn sie über Google mal danach suchen und diesen Thread hier finden.