Delphi 似乎正在提前销毁对象

Question

我正在使用 Delphi XE2 为 Googledocs api 开发 Delphi 包装器。我使用 XML 数据绑定(bind)向导生成了所有类。使用代码更容易解​​释，所以这是我的测试调用的函数。

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 的子接口(interface)。

现在这是我的测试:

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”，当我查看 watch 上的 ReturnValue 和 ReturnValue.ChildNodes 时，我看到ReturnValue 与 TGoogleDocsApi.GetEntries 方法中的 Result 具有相同的地址，但它给我带来了 ReturnValue.ChildNodes watch 上的访问冲突，并且在 TGoogleDocsApi.GetEntires 方法中，Result.ChildNodes 有一个有效的地址并且其属性已填充出来。

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

有什么想法可能会发生什么吗？

Answer 1

您正在使用nil 的Owner 调用TXMLDocument.Create。这意味着它的生命周期是通过接口(interface)引用计数来控制的。为了使其发挥作用，您需要实际使用接口(interface)。将 xmlDoc 的类型更改为 IXMLDocument 以维护引用，否则 VCL 内部的某些内容会在您不期望时释放它。