Große Dateien Komprimieren und zeit gleich verschlüsseln

[DelTurbo]

Hi,
ich habe eine Frage (ja wie immer). Ich habe rausgefunden das TIdCompressorZLib relativ schnell ist. Wenn ich das so mache wie in meinem Beispiel. Ich habe nur das wesentlich drin gelassen, also keine abfrage mehr ob die Datei existiert usw.

Delphi-Quellcode:

procedure ShrinkFile(FName:String);
var
  IStream   :TStream;
  OSTream   :TStream;
  Compress  :TIdCompressorZLib;
begin
    IStream:=TFileStream.Create(FName,fmOpenRead);
    OSTream:=TFileStream.Create('test.pak',fmCreate);
    Compress:=TIdCompressorZLib.Create(nil);
    Compress.DeflateStream(IStream,OStream,2);
    Compress.Free;
    IStream.Free;
    OSTream.Free;
end;

Nun zu meiner Frage: Wie kann ich mich da irgendwie einklinken, also in den OStream und die Daten mit irgendwas aus dcpcrypt Verschlüsseln. Ich würde es ja im Speicher machen, also Datei lesen dann Verschlüsseln und wieder raus schreiben. Aber ich weiß nicht wie groß die Dateien sind. Es kann sein das die gar nicht in den Speicher passen.
Die Inputdatei zu verschlüsseln ist quatsch weil es dann kaum noch was zum packen gibt.

Da ich schon länger suche und Garnichts finde habe ich es mal ChatGPT versucht. Aber das ding "erfindet" Sachen die es nicht gibt. Also unbrauchbar. Bitte keine hinweise ich solle Zip o.ä. nutzen.

Vielen Dank im voraus