Große Dateien in den Speicher laden

[dfried]

Nur so mal als kleines Beispiel:

Delphi-Quellcode:

var fs : TFileStream;
    ms : TMemoryStream;
    anz : Integer;
begin
  fs := TFileStream.Create(ExtractFilePath(Application.ExeName)+'XXX.zip',fmOpenRead);
  ms := TMemoryStream.Create;
  try
    while fs.Size > fs.Position do begin
      if (fs.Size - fs.Position) > 9728000 then
        anz := 9728000
      else
        anz := (fs.Size - fs.Position);
      ms.Clear;
      ms.CopyFrom(fs,anz);
      // Hier kannst du jetzt mit den Daten im Speicher etwas machen
      ....
    end;
  finally
    ms.Free;
    fs.Free;
  end;

Gruß
Daniel