Delphi似乎在销毁对象之前就应该销毁对象
我正在使用DelphiXe2为Googledocs api开发一个Delphi包装器。我使用XML数据绑定向导生成了所有类。使用代码解释这一点要容易得多,因此下面是我的测试调用的函数Delphi似乎在销毁对象之前就应该销毁对象,delphi,Delphi,我正在使用DelphiXe2为Googledocs api开发一个Delphi包装器。我使用XML数据绑定向导生成了所有类。使用代码解释这一点要容易得多,因此下面是我的测试调用的函数 function TGoogleDocsApi.GetEntries : IXMLEntryTypeList; var httpHelper : IHttpHelper; xml, url : string; xmlDoc : TXmlDocument; ss : TStringStream;
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语句中,我得到了一个访问冲突,称为“模块'GoogleDocsApiTests.exe'中地址0061A55C处的访问冲突。读取地址00000049”,当我查看手表中的ReturnValue和ReturnValue.ChildNodes时,我看到ReturnValue与TgogleDocsapi.GetEntries方法中的结果具有相同的地址,但是它在监视ReturnValue.ChildNodes时给了我访问冲突,在TGoogleDocsApi.GetEntires方法中,Result.ChildNodes有一个有效的地址,并且它的属性被填写
对我来说,Delphi似乎在发布ChildNodes属性,但这对我来说没有意义,因为ReturnValue仍然应该引用它,而(我认为)应该保留它
有什么想法吗?您正在调用
TXMLDocument。创建所有者为nil
。这意味着它的生存期是通过接口引用计数来控制的。为了使其工作,您需要实际使用接口。将xmlDoc
的类型更改为IXMLDocument
,以维护引用,否则VCL内部的某些内容将在您不期望的情况下释放它。您的函数泄漏ss
,但可能您简化了此问题的代码。另外,当函数返回时,是什么使feed
保持活动状态。引用feed.Entry
是否使feed
保持活动状态?答案将是沿着这些思路,即按照@hvd所说的思路。您必须保持必要的对象处于活动状态。在将本地引用传递给函数之前保持本地引用也可以避免在函数调用中使用const参数时过早释放:+1、@nick,您可以使用它来实例化。