小弟用delphi 编程,用WebBrowse打开一个网页后,其返回了一个xml格式的网页,内容如下:
<?xml version="1.0" encoding="ISO-8859-1" ?>
- <sms-http>
- <submit-resp>
<status>17</status>
<description>Invalid password</description>
</submit-resp>
</sms-http>
我想把这些数据读出来,由于这是xml格式的,以前我没有接触过这方面的编程,所以不懂得怎么读取里边的数据
在上面的内容中,我期望读出来的数据结果如下:
status=17
description=invalid password
请问如果操作啊?
急,在线等啊!!!
<?xml version="1.0" encoding="ISO-8859-1" ?>
- <sms-http>
- <submit-resp>
<status>17</status>
<description>Invalid password</description>
</submit-resp>
</sms-http>
我想把这些数据读出来,由于这是xml格式的,以前我没有接触过这方面的编程,所以不懂得怎么读取里边的数据
在上面的内容中,我期望读出来的数据结果如下:
status=17
description=invalid password
请问如果操作啊?
急,在线等啊!!!
解决方案 »
- 请求帮助﹕DBGrid中的数据要实现下一笔﹐上一笔这样的数据导航﹐应该是修改哪个属性的值﹖
- 帮忙看看!
- 為什麼弟三方組件按下ctrl點擊時不會跳到源碼呢???vcl是如何做到的呢
- delphi DBGRID 刷新定位问题
- 这个问题简单,但我解决不了!求助了!
- 请问外键的含义?
- 大家来讨论,时下用什么数据库和什么与之相配的连接方式比较好(或者挣钱多)?
- 谁知道那有带checkbox的treeveiw控件啊
- 紧急问题:毕业设计delphi 下的c/s平台应该怎么搭建啊!内详!!!!!!!!100分!!!!
- 在Delphi7中安装Raize4.01运行后出错
- 小弟,初来乍到,分数不多!望大家帮助一下!
- 请教delphi + intrabweb 问题
xmldom, XMLIntf, msxmldom, XMLDoc;var
s:widestring;
xmlDoc:TXMLDocument;
strStream:TStringStream;
tempXNode,Node: IXmlNode;
begin
s:='<?xml version="1.0" encoding="ISO-8859-1" ?>'+
' <sms-http>'+
' <submit-resp>'+
' <status>17</status>'+
' <description>Invalid password </description>'+
' </submit-resp>'+
' </sms-http>';
xmlDoc:=TXMLDocument.Create( Owner );
strStream:=TStringStream.Create(s);
try
xmlDoc.LoadFromStream( strStream );
xmlDoc.Active:= True;
tempXNode:=xmlDoc.DocumentElement;
Node:=tempXNode.ChildNodes.FindNode('submit-resp');
showmessage(Node.ChildNodes.FindNode('status').Text);
showmessage(Node.ChildNodes.FindNode('description').Text);
finally
XmlDoc.Free;
strStream.Free;
end;
end;
xmlLog:TXMLDocument ;
logResult:Integer ;
tsServer:TStringList ;
htmlText:WideString;
begin
Try
xmlLog:=TXMLDocument.Create(nil);
htmlText := wbLogin.OleObject.Document.XMLDocument.documentElement.XML ;
xmlLog.XML.Text := htmlText;
xmlLog.Encoding := 'gb2312';
xmlLog.Active := true;
logResult := StrToIntDef(xmlLog.DocumentElement.ChildNodes[0].Text, -1);
except end; if Assigned(xmlLog) then
FreeAndNil(xmlLog);