[求助]懂DELPHI帮我看看错哪里了-编程技术-看雪-安全社区|安全招聘|kanxue.com

最新回复 (1)
deryope 雪币： 232 活跃值： (10) 能力值： ( LV4，RANK：50 ) 在线值：发帖 7 回帖 141 粉丝 0 关注私信	deryope 1 2 楼你没有设置Request的CharSet，所以获取不到中文。一般默认CharSet都是ISO-8859-1，改成UTF-8就可以了。我没用过HTTPGET，就拿Indy演示了： uses IdHTTP; procedure TForm1.Button1Click(Sender: TObject); var aIdHttp: TIdHTTP; tmpHTML: String; begin aIdHttp := TIdHTTP.Create(Self); try aIdHttp.Request.AcceptCharSet := 'UTF-8'; //主要是这里 tmpHTML := aIdHttp.Get('1deK9s2c8@1M7q4)9K6b7g2)9J5c8W2)9J5c8Y4y4W2j5i4u0U0K9q4)9J5k6i4W2S2K9r3!0G2i4K6u0W2j5$3!0E0i4K6u0r3M7$3g2S2M7X3y4Z5i4K6y4r3M7q4)9K6c8q4)9J5y4f1f1$3i4K6t1#2b7f1c8Q4x3U0f1^5b7#2)9J5y4f1f1$3i4K6t1#2z5o6W2Q4x3U0f1^5b7W2)9J5y4#2)9J5z5g2)9K6b7R3`.`. Memo1.Lines.Text := tmpHTML; finally aIdHttp.Free; end; end; 上面代码Indy9和10通用。附带的压缩包里有完整工程，要Delphi2009+Indy10才能编译。上传的附件： IdHTTPGet.rar （2.97kb，7次下载） 2008-11-17 12:14 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复

最新回复 (1)

deryope

雪币： 232

活跃值： (10)

能力值：

( LV4，RANK：50 )

在线值：

发帖

回帖

141

粉丝

关注

私信

deryope 1: 2 楼

你没有设置Request的CharSet，所以获取不到中文。一般默认CharSet都是ISO-8859-1，改成UTF-8就可以了。

我没用过HTTPGET，就拿Indy演示了：
uses IdHTTP;

procedure TForm1.Button1Click(Sender: TObject);
var
  aIdHttp: TIdHTTP;
  tmpHTML: String;
begin
  aIdHttp := TIdHTTP.Create(Self);
  try
aIdHttp.Request.AcceptCharSet := 'UTF-8';    //主要是这里
tmpHTML := aIdHttp.Get('1deK9s2c8@1M7q4)9K6b7g2)9J5c8W2)9J5c8Y4y4W2j5i4u0U0K9q4)9J5k6i4W2S2K9r3!0G2i4K6u0W2j5$3!0E0i4K6u0r3M7$3g2S2M7X3y4Z5i4K6y4r3M7q4)9K6c8q4)9J5y4f1f1$3i4K6t1#2b7f1c8Q4x3U0f1^5b7#2)9J5y4f1f1$3i4K6t1#2z5o6W2Q4x3U0f1^5b7W2)9J5y4#2)9J5z5g2)9K6b7R3`.`.
Memo1.Lines.Text := tmpHTML;
  finally
aIdHttp.Free;
  end;
end;

上面代码Indy9和10通用。附带的压缩包里有完整工程，要Delphi2009+Indy10才能编译。

上传的附件：

IdHTTPGet.rar （2.97kb，7次下载）

2008-11-17 12:14