JclCompression

[nonex]

Hi, ich versuche gerade einen Filestream zu decomprimieren und dann als Stream zurück zu geben, aber egal was ich mache es funktioniert nich. hat vllt jemand vone uch Ahnung mit der der JclCompression unit, oder kennt eine gute alternative ?

Delphi-Quellcode:

 InputStream := TFileStream.Create(filename, fmOpenRead);
 outputstream := TStream.Create;
 DecompressionStream := TJCLGzipdecompressstream.Create(InputStream);
 OutputStream.CopyFrom(DecompressionStream, 0);
 frmmain.xml.LoadFromStream(outputstream);
 DecompressionStream.Free;
 OutputStream.Free;
 InputStream.Free;

da kommt immer "Seek is not an supported operationen"

gruß tobi