使用TIdHTTPProxyServer做一个转发服务器,在TIdHTTPProxyServer的OnHttpDocument中当请求的是gzip 压缩的网页的时候我使用TIdCompressorZLib解压缩流一直报异常呢。。。
procedure frmMain.httpProxyServerHTTPDocument( AContext: TIdHTTPProxyServerContext; var VStream: TStream); var OutStream : TStream; deCompressorZLib : TIdCompressorZLib; begin //解压缩gzip OutStream := TStream.Create; if AContext.Headers.Values['Content-Encoding'] = 'gzip' then begin deCompressorZLib := TIdCompressorZLib.Create; deCompressorZLib.DecompressGZipStream(VStream,OutStream);//这一行一直报异常,怎么回事呢? end else begin OutStream := VStream; end; OutStream.Position := 0;
后来找到http://www.base2ti.com/ 下载的 ZLibExGZ搞定
方法ZLibExGZ.GZDecompressStream解决