In einer Datei nach bestimmten Hexcode suchen?

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