程序编译不通过啊,说木有这个东东,希望大虾帮忙啊,,555

解决方案 »

  1.   

    應該是解壓或壓縮網頁、數據流等方面的如解壓gzipuses ZLibEx;     
       
    procedure TForm1.Button3Click(Sender: TObject);     
    var     
        url: string;     
        IdHTTP: TIdHTTP;     
        stream, out_stream: TMemoryStream;     
    begin     
        url := 'http://bill.finance.sina.com.cn/bill/trade_item.php?stock_code=sh580013&pages=0&time=1218809515';     
        IdHTTP := TIdHTTP.Create(nil);     
       
        stream := TMemoryStream.Create;     
        out_stream := TMemoryStream.Create;     
        try     
            IdHTTP.get(url, stream);     
            stream.Position:=0;     
            ZLibEx.ZDecompressStream2(stream, out_stream, -15);     
            stream.SaveToFile('c:\1.txt');     
            out_stream.SaveToFile('c:\2.txt');  //这个就是我们要的html内容     
        finally     
            stream.Free;     
            out_stream.Free;     
            IdHTTP.Free;     
        end;     
    end;
      

  2.   

    可以參考下這裡:  http://wiki.nginx.org/NginxChsHttpGzipModule