首页 > 代码库 > Delphi中动态调用TXMLDocument的经历
Delphi中动态调用TXMLDocument的经历
var
vXMLDocument: TXMLDocument;
begin
vXMLDocument := TXMLDocument.Create(‘c:/temp/temp.xml‘);
Caption := IntToStr(vXMLDocument.Node.ChildNodes.Count);
vXMLDocument.Free;
end;
vXMLDocument: TXMLDocument;
begin
vXMLDocument := TXMLDocument.Create(‘c:/temp/temp.xml‘);
Caption := IntToStr(vXMLDocument.Node.ChildNodes.Count);
vXMLDocument.Free;
end;
执行上面的代码跳出"Invalid pointer operation"异常
发现屏蔽vXMLDocument.Free;又正常了
跟踪内核代码vXMLDocument被释放了两次
搞不清楚原因
搞不清楚原因没办法只好到处搜代码
然后在窗体上直接放置一个TXMLDocument控件
这段代码又不出错了
郁闷，唯一的区别就是放置的控件赋值了Owner，直接TXMLDocument.Create(‘c:/temp/temp.xml‘);没有赋值Owner
好吧，先解决问题
var
vXMLDocument: TXMLDocument;
begin
vXMLDocument := TXMLDocument.Create(Self);
vXMLDocument.FileName := ‘c:/temp/temp.xml‘;
vXMLDocument.Active := True;
Caption := IntToStr(vXMLDocument.Node.ChildNodes.Count);
vXMLDocument.Free;
end;
看来正是这样，但这都是根据经验比较出来的
vXMLDocument: TXMLDocument;
begin
vXMLDocument := TXMLDocument.Create(Self);
vXMLDocument.FileName := ‘c:/temp/temp.xml‘;
vXMLDocument.Active := True;
Caption := IntToStr(vXMLDocument.Node.ChildNodes.Count);
vXMLDocument.Free;
end;
看来正是这样，但这都是根据经验比较出来的
VCL内核怎么处理还有待分析
http://blog.csdn.net/zswang/article/details/1610404
Delphi中动态调用TXMLDocument的经历
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。