In einer Datei nach bestimmten Hexcode suchen?

[Klaus01]

Hallo,

mit TFileStream die Datei öffnen.

TFileStream.readbuffer anschauen.

Nachdem ersten Auftreten von $FF suchen,
wenn gefunden dann schauen ob das nächste Zeichen $D8 ist.
Wenn ja, hast Du Deinen Anfang gefunden.

Mit TFileStream.seek(5, soFromCurrent) springt der Positionszeiger 5 Zeichen weiter.

In der Regel steht im jpg auch irgendwo die Größe drinnen.
Das auszulesen ist vielleicht einfacher als die gesamte Datei zu scannen.

Grüße
Klaus

[Bummi]

Delphi-Quellcode:

uses strUtils;
procedure TForm3.Button1Click(Sender: TObject);
var
  MS: TmemoryStream;
  p1: Cardinal;
  Search : AnsiString;
begin
  // !! Positionen nicht 0 - basiert
  if OpenDialog1.Execute then
  begin
    MS := TmemoryStream.Create;
    try
      MS.LoadFromFile(OpenDialog1.FileName);
      SetString(Search,PansiChar(MS.Memory),MS.Size);
      p1 := Pos(#$FF#$D8, Search);
      ListBox1.Items.Add(Format('Pos FFD8 %d', [p1]));
      p1 := PosEx(AnsiString('JFIF'), Search, p1);
      ListBox1.Items.Add(Format('Pos JFIF %d', [p1]));
      p1 := PosEx(AnsiString(#$FF#$D9), Search, p1);
      ListBox1.Items.Add(Format('Pos FFD9 %d', [p1]));
    finally
      MS.Free;
    end;

  end;
end;

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

[Mavarik]

hmm OK... ich dachte "vorkauen" gilt nicht...

Mavarik

[BBoy]

Wenn ich auch nur ansatzweise gewusst hätte wie das geht, hätte ich nicht gefragt. Daher finde ich so aussagekräftige Antworten wie von Bummi hilfreich. Ich habe zwar vorher schon verschiedene Routinen ausprobiert aber die hatten in etwa das selbe Problem wie die von Bummi. Habe das an mehreren JPG ausprobiert. Weiß echt nicht warum das nicht funktioniert

[Bummi]

@BBoy sorry, ich hatte einen Fehler im Gedächtnisprotokoll , angepasst ...

[Der.Kaktus]

Zitat von Bummi:

Delphi-Quellcode:

uses strUtils;
procedure TForm3.Button1Click(Sender: TObject);
var
  MS: TmemoryStream;
  p1: Cardinal;
  Search : AnsiString;
begin
  // !! Positionen nicht 0 - basiert
  if OpenDialog1.Execute then
  begin
    MS := TmemoryStream.Create;
    try
      MS.LoadFromFile(OpenDialog1.FileName);
      SetString(Search,PansiChar(MS.Memory),MS.Size);
      p1 := Pos(#$FF#$D8, Search);
      ListBox1.Items.Add(Format('Pos FFD8 %d', [p1]));
      p1 := PosEx(AnsiString('JFIF'), Search, p1);
      ListBox1.Items.Add(Format('Pos JFIF %d', [p1]));
      p1 := PosEx(AnsiString(#$FF#$D9), Search, p1);
      ListBox1.Items.Add(Format('Pos FFD9 %d', [p1]));
    finally
      MS.Free;
    end;

  end;
end;

wer muss in seinem eigenem Programm Hexcode suchen? *seltsam*..Hack?..glaube ich nicht..da gibt es genug Tools..sehr komisch!!!???

[BBoy]

Wer sagt das ich in meinem eigenen Programm nach Hexcode suche? Dem Programmcode kann man entnehmen das eine Datei geladen wird. Und wie in meinem ersten Beitrag schon geschrieben geht es darum Bilddateien zu analysieren. Und was bitte sehr ist daran komisch in einer Datei nach Hexcode zu suchen?