functionpointerからfunctionnameを取得しますか？

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; 

しかし、functionpointer aTestから関数の名前を抽出する方が良いでしょう。

ので、代わりの

aType + ' success' 

私が欲しい

ExtractName(aTest) + ' success' 

のようなものは、これは、デルファイ、2007年に行われることができますか？

Answer 1

組み込み機能ではこれを行うことはできません。アドレスから関数名を取得するには、実行可能ファイルのマップを知る必要があります。これは、追加手順を実行しない限り、実行可能ファイルの一部ではありません。

JclDebugやmadExceptのようなデバッグツールは、探している機能を提供します。

Answer 2

あなたは

• でValueとしてKeyと
• 関数名として関数ポインタをDictionaryに基づいて登録メカニズムを実装することができます。

ExtractNameが辞書の方法となる。

スレッドセーフであることを忘れないでください。

Answer 3

オープンソースクラスを使用すると、シンボルの名前を見つけることができます。

実行可能ファイルをビルドするときは、プロジェクトオプションで「詳細マップ」を設定して、.mapファイルを作成する必要があります。

その後、.exeで.mapを提供することができ、または.exeに追加することができ、当社の独自の.mabフォーマットに.mapを圧縮します。 .mab形式は、.zipまたは他のものよりも効率的です。これは、元の.mapファイルの約10倍です（JCLDebugまたはMaxExpectよりもはるかに小さく、標準の "Remoteデバッグシンボル "プロジェクトの埋め込みオプション）。

次にあなたが.mapファイルからデバッグ情報を取得するためにTSynMapFileクラスを使用、または.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を参照してください。また、私たちのmORMotフレームワークやロギング機能で使用されても、フレームワーク全体（SynCommons.pasとSynLZ.pas単位）を使う必要はありません。埋め込む "SQLite3 \ Samples \ 11 - Exception logging"サブフォルダのMap2Mab.dprプログラムを参照してください。ファイルの内容を.exeにマップします。