我已经完成了一个简单的 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 中报告内存泄漏。
我不明白为什么,有什么想法吗?
提前致谢。