德尔福似乎在应该破坏对象之前

Question

我正在使用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语句中,我收到一个访问冲突,说"模块'GoogleDocsApiTests.exe'中的地址0061A55C访问冲突'.读取地址00000049"当我查看我的手表返回ReturnValue和ReturnValue.ChildNodes时,我看到ReturnValue有与结果在TGoogleDocsApi.GetEntries方法中执行的地址相同,但它在WatchV上为ReturnValue.ChildNodes提供访问冲突,在TGoogleDocsApi.GetEntires方法中,Result.ChildNodes具有有效地址并且其属性已填写.

对我来说,看起来Delphi正在沿着这条线的某个地方释放ChildNodes属性,但这对我来说没有意义,因为ReturnValue应该仍然引用它(我认为)应该保留它.

可能会发生什么想法？

Answer 1

你打电话TXMLDocument.Create用Owner的nil.这意味着它的生命周期通过接口引用计数来控制.为了使其工作,您需要实际使用接口.将xmlDoc类型更改IXMLDocument为维护引用,否则VCL内部的某些内容将在您不期望它时将其释放.