Die ersten paar bytes einer Datei überschreiben

[skyquaker]

Hi !
Ich möchte gerne die ersten paar bytes einer Datei ändern um sie nutzlos zu machen.
Später möchte ich die Datei wieder benutzen also mus ich die geänderten bytes wieder ändern.
Ich glaube das geht mit TFileStream aber ich weiß nicht wie das zu benutzen ist.
Vielen Dank im Voraus

[CalganX]

Hi,
TFileStream ist schon der richtige Ansatz. Am Besten schaust du dir in der Hilfe die Beschreibung und die Beispiele für TFileStream an.

Chris

[skyquaker]

Danke ! Könnte mir jemand vielleicht ein Beispiel schreiben ?
Ich komme mit diesen FileStrings nicht zurecht.

[Sunlight7]

Warum so Kompliziert?

Probiere mal das...

So ein ähnliches Beispliel habe ich, um den Header einer AVI Datei nach Crash beim aufnehmen wiederherzustellen.
Der Code ist nicht getestet, Tippfehler möglich...

Delphi-Quellcode:

procedure OverrideBytes(const FileName:String; const Num:Byte);
   var F:File;
       PC:PChar;       
begin
   GetMem(PC, Num);

   AssignFile(F, FileName);
   Reset(F, 1);
   Seek(F, 0); // 0 zum Anfang der Datei
   BlockWrite(F, PC^, Num);
   CloseFile(F);

   FreeMem(PC);
end;

procedure RestoreBytes(const FileName, Header:String);
   var F:File;
begin
   AssignFile(F, FileName);
   Reset(F, 1);
   Seek(F, 0); // 0 zum Anfang der Datei
   BlockWrite(F, PChar(Header), Length(Header));
   CloseFile(F);
end;