关于读取一个XML文件的问题!急啊(50分)

  • 主题发起人 主题发起人 yukuaiz
  • 开始时间 开始时间
Y

yukuaiz

Unregistered / Unconfirmed
GUEST, unregistred user!
<?xml version="1.0" encoding="utf-8"?>
<ClientUpdateConfig>
<UpdateServer IP="127.0.0.1" Port="8085" />
<Step val="0" tag="" />
<Run name="calc.exe" />
</ClientUpdateConfig>
请问如何读取 <Step val="0" tag="" />
中的val的值
 
uses XMLDoc, XMLIntf
procedure TForm1.Button1Click(Sender: TObject);
var
XMLDoc:TXMLDocument;
Root:IXMLNode;
begin
XMLDoc:=TXMLDocument.Create(Application);
XMLDoc.Active:=TRUE;
XMLDoc.Version:='1.0';
XMLDoc.Encoding:='GB2312';
XMLDoc.LoadFromFile('c:/1.xml');
Root:=XMLDoc.DocumentElement;
edit1.Text:=root.ChildNodes.Nodes[1].Attributes['val'];
XMLDoc.free;
end;
 
TNaviveXML,有例子
http://www.2ccc.com/article.asp?articleid=4954
 
呵呵,我已经找到了,谢谢各位,代码如下
var
a: TXMLDocument;
b:string;
root: IXMLnode;
lei: IXMLNode;
k:integer;
begin
a:=TXMLDocument.Create(self);
a.FileName:='f:/UpConfig.xml';
a.Active:=true;
root := a.DocumentElement;
lei := root.ChildNodes.First;
while lei <> nildo
begin
if lei.NodeName = 'Step' then
b:=lei.Attributes['val'] ;
lei := lei.NextSibling;
end;
k:=strtoint(b);
if k>0 then
begin
application.Terminate;
end
else
winexec(pchar('C:/Documents and Settings/zsj/桌面/1111/New Folder/New Folder/AutoUpdate.exe'),sw_shownormal);
a.Free;
end;
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
734
import
I
I
回复
0
查看
775
import
I
后退
顶部