Visual Basicプログラムにおけるメッセージ処理の使用

  Visual Basicプログラムにおいてメッセージ処理を実装するには、最初に次の手順に従ってプログラムをコード化してください:

1. 初期化関数EsbInit()を呼び出す時点で、ESB_INIT_T構造体のClientErrorフィールドをESB_TRUEに設定し、ESB_INIT_TのErrorStackフィールドの値を定義します。

2. カスタム・メッセージ・ハンドラを定義するには、

   • 次の関数シグネチャを使用して、定義します(関数名は変更できます):

                               Public Function 
                       EsbErrorHandler
                        
             (ByVal MsgNum As Long, ByVal Level As Long, 
             ByVal uLog As String, ByVal uMsg As String) As Long
                    

   • ESB_INIT_T構造体のvbCallbackFuncAddressフィールドをカスタム・メッセージ・ハンドラ関数のアドレスに初期化します。例:

                       Sub ESB_Init()
        Dim Init As ESB_INIT_T
        Dim lx As Long
       
        ESB_FALSE = 0
        ESB_TRUE = 1
     
        Init.Version = ESB_API_VERSION
        Init.MaxHandles = 10
        Init.LocalPath = "C:\Hyperion\products\Essbase"
        Init.MessageFile = ""
        'This must be set to True
        Init.ClientError = ESB_TRUE
        Init.ErrorStack = 100
        'This is where the address of the custom function is set for Init.vbCallbackFuncAddress
        Init.vbCallbackFuncAddress = GetProcAddress(AddressOf EsbErrorHandler)
       
        sts = EsbInit(Init, hInst)
        Debug.Print "EsbInit: sts = " & sts
     
     End Sub
     
     Public Function GetProcAddress(ByVal lngAddressOf As Long) As Long
       GetProcAddress = lngAddressOf
     End Function
     
     Public Function EsbErrorHandler(ByVal MsgNum As Long, ByVal Level As 
     Long, ByVal uLog As String, ByVal uMsg As String) As Long
       ' [ YOUR CODE GOES HERE ]
       MsgBox " Info " & MsgNum & ": Level: " & Level & ": " & uLog & ": " & uMsg
     End Function
                    

3. Essbaseが提供するメッセージ処理を使用するためには、関数EsbGetMessage()を呼び出し、EssbaseAPIを呼び出した後に戻された情報を取得します。情報を取得した後、必要に応じて、プログラムは情報を表示または処理できます。