Hitachi

EUR 帳票出力 リファレンス EUR Server編


GetDestinationListメソッド

出力先として登録されているスプールサーバの一覧を取得します。

〈このページの構成〉

形式

GetDestinationList()

パラメタ

なし

解説

GetDestinationListメソッドは,EUR Server Serviceに登録された出力先の一覧を取得します。出力先の一覧は,出力先定義ファイルから取得します。取得できる情報は,定義された出力先の情報です。スプールサーバの稼働状況は取得できません。

メソッド実行時にエラーが発生した場合,Err.Numberプロパティに終了コード,Err.Descriptionプロパティにメッセージが設定されます。

戻り値

出力先の一覧を次に示す形式で返します。

出力先名1,IPアドレス1,説明1
出力先名2,IPアドレス2,説明2
              :     

データ型

Stringの2次元配列

呼び出し例

GetDestinationListメソッドの呼び出し例を次に示します。

'GetDestinationList実行
Private Sub SUB_GetDestinationList()
 
    Dim objEURPM, wk_Return
    Dim iLower, iUpper, I
    Dim jLower, jUpper, J
    Dim sEntry  As String
        
    Set objEURPM = CreateObject("EURPM.Exec")
    
    Me.Refresh
    
    Err.Clear
    On Error Resume Next
    wk_Return = objEURPM.GetDestinationList
    List5.AddItem "Err.Number=(" & Err.Number & ")"
    List5.AddItem "Err.Description=(" & Err.Description & ")"
    
    If Err.Number = 0 Then
        List5.AddItem ""
        List5.AddItem "★★★★★ 結果出力ココカラ ★★★★★"
        iLower = LBound(wk_Return, 1)
        iUpper = UBound(wk_Return, 1)
        jLower = LBound(wk_Return, 2)
        jUpper = UBound(wk_Return, 2)
        For I = iLower To iUpper
            sEntry = ""
            For J = jLower To jUpper
                If J > 0 Then
                    sEntry = sEntry + ","
                End If
                sEntry = sEntry + wk_Return(I, J)
            Next
            List5.AddItem sEntry
        Next
        ''Label51.Caption = List5.ListCount
        List5.AddItem "★★★★★ 結果出力ココマデ ★★★★★"
    End If
    
    Set objEURPM = Nothing
        
End Sub