EsbOtlGetOutlineInfo

アウトライン・ファイルに関する情報を戻します。

構文

            EsbOtlGetOutlineInfo
             (
            hOutline, pInfo, pusCount
            )
ByVal 
            hOutline
             As Long
      
            pInfo
                As ESB_OUTLINEINFO_T
      
            pusCount
             As Integer

パラメータ	説明
hOutline	アウトラインのコンテキスト・ハンドル。
pInfo	情報構造体の戻り変数。ESB_OUTLINEINFO_T構造体は呼出し元が割り当てる必要があります。
pusCount	アウトラインの別名テーブルの数に対する戻り変数。

備考

呼出し元では、(pusCount変数で戻された)各別名テーブルごとにEsbGetNextItem()を1回呼び出す必要があります。

戻り値

成功の場合、0が戻されます。

例

         Declare Function EsbOtlGetOutlineInfo Lib 
"ESBOTLN" (ByVal hOutline As Long, pInfo As ESB_OUTLINEINFO_T,
pusCount As Integer) As Long

Sub ESB_OtlGetOutlineInfo()
Dim sts As Long
Dim Object As ESB_OBJDEF_T
Dim hOutline As Long
Dim Info As ESB_OUTLINEINFO_T
Dim szAliasTable As String * ESB_ALIASNAMELEN
Dim usCount As Integer
Object.hCtx = hCtx
Object.Type = ESB_OBJTYPE_OUTLINE
Object.AppName = "Sample"
Object.DbName = "Basic"
Object.FileName = "Basic"
sts = EsbOtlOpenOutline(hCtx, Object, 
ESB_YES, ESB_YES, hOutline)
If sts = 0 Then
   sts = EsbOtlGetOutlineInfo(hOutline, Info, usCount)
    Do While sts = 0 And usCount > 0
     sts = EsbGetNextItem(hCtx, ESB_OUTLINEINFO_TYPE,
       ByVal szAliasTable) 
     usCount = usCount - 1
   Loop
End If
End Sub