Hallo Wissende,
kann man diesen Code noch optimieren? Geht darum, dass der Stream aStream komprimiert wird und der komprimierte anschliessend wieder im aStream zurückgegeben wird.
Delphi-Quellcode:
procedure CompressStream(aStream: TStream);
var
zc: TZCompressionStream;
ms: TMemoryStream;
begin
ms := TMemoryStream.Create;
try
zc := TZCompressionStream.Create(ms, zcMax);
try
zc.CopyFrom(aStream, 0);
finally
zc.Free;
end;
aStream.Size := 0;
aStream.copyFrom(ms, 0);
finally
ms.Free;
end;
@SirThornberry: beim aStream.copyfrom(ms, ms.size), sass wohl das Problem vor dem Bildschirm. Danke.
Greeny