Question

我做了一个简单的php脚本，它基于ClientDataset.CommandText属性，通过Web从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并返回数据。

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

我无法理解为什么，任何想法？

先谢谢。

Answer 1

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

QC＃105538

TClientDataSet.XMLData泄漏内存

1 个答案: