Hallo,
ich möchte eine Datei in einen Stream laden (1) und die Mitte der Datei bis zu seinem Ende in einen anderen Stream kopieren (2). Dann den neuen Stream in eine neue Datei speichern(3).
(1)
Delphi-Quellcode:
var
aStream: TMemoryStream;
bStream: TMemoryStream;
begin
aStream := TMemoryStream.Create;
bStream := TMemoryStream.Create;
aStream.LoadFromFile(Dateipfad);
(2) ?
(3)
Delphi-Quellcode:
bStream.SaveToFile(neuer_dateipfad);
aStream.Free;
bStream.Free;
Wie lautet der Befehl für (2) oder hat jemand einen Ansatz?
Mit
Stream.CopyFrom(..)
wird der gesamte Stream kopiert und mit
Stream.Seek usw hab ich den Befehl nicht verstanden
