Delphi中使用ZLibExGZ解压缩gzip流


使用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解决


发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注

验证码 * Time limit is exhausted. Please reload CAPTCHA.