使用IdHttp控件获取网页数据，并解决中文乱码问题

procedure ..............

var

strHttpData:TStringStream; //存储idHttp返回的数据

strType:String; //类型：项目学习、模拟习题

StrSubject:String; //科目类别：Word/Excel/PPT/Flash/Ps/Python.......

begin

//=============================================

//获取类型：

strHttpData:=TStringStream.Create('');

idHttp.Get('http://localhost:8080/public/shiti_type.aspx',strHttpData);  //测试网址

strType:=strHttpData.DataString;

strType:=UTF8Decode(strType); //转码，解决中文乱码

strHttpData.Free;

//获取科目

strHttpData:=TStringStream.Create('');

idHttp.Get('http://localhost:8080/public/subject.aspx',strHttpData);

StrSubject:=strHttpData.DataString;

StrSubject:=UTF8Decode(StrSubject); //转码，解决中文乱码

strHttpData.Free;

Memo1.Text:=StrSubject;

//动态生成菜单

//生成菜单完毕

//===================================

end;