delphi postURL串并接收结果

Question

刚接触delphi不久。有个项目，
要在delphi里输入帐号，密码提交到一个接口地址上。
http://192.168.1.223/login?name=??&pass=??
返回一个xml文件
成功如下显示
  <?xml version="1.0" encoding="GB2312" ?> 
- <返回结果>
  <代码>1</代码> 
  <描述>成功</描述> 
  </返回结果>
失败显示如下
  <?xml version="1.0" encoding="GB2312" ?> 
- <返回结果>
  <代码>0</代码> 
  <描述>失败</描述> 
  <原因>密码错误</原因> 
  </返回结果>
delphi里怎么接收返回的xml信息。如果<代码>为1则执行一断代码
如果<代码>为0则执行另一段代码，并显示<原因>
谢谢

Answer 1

测试通过procedure TForm1.Button1Click(Sender: TObject);
var st:TStringStream;
    ret:String;
begin
  st:=TStringStream.Create('testing');
  ret:=IdHTTP1.Put('http://localhost/test.html', st);
  st.Free();
  showMessage(ret);
end;

Answer 2

bak =idhttp.get('url?name=……&pass……');

Answer 3

需要组件XMLDocument1，IDHttp1
XMLDocument1.XML.text :=idhttp1.get(http://192.168.1.223/login?name=??&pass=??);
XMLDocument1.active :=true;
XMLDocument1.ChildNodes['返回结果'].ChildNodes['代码'].text;  //获取节点

Answer 4

indy HTTP + XMLDocument就OK