本文整理自网络，侵删。
uses
comobj;
var
responseText: WideString;
xmlHttp: OLEVariant;
begin
try
xmlHttp:=CreateOleObject('Msxml2.XMLHTTP');
xmlHttp.open('GET',url,false);
xmlHttp.send();
responseText:=xmlHttp.responseText;
if xmlHttp.status='200' then
begin
//
end;
xmlHttp := Unassigned;
except
//
end;
end;
//**********************************************读取分析文件
uses
msXml,ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
xmlDoc : IXMLDOMDocument;
xmlNode : IXMLDOMNode;
i : integer;
begin
xmlDoc:=IXMLDOMDocument(CreateOleObject('MSXML.DOMDocument'));
xmldoc.load('c:\dd.xml');
for i:= 0 to xmldoc.getElementsByTagName('R').length -1 do
begin
showmessage(xmldoc.getElementsByTagName('R').item[i].text);
end;
xmldoc.getElementsByTagName('R').item[0].text := '10';
xmldoc.save('c:\dd.xml');
end;
相关阅读 >>
Delphi 把exe嵌入到自己的exe中。Delphi xe3
Delphi firemonkey的stylebook皮肤控件的使用
Delphi 使用openjdk进行Delphi android开发
更多相关阅读请进入《Delphi》频道 >>
