delphi - TClientDataSet.XMLData 内存泄漏

Question

我已经完成了一个简单的 php 脚本，该脚本基于 ClientDataset.CommandText 属性从网络上的 mysql 服务器返回一个精确的 xml 数据包。

procedure TMainDataModule.AbertasAfterOpen(Dataset: TDataset);
begin
  DataSet.Tag := 0;
end;

procedure TMainDataModule.AbertasBeforeOpen(DataSet: TDataSet);
begin
  if Dataset.Tag = 0 then
  begin
    DataSet.Tag := 1;
    with DataSet as TClientDataSet do
      XMLData := myWebService.XMLDataPacket(CommandText);
  end;
end;

MyWebService 是一个简单的类，用于将 CommandText 发布到 php 脚本、对 xml 进行解码/编码 64 并返回数据。

它工作正常，但 madExcept/FastMM 在 ClientDataset.SetXmlData 中报告内存泄漏。

我不明白为什么，有什么想法吗？

提前致谢。

Answer 1

在 Delphi XE 中，WebService 有内存泄漏，应该在 DXE2 中解决。您使用的是哪个版本？也许它不是ClientDataSet，而是你的WebService？

质量控制#105538