MemoryStream dekomprimieren

[glkgereon]

Es funktioniert immer noch nicht :-/

also ich habe einen TIdHTTPProxyServer...
Diesen nutze ich mit Firefox was auch alles klappt

nun nutze ich das Event OnProxyHTTPDocument wie folge:

Delphi-Quellcode:

procedure TForm1.ProxyHTTPDocument(ASender: TIdHTTPProxyServer;
  const ADocument: string; var VStream: TStream; const AHeaders: TIdHeaderList);
var T: String;
begin
  ListBox1.Items.Add(ADocument);
  ListBox1.Perform(WM_VSCROLL,SB_BOTTOM,0);
  //T:=GZipDecode(VStream);
  Memo1.Text:=T;
end;

auch das funktioniert noch problemlos...in Listbox1 stehen alle geladenen Dokumente drin.

zum dekodieren verwende ich dann das:

Delphi-Quellcode:

function GZipDecode(const Input: TStream): string;
var
  DS: TZDecompressionStream;
begin
  DS := TZDecompressionStream.Create(Input);
  Try
    SetLength(Result, DS.Size);
    DS.Read(Result[1], DS.Size);
  Finally
    DS.Free; 
  End;
end;

doch sobald ich das versuche kommt ein "data error".

Und ich habe absolut keine Idee mehr