In Datei nach Hex Bytefolge suchen und ändern! Hilfe!

[himitsu]

Hi Sebastian,

Zitat:

Gibt es wirklich Programmierhelden?

Nö.
Willst wohl einer werden. Wieviele Tastaturen jagst'n so monatlich übern Jordan?

Delphi-Quellcode:

{© by Himitsu @ Delphi-PRAXiS}

Procedure TForm1.Button1Click(Sender: TObject);
  Const Groesse = 16384; {16 KB  |  1 KByte = 1024 Byte}

  Var FS: TFileStream;
    Buffer: Array[0..Groesse-1] of Byte;
    I: Integer;
    B: Byte;

  Begin
    Try
      {Datei öffnen}
      FS := TFileStream.Create('Datei.dat', fmOpenReadWrite);
      {Daten einlesen}
      FS.Read(Buffer, Groesse);
      {Bytefolge suchen}
      For I := 0 to Groesse - 3 do
        If (Buffer[I] = $02) and
          (Buffer[I + 1] = $40) and
          (Buffer[I + 2] = $23) Then Begin
          {springe (seeke) zu 0x23}
          FS.Seek(I + 2, soFromBeginning);
          {überschreibe 0x23 mit 0x33}
          B := $33;
          FS.Write(B, 1);
        End;
      FS.Free;
    Except
      On EFOpenError do ShowMessage('Datei konnte nicht geöffnet werden');
      Else ShowMessage('Unbekannter Fehler');
    End;
  End;

Naja 5 min hat es nicht gerade gedauert. Hatte aber sowieso gerade angefangen das zu lernen.
Scheinst dich mit MPEG's auszukennen, ich suche noch Infos zu ID3 (vor allem ID3v2 lesen & schreiben)