MemoryStream Bearbeitung optimieren

[KingIR]

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.