LH5 Probleme

[tekkel]

hallo ihr,
folgendes... ich will eine exe komprimieren und dafür will ich die LH5 unit benutzen.
Es geht um folgende procedure:

Delphi-Quellcode:

procedure LHACompress(InStr, OutStr: TStream);

Das problem ist jetzt, ich weiss wie ich den stream einlesen kann:

Delphi-Quellcode:

InStr:= TFileStream.Create('Datei.exe', fmCreate);

Aber wie bekomme ich OutStr in eine datei bzw stream. :wiejetzt:
Ich habe folgendes probiert funzt aber nicht:

Delphi-Quellcode:

InStr:= TFileStream.Create('Datei.exe', fmCreate);
       OutStr.Position := 0;
       LHACompress(InStr,OutStr);
       OutStr := TFileStream.Create('datei.exe', fmCreate) ; //diese zeile ist überflüssig

Würd mich freuen, wenn ihr mir helfen könnt.

[sirius]

Delphi-Quellcode:

InStr:= TFileStream.Create('Datei.exe', fmopenread); //Datei öffnen zum Lesen
OutStr := TFileStream.Create('Datei.exe.lh5', fmCreate); //Datei erstellen
LHACompress(InStr,OutStr);

[tekkel]

DAnke :wall: