828
社区成员
发帖
与我相关
我的任务
分享
IdHTTP1 := TIdHTTP.Create;
ss := TStringStream.Create('', TEncoding.GetEncoding(54936));//默认为gb18030
idhttp1.Get('www.jobui.com',ss);//任意UTF8网站都这样
Memo1.text:= LowerCase(ss.DataString);//转出的字符全部统一小写
Memo2.text:=utf8toAnsi( Memo1.text);
IdHTTP1 := TIdHTTP.Create;
try
Memo1.Text:= IdHTTP1.Get('http://www.jobui.com');
finally
IdHTTP1.Free;
end;
IdHTTP1 := TIdHTTP.Create;
try
html:= IdHTTP1.Get('http://0512aj.cn');
if IdHTTP1.Response.CharSet <> 'utf-8' then
html := AnsiToUtf8(html);
Memo1.Text := html;
finally
IdHTTP1.Free;
end;
IdHTTP1 := TIdHTTP.Create;
try
Memo1.Text:= Utf8ToAnsi(IdHTTP1.Get('http://www.jobui.com'));
finally
IdHTTP1.Free;
end;
这样并未发现乱码。