funktioniert prima, danke dir!
hmm habe jetzt probleme mit dem entpacken :/
ist doch die gleiche routine wie beim packen oder?
Code:
function dekomprimiere(input:TStream):tmemorystream;
var
xx: TdeCompressionStream;
begin
result := tmemorystream.create;
xx := TdeCompressionStream.Create(result);
xx.CopyFrom(input, input.Size);
xx.Free; // !! NIcht vergessen, da der interne Buffer des TCompr.Streams sonst nicht geflusht wird
result.position:=0;