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;