Delphi似乎在它应该之前销毁对象
我正在使用Delphi XE2为Googledocs api开发Delphi包装器.我使用
XML数据绑定向导生成了所有类.使用代码解释起来要容易得多,所以这是我的测试调用的函数.
function TGoogleDocsApi.GetEntries : IXMLEntryTypeList; var httpHelper : IHttpHelper; xml,url : string; xmlDoc : TXmlDocument; ss : TStringStream; feed : IXmlFeedType; begin ss := TStringStream.Create; httpHelper := THttpHelper.Create; if(fToken.IsExpired) then fToken.Refresh(fClientId,fClientSecret); url := BaseUrl + 'feeds/default/private/full?showfolders=true&access_token='+fToken.AccessToken+'&v=3'; xml := httpHelper.GetResponse(url); ss.WriteString(xml); ss.Position := 0; xmlDoc := TXmlDocument.Create(nil); xmlDoc.LoadFromStream(ss); feed := GoogleData2.Getfeed(xmlDoc); Result := feed.Entry; end; 现在,在命中’end’时,Result.ChildNodes在内存中有一个地址,它的计数是20. IXMLEntryTypeList是IXMLNodeCollection的子接口. 现在这是我的测试: procedure TestIGoogleDocsApi.TestGetEntries; var ReturnValue: IXMLEntryTypeList; begin ReturnValue := FIGoogleDocsApi.GetEntries; if(ReturnValue = nil) then fail('Return value cannot be nil'); if(ReturnValue.ChildNodes.Count = 0) then fail('ChildNodes count cannot be 0'); end; 在第二个if语句中,我收到一个访问冲突,说“在模块’地址0061A55C访问冲突”GoogleDocsApiTests.exe’.读取地址00000049”当我查看我的手表返回ReturnValue和ReturnValue.ChildNodes时,我看到ReturnValue有与结果在TGoogleDocsApi.GetEntries方法中执行的地址相同,但它在WatchV上为ReturnValue.ChildNodes提供访问冲突,在TGoogleDocsApi.GetEntires方法中,Result.ChildNodes具有有效地址并且其属性已填写. 对我而言,看起来Delphi正在沿线的某处释放ChildNodes属性,但这对我来说没有意义,因为ReturnValue应该仍然引用它(我认为)应该保留它. 可能会发生什么想法? 解决方法
您正在使用nil的所有者调用TXMLDocument.Create.这意味着它的生命周期通过接口引用计数来控制.为了使其工作,您需要实际使用接口.将xmlDoc的类型更改为IXMLDocument以维护引用,否则VCL内部的某些内容将在您不期望它时将其释放.
(编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |