Indy10下的TIdhttp控件获取源码乱码的解决方法

 Indy10下使用TIDHTTP出现乱码的原因是因为编码问题，可以使用如下方法来解决！

[Quote title=""]
procedure TWeatherThread.GetWeather;
var
AURL: string;
ANetData: TStringStream;
begin
try
AURL := 'http://www.4936.cn';
ANetData := TStringStream.Create('', TEncoding.GetEncoding(936));
try
ANetData := FIDHttp.Get(AURL);
// ANetData.DataString 就是获取到的源码
finally
ANetData.Free;
end;
except
on E: Exception do
begin
OutputDebugString(PChar('[TWeatherThread.GetWeather]:' + E.Message));
end;
end;
end;
[/Quote]