Delphi中动态调用TXMLDocument的经历

VCL中TXMLDocument使用陷阱

最新推荐文章于 2024-02-28 15:51:28 发布

最新推荐文章于 2024-02-28 15:51:28 发布 · 156 阅读

本文探讨了在VCL环境下使用TXMLDocument控件时遇到的一个奇怪问题：控件在特定情况下被释放两次导致异常。通过调整创建方式解决了问题，并分析可能的原因。

var
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;
看来正是这样，但这都是根据经验比较出来的

VCL内核怎么处理还有待分析