Ersten Bytes einer File verändern

[delphinia]

Ich habe eine ZIP archiv das fängt ja mit PK an
das würde ich gerne löschen und später wieder ersetzen!

Delphi-Quellcode:

  AssignFile(F, FileName);
  Reset(F, 1);
  Seek(F, 0); // 0 zum Anfang der Datei

  s := PChar(Header);
  BlockWrite(F, S, Length(Header));
  CloseFile(F);

sowas macht nur Müll mit der datei ... hat jemand eine Bessere Lösung?

[divBy0]

Lade das ZIP in einen Stream, dann kannst du die Bytes verändern.

[semo]

oder mit der ableitung tfilestream arbeiten.

[mashutu]

So funktioniert das:

Delphi-Quellcode:

procedure Tpkfak_frm_Main.btnStartClick(Sender : TObject);
const
    casNewHead   : array[0..1] of char =  'HY';
var
    f   :   file;
begin
    system.assign(f,'template.zip');
    reset(f,1);
    blockwrite(f,casNewHead,2);
    system.close(f);
end;

[Muetze1]

Warum zeigt ihm niemand den Fehler in seinem Code?

Sein Ansatz würde genauso funktionieren, wenn er dereferenziert:

Delphi-Quellcode:

AssignFile(F, FileName);
  Reset(F, 1);
  // Seek(F, 0); // unnötig, dort steht man nach dem Öffnen...

  s := PChar(Header);
  BlockWrite(F, s^, Length(Header));
  CloseFile(F);

Und ohne PChar Cast gehts auch:

Delphi-Quellcode:

AssignFile(F, FileName);
  Reset(F, 1);
  // Seek(F, 0); // unnötig, dort steht man nach dem Öffnen...

  BlockWrite(F, Header[1], Length(Header));
  CloseFile(F);

[peschai]

Ergänzung: Eventuell auch noch das original datum Uhrzeit setzen, damit das "Schützen" der Zip-Dateie nicht auffällt ...