Stream und Datei

[Imagination]

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

Delphi-Quellcode:

Stream.CopyFrom(..)

wird der gesamte Stream kopiert und mit Stream.Seek usw hab ich den Befehl nicht verstanden :roll:

[neolithos]

Delphi-Quellcode:

var stm1,
    stm2 : TStream;
...
stm1 := TFileStream.Create('datei1', fmOpenRead);
stm2 := TFileStream.Create('datei2', fmCreate);

stm1.Seek(stm1.Size div 2, soFromBeginning);
stm2.CopyFrom(stm1);

stm1.Free;
stm2.Free;

Vorsichtig! Nicht getestet!

[Muetze1]

Moin!

Seek musst du nicht nehmen, du kannst auch einfach die Eigenschaft Position setzen...
Dann muss du bei CopyFrom als 2. Parameter die Anzahl der Bytes angeben, ansonsten nimmt er 0 an und das bedeutet dann alles kopieren von dem anderen Stream - und das wollen wir nicht. Bei der Angabe von 0 seek'ed er sogar zum Anfang des anderen Streams und geht nicht von der aktuellen Position aus.

Delphi-Quellcode:

var stm1,
    stm2 : TStream;
...
stm1 := TFileStream.Create('datei1', fmOpenRead);
stm2 := TFileStream.Create('datei2', fmCreate);

stm1.Position := stm1.Size div 2;
stm2.CopyFrom(stm1, stm1.Size - stm1.Position);

stm1.Free;
stm2.Free;

MfG
Muetze1

[neolithos]

Übrigens ob du Seek oder Position verwendest, ist eigentlich egal. Denn Position führt auf Seek zurück.

[Muetze1]

Moin!

Zitat:

Zitat von neolithos

Übrigens ob du Seek oder Position verwendest, ist eigentlich egal. Denn Position führt auf Seek zurück.

1. Das weiss ich.
2. Habe nie was anderes behauptet.

/EDIT: Sorry, dann habe ich das falsch verstanden...

MfG
Muetze1

[neolithos]

Zitat:

Zitat von Muetze1

Moin!

Zitat:

Zitat von neolithos

Übrigens ob du Seek oder Position verwendest, ist eigentlich egal. Denn Position führt auf Seek zurück.

1. Das weiss ich.
2. Habe nie was anderes behauptet.

MfG
Muetze1

Das war auch nicht an dich gerichtet! Sondern nur als Ergänzung gedacht.

[Imagination]

Vielen Dank! Jetzt habe ich es endlich verstanden :-D

:dp: :dp: :dp:

[DP-Maintenance]

Dieses Thema wurde von "Luckie" von "Windows API" nach "Object-Pascal / Delphi-Language" verschoben.