用TIdHttp和TXMLDocument控件。 function GetURLXMLDoc(strURL:string):boolean; var ms:TMemoryStream; begin ms:=TMemoryStream.Create; Result:=true; IdHTTP1.Disconnect; try IdHTTP1.Get(strURL,ms); ms.Position:=0; XMLDocument1.LoadFromStream(ms); except Result:=false; end; ms.Free; end; ....................... var strURL:string; bResult:boolean; RootNode,ParentNode,ChildNode: IXMLNode; begin strURL:='http://......'; bResult:=GetURLXMLDoc(strURL); if bResult then begin RootNode:=XMLDocument1.ChildNodes['root']; ParentNode:=RootNode.ChildNodes['code']; Label1.Caption:=ParentNode.NodeValue; end;
function GetURLXMLDoc(strURL:string):boolean;
var
ms:TMemoryStream;
begin
ms:=TMemoryStream.Create;
Result:=true;
IdHTTP1.Disconnect;
try
IdHTTP1.Get(strURL,ms);
ms.Position:=0;
XMLDocument1.LoadFromStream(ms);
except
Result:=false;
end;
ms.Free;
end;
.......................
var
strURL:string;
bResult:boolean;
RootNode,ParentNode,ChildNode: IXMLNode;
begin
strURL:='http://......';
bResult:=GetURLXMLDoc(strURL);
if bResult then
begin
RootNode:=XMLDocument1.ChildNodes['root'];
ParentNode:=RootNode.ChildNodes['code'];
Label1.Caption:=ParentNode.NodeValue;
end;