In einer Datei nach bestimmten Hexcode suchen?

[BBoy]

Danke Bummi für den Code.

Komischerweise findet er das vorkommen nicht, obwohl es vorhanden ist. Auch der Versuch den Memory im memo anzuzeigen (zum testen) geht nicht. Es wird nix angezeigt.

Delphi-Quellcode:

procedure TForm1.BtnCut3Click(Sender: TObject);
var
 MS:TmemoryStream;
 p1:Cardinal;
begin
    // !! Positionen nicht 0 - basiert
         MS := TMemoryStream.Create;
         try
           MS.LoadFromFile('.\temp\3.jpg');
           p1 := Pos(#$FF#$D8,AnsiString(MS.Memory)) ;
           rzmemo4.Text := ansistring(ms.Memory);
           ListBox1.Items.Add(Format('Pos FFD8 %d',[p1]) );
           p1 := PosEx( AnsiString('JFIF'),AnsiString(MS.Memory),p1);
           ListBox1.Items.Add(Format('Pos JFIF %d',[p1]) );
           p1 := PosEx(#$FF#$D9,AnsiString(MS.Memory),p1);
           ListBox1.Items.Add(Format('Pos FFD9 %d',[p1]) );
         finally
           MS.Free;
         end;


end;

Ist der Inhalt von Memory überhaupt schon HEX? Oder eher die "ÿØÿà JFIF


`" Zeichen?

[p80286]

Zitat von BBoy:

Ist der Inhalt von Memory überhaupt schon HEX? Oder eher die "ÿØÿà JFIF


`" Zeichen?

Das kommt ganz darauf an wie Du es darstellst, bzw. interpretierst. Im Prinzip enthält jede Speicherstelle (Byte) einen Wert zwischen 0 und 255.

Mir gefällt Bummis Lösung auch, trotzdem sind die Anregungen von Klaus und Maverik weder falsch noch zu kurz gegriffen. Meiner Meinung nach die notwendige Vorstufe um Bummis Lösung zu begreifen, aber nun gut....

Gruß
K-H

[BBoy]

Danke Bummi!! Endlich eine Routine dieser Art die auch funktioniert.

Zitat von p80286:

Mir gefällt Bummis Lösung auch, trotzdem sind die Anregungen von Klaus und Maverik weder falsch noch zu kurz gegriffen. Meiner Meinung nach die notwendige Vorstufe um Bummis Lösung zu begreifen, aber nun gut....
Gruß
K-H

Ich hatte auch schon einiges in der Richtung versucht aber keine Routine hatte etwas gefunden, genau wie bei bummis erster Version. Daher dachte ich wäre auf dem total falschen weg. Mit Streams, Setstring usw habe ich noch nie gearbeitet. Nun weiß ich wie es geht und bin froh das mir hier geholfen wurde.... wie schon so oft Danke!