delphi 如何解码Gzip的网页?

[jackygan]

delphi 如何解码Gzip的网页?

大部份大型网站为了解决传输流量问题，都会使用gzip传输。
如果我们使用delphi直接获取该网站数据的时候，得到的只是乱码。
大家有什么解决的方法？谢谢！

[hongqi162]

这么快？

[brightyang]

哦耶~~~

忘了标了,转自blog

[brightyang]

月亮
扔个星星给我嘛

[hui717]

顶,接分

[hongqi162]

csdn不让啊，他们设计的太不人性化了

[brightyang]

:)

那就散点分哇

[jackygan]

可否从提交url到接收到字符串，解字符等操作列出来？谢谢。

[jackygan]

到底是Indy的那个组件？

[brightyang]

组件当然还是idhttp啥

只是加上哪一个过程OK?

[jackygan]

函数重载？不太懂。
另外，sck好像还没有申明。
可否具体一些使用的方法？谢谢。

[jackygan]

似乎楼上给的那段代码有问题，一直没有运行起来？
有那位有过这样经验的？谢谢大家。

[liu19801204]

up

[jackygan]

有人吗？回应一下，谢谢。

[jackygan]

UP, who knows?

[wangchengfn]

路过，顶一下

[老之]

IdCompressorZLibEx控件的DecompressGZipStream方法

[ysai]

delphi自带有zlib库咋不用
uses
Zlib;

function CFFunc.Compression.Zlib.DeCompressionStream(const AInStream,
  AOutStream: TStream) : Boolean;
var
  ds : TDeCompressionStream;
  buff : array[1..4096] of Byte;
  iread : integer;
begin
  Result  :=  True;
  AInStream.Position := 0;
  try
    ds := TDeCompressionStream.Create(AInStream);
    try
      repeat
       iread := ds.Read(buff, sizeof(buff));
       if iread > 0 then
         AOutStream.Write(buff, iread);
      until (iRead = 0);
    finally
      ds.Free;
    end;
  except
    Result  :=  False;
  end;
end;

[ysai]

另外,如果不想服务器返回被压缩的数据,可以在http头的Accept-Encoding里写上deflate,不要加gzip

[hongqi162]

挖坟呢？

[武稀松]

idhttp可以指定压缩器的.Indy系统列控件有个压缩器.指定好就行了.