首先,你需要找到微软提供的XML的类库文件MSXML2_TLB.pas
然后定义一个类和一个接口ddm : TDOMDocument;
iddm : IXMLDOMDocument;
最后你需要书写你自己的一个类,其中的构造和释放函数可以参照如下:
1.
constructor TArticleSAP.Create(Owner :TComponent);
begin
ddm := TDOMDocument.Create(Owner);
iddm := ddm.DefaultInterface;
iddm.async := false;
iddm.loadXML('<?xml version="1.0" encoding="gb2312"?><article/>');
// iddm.load('C:/at.xml');
root := iddm.documentElement;
end;
2.
constructor TArticleSAP.Create(ArticleURL:string;
Owner :TComponent);
begin
URL := ArticleURL;
ddm := TDOMDocument.Create(Owner);
iddm := ddm.DefaultInterface;
iddm.async := false;
iddm.load(URL);
root := iddm.documentElement;
end;
3.
destructor TArticleSAP.Destroy;
begin
ddm.Destroy;
end;