用TIdHTTP控件抓取这个网址的数据时，出现乱码

Question

为什么我用TIdHTTP控件抓取这个网址的数据时，出现乱码？而其他的一般的网址就可以？怎么改？先谢了！ 
该地址如下： 
http://bill.finance.sina.com.cn/bill/trade_item.php?stock_code=sh580013&pages=0&time=1218809515' 
程序如下： 
unit Unit1; interface uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, 
  StdCtrls, ExtCtrls, WebAdapt, WebComp,WinINet, ComCtrls, OleCtrls, SHDocVw; type 
  TForm1 = class(TForm) 
    Panel1: TPanel; 
    Button1: TButton; 
    Memo1: TMemo; 
    procedure Button1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; var 
  Form1: TForm1; implementation {$R *.dfm} 
procedure TForm1.Button1Click(Sender: TObject); 
var 
      url:string; 
      IdHTTP:TIdHTTP; 
      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; 
        try 
              IdHTTP.get(url,stream); 
              stream.SaveToFile('c:\1.txt'); 
        finally 
            stream.Free;  
            IdHTTP.Free; 
        end; 
  end; 
end.

Answer 1

function GetHTML(WB: TWebBrowser): WideString;
begin
  Result := IHtmlDocument2(WB.Document).Body.OuterHtml
end;
我以前写的是用webbrowser去抓的。

Answer 2

webbrowser,我觉得没有IDHttp快，所以就没用请问，怎么更改成gb2312编码？

Answer 3

加了这一句，还是不对，晕了....
IdHTTP1.request.acceptcharset:='gb2312';等待中

Answer 4

打错了，上面的应该是：
IdHTTP.request.acceptcharset:='gb2312'; 
但还是收到乱码....

Answer 5

是页面用GZIP问题，
如果你能用gzip控件解压最好如果不会，就发送不支持gzip的命令：procedure TForm1.Button1Click(Sender: TObject); 
var 
      url:string; 
      IdHTTP:TIdHTTP; 
      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);
　　　IdHTTP.Request.AcceptEncoding:='aaa';  //加上
        IdHTTP.ProtocolVersion:=pv1_0;      //加上
      stream:=TMemoryStream.Create; 
        try 
              IdHTTP.get(url,stream); 
              stream.SaveToFile('c:\1.txt'); 
        finally 
            stream.Free;  
            IdHTTP.Free; 
        end; 
  end; 
end.
因为没有环境，等回公司再试试

Answer 6

我试了不管这边什么试，都返回：
HTTP/1.1 200 OK
Server: nginx/0.5.19
Date: Wed, 27 Aug 2008 06:10:40 GMT
Content-Type: text/html
Connection: close
Content-Encoding: deflate　　//这个压缩编码
Content-Length: 7204看来是要用到第三方ziplib控件或indy10以上的DecompressGZipStream才行了
我是d7,以前用ziplib做过，成功解压可以按这种思路做
祝好运

Answer 7

谢谢kunke我下了一个ziplib（文件在这里下：http://www.delphifans.com/SoftView/SoftView_2280.html）
已经安装上了，但弄了一两个小时还是不知道怎么用这个控件(VCLUnzip)解压
方便的话，帮一看看怎么实现上面数据的自动解压。
谢谢了！

Answer 8

我用indy10的TIdCompressorZLibEx
有时成功，但很奇怪，一会又不行了.....
我不知道是怎么回事我是这么做的，把IdHTTP的compressor设置成为IdCompressorZLibEx1

Answer 9

刚刚得试几个方法，发现有点难度，用zlib解不成功
再试试其它。。

Answer 10

呵呵，终于做出来了，有一定收获，
在算法上还是花了不少时间，
以前解gzip内容，现在是deflate，少了文件头内容，所以
用以前思路老是碰到"data error"问题。
用的是zLib控件：
(http://www.2ccc.com/article.asp?articleid=4269)下面是可以运行的代码片断：
uses 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;

Answer 11

我用的是d7,对indy9还是比较信任，所以不喜欢用indy10，
虽然它方便一些。如果功能不够，宁可找第三方控件来实现。
因为装indy10,对原网络开发环境改变太大，增加不可控因素，
容易对以前的项目产生影响。

Answer 12

非常非常感谢你！我试的时候一直也是data error，很是郁闷
现在用了你给的代码搞定了
但为什么ZLibEx.ZDecompressStream2第三个参数是-15呢？为什么是个负数？这个参数是干什么的？

Answer 13

//但为什么ZLibEx.ZDecompressStream2第三个参数是-15呢？为什么是个负数？这个参数是干什么的？我没细看，好象是windows的位数
是看到zlib中有这行应用，直接copy出来试
-15换成-10也行想了解就把源码读一遍，我也很懒：）

Answer 14

请教，为什么用了你们的代码，还是报data error啊？