Delphi（パスカル）各フィールドが割り当てられているか確認してください

Question

私はDelphiでWindows DLLを使用しています。機能がうまく割り当てられているかどうかを確認する必要があります。

私はこのような属性はクラスで私のDLL関数を置くために、関数の型を宣言した：

@Self.m_MPOS_OpenResource := GetProcAddress(libHandler, '_MPOS_OpenResource@12'); 
@Self.m_MPOS_CloseResource := GetProcAddress(libHandler, '_MPOS_CloseResource@8'); 
@Self.m_MPOS_GetResourceID := GetProcAddress(libHandler, '_MPOS_GetResourceID@8'); 
... 

：

type 
    MPOS_OpenResource = function (ResID: DWORD; CplNum:BYTE; BlockingMode: DWORD):WORD;stdcall; 
    MPOS_CloseResource = function (ResID: DWORD; CplNum:BYTE):WORD;stdcall; 
    MPOS_GetResourceID = function (CplNum : Byte; ResID : PDWord) : word;stdcall; 
    ... 

その後、私はこのように私のdllクラスの各corespondingフィールドにメソッドを割り当てます

そして私は最終的にそれぞれ割り当てが巨大if句で働いていたことを確認してください。

If(not Assigned(@m_MPOS_OpenResource) OR 
    not Assigned(@m_MPOS_CloseResource) OR 
    not Assigned(@m_MPOS_GetResourceID) OR 
...) then { Some code for exception} 

反射を使用して巨大なif句を避けたいですが、動作するものが見つかりませんでした。私は複数のものを試して、最後のものはこれを始める：

for f in rttiType.GetFields() do 
    if(not Assigned(rttiType.GetField(f.Name).GetValue(Self)) 
     OR (Self.FieldAddress(f.Name) = Nil)) then begin 
    ShowMessage('Field not assigned'); 
    end; 
end; 

しかし、それは動作しません。誰かが私を助けることができますか？

Answer 1

あなたがテストを実行するためにラッパー関数を記述することができます。

procedure CheckedGetProcAddress(libHandle: HMODULE; const name: string; var proc: Pointer); 
begin 
    proc := GetProcAddress(libHandle, PChar(Name)); 
    if not Assigned(Proc) then 
    raise EProcNotFound.Create(...); 
end; 

は次にあなたが書いた：

CheckedGetProcAddress(libHandler, '_MPOS_OpenResource@12', @@Self.m_MPOS_OpenResource); 
CheckedGetProcAddress(libHandler, '_MPOS_CloseResource@8', @Self.m_MPOS_CloseResource); 
CheckedGetProcAddress(libHandler, '_MPOS_GetResourceID@8', @Self.m_MPOS_GetResourceID); 

FWIWを、ハンドラが間違った用語です。これはモジュールハンドルなので、変数の名前はlibHandleとする必要があります。