delphi - 从函数指针获取函数名？

Question

我有一个指向这样的函数的指针。

TTestEvent = function(): Boolean;

procedure ExecuteTest(aTest: TTestEvent; aType: String);
begin
  if aTest then
    NotifyLog(aType + ' success')
  else
    TestError(aType + ' failed');
end;

// Call the test
procedure TestAll;
begin
  ExecuteTest(LoadParcels, 'LoadParcel');
end;

但是从函数指针 aTest 中提取函数的名称会更好。

所以而不是

aType + ' success'

我想要类似的东西

ExtractName(aTest) + ' success'

这可以在 Delphi 2007 中完成吗？

Answer 1

如果您使用我们的一些开源类，您将能够找到任何符号的名称。

在构建可执行文件时，您必须通过在项目选项中设置“详细 map ”来创建 .map 文件。

然后，您可以将 .map 与 .exe 一起交付，或将 .map 压缩到我们专有的 .mab 格式，可以附加到 .exe 后面。对于此任务，.mab 格式比 .zip 或其他格式更高效:它比原始 .map 小 10 倍左右> 文件(即，比 JCLDebug 或 MaxExpect 提供的小得多，并且比使用标准“远程调试符号”嵌入项目选项小得多)。

然后您可以使用 TSynMapFile 类从 .map 文件中检索调试信息，或嵌入到 .exe 中的信息:

function ExtractName(aSymbolAddress: pointer): string;
var i: integer;
begin
  with TSynMapFile.Create do // no name supplied -> will read from .exe
  try
    i := FindSymbol(aSymbolAddress);
    if i>=0 then
      result := Symbols[i].Name else
      result := '';
  finally
    Free;
  end;
end;

它适用于函数名称，也适用于任何其他符号，例如方法或全局变量。

参见this blog article关于类(class)。请注意，即使我们的 mORMot 框架或其日志记录功能使用它，您也不需要使用整个框架(只需 SynCommons.pas 和 SynLZ.pas 单元)。请参阅Map2Mab.dpr “SQLite3\Samples\11 - 异常日志记录”子文件夹中的程序将 .map 文件内容嵌入到 .exe 中。