TWSDLLookup.Destroy 方法中的 Delphi XE 内存泄漏

Question

我正在使用Delphi XE。我在使用 Delphi Soap 时遇到了内存泄漏问题。事实证明，这是由于 TWSDLLookup.Destroy 中缺少 .Free 调用，如 QC 91160 中所述。

我遇到的问题是所描述的解决方法，只需将 FLookup.Free 添加到 TWSDLLookup.Destroy 方法即可。
我不想更改 Delphi 源代码，因此我尝试将单元复制到我的项目文件夹中，进行更改并重新编译，如here所述。在汤姆的回答中。这种技术的问题在于，它显然只有在您还重新编译所有依赖单元时才有效。我尝试将 WSDLLookup.pas 复制到我的项目目录，但出现 Stackoverflow 错误。我不熟悉 Web 服务/SOAP，因此我不知道如果我确实使用此技术，还应该复制哪些其他单元。

Rob Kennedy 在同一页上的回答描述了一种涉及代码 Hook 的不同技术 - 但它似乎不适用于对象方法。我已经按照他的建议下载了 TNT Unicode 控件的免费代码并找到了相关程序，但我一直无法找到有关如何 Hook 对象方法的信息 - 如果这确实可能的话。如果我能做到这一点，我就会挂接 TWSDLLookup.Destroy 并添加 FLookup.Free 调用。

任何有关如何解决此问题的想法将不胜感激。我是一个新手程序员，所以我希望我错过了一些明显的东西？

Answer 1

您正在尝试做的事情实际上效果很好。我自己测试了一下。这是我使用的项目文件:

program WSDLLookupTest;

{$APPTYPE CONSOLE}

uses
  WSDLLookup in 'WSDLLookup.pas';

var
  intf: IInterface;

begin
  intf := GetWSDLLookup as IInterface;
end.

我制作了 WSDLLookup.pas 文件的副本，并将其放置在与 .dpr 文件相同的目录中。然后，在副本而不是原始文件中，我修改了 TWSDLLookup.Destroy。

destructor TWSDLLookup.Destroy;
begin
  Beep;
  ClearWSDLLookup;
  FLookup.Free;
  inherited;
end;

我添加了Beep来向自己证明这段代码确实正在执行。

在你的位置，我肯定会使用这个解决方案，而不是尝试代码 Hook 。当然，另一个简单的解决方案是升级到更高的 Delphi 版本。

需要注意的一件事是升级时记得删除修改过的单元。该泄漏已在 XE2 中修复。