盒子论坛 v2.1

function GetWebCode(udl: string):string;
var
  req: IXMLHTTPRequest;
begin
  req := CoXMLHTTP.Create;

  req.open('Get',udl, False, EmptyParam, EmptyParam);
  req.setRequestHeader('Content-type', 'text/html; charset=gb2312');
  req.send(EmptyParam);
  try
    Result:= req.responseText;
  except on E: Exception do
    MessageDlg(PChar('搜索是发生错误' + #13#10 + '错误原因:'+e.Message),  mtWarning, [mbOK], 0);
end;
比喻说我通过GetWebCode('

http://www.2ccc.com');获取盒子的代码，发现汉字都变成了乱码，哪位好心人知道该如何解决这个问题？

req.setRequestHeader('Content-type', 'text/html; charset=gb2312');
----------------------------------------------
-

作者：

ivvn (奔腾的心)	★☆☆☆☆	-
	普通会员

2011/4/15 23:55:34

1楼：

编码gzip等
----------------------------------------------
-

作者：

hcker (黑人)	★☆☆☆☆	-
	盒子活跃会员

2011/4/16 2:19:58

2楼：

delphi 版本是？
----------------------------------------------
-

作者：

redniuniu (redniuniu)	★☆☆☆☆	-
	普通会员

2011/4/16 3:52:32

3楼：

responseText 在内部强制使用了UTF8编码做了一次转换，盒子正好是 gb2312编码，所以出错，你可以看看凤凰网 http://www.ifeng.com/ ，用的 UTF8 编码，你的这段程序就没问题

你要做的是转换一次编码
----------------------------------------------
--===写写程序、做做网页、承接外包项目 QQ:53767940==---

作者：

jinlifan123 (jinlifan123)	★☆☆☆☆	-
	普通会员

2011/4/16 15:36:33

4楼：

问题已经解决,谢谢大家帮忙！
----------------------------------------------
-

作者：

ti9er (TiGeR)	★☆☆☆☆	-
	普通会员

2012/4/1 11:39:30

5楼：

能否说说如何解决的啊
----------------------------------------------
-

信息

登陆以后才能回复