idHTTP访问百度

百度屏蔽了indy的客户端标识的 Mozilla/3.0 (compatible; Indy Library)，把‘Indy Library’去掉就可以了。 

?

try

  IdHTTP1.Request.UserAgent := 'Mozilla/3.0 (compatible;)';

  aStr := IdHTTP1.Get('http://www.baidu.com');

except

 

end;

　　

完整的：

?

1	‘Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; Trident/6.0)’