Teil eines TFilestreams in einen anderen Stream kopieren

[johannes]

Ich möchte ein Teil eines TFilestream gin einen anderen Stream kopieren bei kleineren Streams hab ich das einfach so gemacht, das ich ein Memorystream genomen hab aber bei 21MB Daten ist das nicht gerade anzuraten.... Ich hab mir auch überlegt einen zweiten temporären filestream anzulegen und dann die daten darein zu schreiben aber das braucht erstens viel Platz und zweitens muss ich dann erst den kompletten stream auslesen und dann neue schreben muss nur um ihn dann wieder durch eine andere funktion auslesen zu lassen....

[jbg]

Wenn du nur lesend auf die Datei zugreifst, dann könntest du mit Datei in den Addressraum mappen. (-> Memory Mapped Files). Dadurch kannst du mit einem Array auf die Datei zugreifen.

[Delphianer]

Hallo, wenn Du die Methode CoypFrom verwendest, dann zeigt mir ein Blick auf den Quelltext, daß Du nur den Parameter Count setzen mußt. In diesem Fall wird nämlich auch die aktuelle Position im Quellstream nicht angetastet (bei Count 0 wird Position auf 0 gesetzt).

[johannes]

ich benutze schon copyfrom um in ein anderes stream zu kopieren da liegt das problem nicht. Da hab ich mich unklar ausgedrückt....
Das geht bei kleinen Daten Problemlos. Aber bei größeren Daten wie den angesprochenen 21MB dauert das recht lange und verbraucht unmemengen RAM.
So mach ich das in sehr vereinfachter Form bis jetzt:

Delphi-Quellcode:

Result:=TMemoryStream.create;
FileStream.posisition:=Offset;
Result.CopyFrom(FileStream,Length);

FileStream ist ein TFilestream.
Das große Problem ist das ich die 21MB daten auch noch in meinem Programm weitere verarbeiten muss, so dass dan also Zeitweise 42MB Daten im RAM sind was auch bei 256MB Ram nicht gerade wenig ist, da das Programm auch noch etwa 2MB andere Daten im Ram hat....
DAs mit den Memory Mapped Files klngt schn mal gut ich schau mal was sich da so finden lässt , da ich nur esend zugreife..