ja, ich hatte es nach dem Posten auch gemerkt.
Programm "läuft" aber funktioniert noch nicht richtig.
Er kopiert, wenn ich für Offset 100 eingebe , nur die ersten hundert Bytes.
nicht ab dann den Rest..
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var a,b: TFileStream;
Offset : cardinal;
begin
offset := Strtoint(Edit3.Text); // ab dem Offset
a := TFileStream.Create(Edit1.Text, fmOpenRead); // Dateinamen ermitteln
b := TFileStream.create(Edit1.Text+'.bak', fmCreate);
b.CopyFrom(a, offset);
a.Free; b.Free;
End;
kann doch aber eigentlich nicht sein, oder?
EDIT:
a.Position Offset << so vielleicht ?
b.CopyFrom(a, a.Size - offset);