Mist, stimmt natürlich
Die einzige Alternative, die mir so nocht einfällt, wäre dann, anstelle des ersten Streams den Dateiname an die Funktion zu übergeben, die dann erstmal den Header (Größe usw.) in den Stream schreibt und dann mit BlockRead die Datei einliest und in den Stream schreibt. Weiß nicht ob du nur Daten aus Dateien lesen möchtest, aber falls ja, dann wäre das meine Lösung.
Delphi-Quellcode:
const
BUFSIZE = 1024 * 100;
var
Stream: TMemoryStream;
f: file of byte;
FileName: string;
buf: array[0..BUFSIZE] of byte;
BytesRead: Integer;
begin
Stream := TMemoryStream.Create();
//Stream.Write(...);
FileName := '...';
AssignFile(f, FileName);
FileMode := fmOpenRead;
Reset(f);
Stream.SetSize(FileSize(f) + Stream.Position);
while not Eof(f) do
begin
BlockRead(f, buf, BUFSIZE, BytesRead);
Stream.Write(buf, BytesRead);
end;
CloseFile(f);
Da die Streamgröße vorher gesetzt und dadurch aller Speicher in einem Rutsch alloziert wird, ist das ganze auch relativ schnell.
