sw

True

アライブチェックを行います。

False

アライブチェックを行いません（既定値）。

True

設定成功

False

設定失敗

Dim Bridge As WebOTX.Bridge
Set Bridge = New WebOTX.Bridge
Call Bridge.AliveCheck(True)

sw

True

非同期メッセージ機能を使用します。

False

非同期メッセージ機能を使用しません（既定値）。

True

設定成功

False

設定失敗

Dim Bridge As WebOTX.Bridge
Set Bridge = New WebOTX.Bridge
Call Bridge.AliveCheck(True)    'アライブチェック機能を使用する
Call Bridge.AsyncMessage(True)  '非同期メッセージ機能を使用する

Dim Bridge As WebOTX.Bridge
Dim Person As Object

Set Bridge = New WebOTX.Bridge
Set Person = Bridge.CreateType("jinji::person")

Name

名前サービス登録グループ名

namelist

名前サーバのホスト名（:ポート番号）をカンマ"，"で区切って指定
例)  SetNameServiceHostList("host1,host2,host3")

IPv6形式のIPアドレスを直接指定する場合は、アドレスの両端を角括弧（[ ]）で囲むようにしてください。

version

コンポーネントバージョン番号

timeout

タイムアウト値を秒単位で指定します。
処理が戻るまで待つ場合は0を指定します。

Name

トレースファイル名（既定値: orbclbrg.log）
255文字以内の文字列を設定します。

level

記録するトレースレベル（既定値: 5）

1

即時に訂正すべき状態

2

致命的なエラー

3

一般的なエラー

4

警告メッセージ

5

通知メッセージ

6

情報メッセージ（運行履歴用）

7

デバッグメッセージ（障害解析時）

level

出力メッセージのトレースレベル

1

即時に訂正すべき状態

2

致命的なエラー

3

一般的なエラー

4

警告メッセージ

5

通知メッセージ

6

情報メッセージ（運行履歴用）

7

デバッグメッセージ（障害解析時）

msg

トレースファイルに出力する文字列

flag

True

キャッシュ化機能を使用します（VBの既定値）。

False

キャッシュ化機能を使用しません（ASPの既定値）。

flag

True

ファクトリが有効の場合は使用します（既定値）。

False

ファクトリを使用しません。

group

名前サービス登録グループ名

hostlist

名前サーバのホスト名（:ポート番号）をカンマ"，"で区切って指定
例)  SetNameServiceHostList("host1,host2,host3")

IPv6形式のIPアドレスを直接指定する場合は、アドレスの両端を角括弧（[ ]）で囲むようにしてください。

version

コンポーネントバージョン番号

timeout

タイムアウト値を秒単位で指定します。
処理が戻るまで待つ場合は0を指定します。

Name

トレースファイル名（既定値: orbclbrg.log）
255文字以内の文字列を設定します。

Level

記録するトレースレベル（既定値: 5）

1

即時に訂正すべき状態

2

致命的なエラー

3

一般的なエラー

4

警告メッセージ

5

通知メッセージ

6

情報メッセージ（運行履歴用）

7

デバッグメッセージ（障害解析時）

Level

出力メッセージのトレースレベル

1

即時に訂正すべき状態

2

致命的なエラー

3

一般的なエラー

4

警告メッセージ

5

通知メッセージ

6

情報メッセージ（運行履歴用）

7

デバッグメッセージ（障害解析時）

Msg

トレースファイルに出力する文字列

True

成功

False

失敗

True

成功

False

失敗

00

トランザクション実行中

01

トランザクションロールバック要求済

02

トランザクションプリペア完了

03

トランザクションコミット完了

04

トランザクションロールバック完了

05

トランザクション状態不明

06

トランザクション未実行または完了

07

トランザクションプリペア中

08

トランザクションコミット中

09

トランザクションロールバック中

True

成功

False

失敗

timeout

タイムアウト値を秒単位で指定します。

True

成功

False

失敗

remote

例外が発生したリモートオブジェクト

[VB6.0]
Private Sub Command1_Click()

    On Error GoTo Exception

    'remoteメソッドの呼び出し
    Call remote.callMethod()
    Exit Sub

Exception:
    '例外オブジェクトの取得
    Dim J2eeEx As Object
    Set J2eeEx = J2eebr.getException(remote)

    If Not J2eeEx Is Nothing Then
        'ユーザ定義例外がある場合
        Call MsgBox(J2eeEx.Message & vbCr & _
            "Class:" & TypeName(J2eeEx), vbExclamation)

        'ユーザ定義毎の処理を行う場合
        Select Case TypeName(J2eeEx)
            Case "ejbsample.UserException"
                :
            Case "ejbsample.UserException2"
                :
        End Select
    Else
        Call MsgBox(Err.Description & vbCr & _
            "Errcode:" & Hex(Err.Number), vbExclamation)
    End If
End Sub

[VB.NET]
Try
    'remoteメソッドの呼び出し
    remote.callMethod()

Catch ex As Runtime.InteropServices.COMException

    '例外オブジェクトの取得
    Dim J2eeEx As Object
    J2eeEx = J2eebr.getException(remote)

    If Not J2eeEx Is Nothing Then
        'ユーザ定義例外がある場合
        MsgBox(J2eeEx.Message & vbCr & "Class:" & TypeName(J2eeEx), _
            MsgBoxStyle.Exclamation)

        'ユーザ定義毎の処理を行う場合
        Select Case TypeName(J2eeEx)
            Case "ejbsample.UserException"
                :
            Case "ejbsample.UserException2"
                :
        End Select
    Else
        MsgBox(ex.ToString & vbCr & "Errcode:" & Hex(ex.Errorcode), _
            MsgBoxStyle.Exclamation)
    End If

Catch ex As Exception
    MsgBox(ex.ToString, MsgBoxStyle.Exclamation)
End Try

ClassName

JavaBeanのパッケージ名付きのクラス名

[VB6.0]
Dim J2eebr As J2EE.Bridge       'J2EE.Bridgeオブジェクト
Dim Beans As Object             'ユーザ定義オブジェクト
Set J2eebr = New J2EE.Bridge()
Set Beans  = j2eebr.JavaNew("ejbsample.MyData")

[VB.NET]
Dim J2eebr As J2EE.Bridge       'J2EE.Bridgeオブジェクト
Dim Beans As Object             'ユーザ定義オブジェクト
J2eebr = New J2EE.Bridge()
Beans  = j2eebr.JavaNew("ejbsample.MyData")

• 名前サーバの応答がない場合
  

  Messageプロパティ

  名前サーバ %1 の応答がありません(%2)。
  - %1:名前サーバ
  - %2:CORBAシステム例外のマイナー番号

  Errorcodeプロパティ

  0xA1028300



• JNDI名に対応したhomeオブジェクトを取得できない場合
  

  Messageプロパティ

  %1 は名前サーバ %2 から取得できません。
  - %1:JNDI名
  - %2:名前サーバ

  Errorcodeプロパティ

  0xA1028301

JNDI

名前サーバに登録された名称を 511文字以内で指定します。

EJBHome

EJBHomeのパッケージ名付きのクラス名（module名.interface名）を指定します。

[VB6.0]
Dim J2eebr As J2EE.Bridge       'J2EE.Bridgeオブジェクト
Dim home As Object              'homeオブジェクト
Dim remote As Object            'remoteオブジェクト
Set J2eebr = New J2EE.Bridge()

'名前サーバのURL設定(ポート番号の省略時は既定値の2809)
Call J2eebr.setProviderURL("corbaname://localhost")

'homeオブジェクトの取得(JNDI名, module名.interface名)
Set home   = j2eebr.lookup("Sample", "ejbsample.SampleHome")

'remoteオブジェクトの生成
Set remote = home.create()

[VB.NET]
Dim J2eebr As J2EE.Bridge       'J2EE.Bridgeオブジェクト
Dim home As Object              'homeオブジェクト
Dim remote As Object            'remoteオブジェクト
J2eebr = New J2EE.Bridge()

'名前サーバのURL設定(ポート番号の省略時は既定値の2809)
J2eebr.setProviderURL("corbaname://localhost")

'homeオブジェクトの取得(JNDI名, module名.interface名)
home   = j2eebr.lookup("Sample", "ejbsample.SampleHome")

'remoteオブジェクトの生成
remote = home.create()

URL

名前サーバのURLを 511文字以内で "corbaname://サーバ名:ポート番号" のように指定します。

[VB6.0]
Dim J2eebr As J2EE.Bridge       'J2EE.Bridgeオブジェクト
Dim home As Object              'homeオブジェクト
Dim remote As Object            'remoteオブジェクト
Set J2eebr = New J2EE.Bridge()

'名前サーバのURL設定(ポート番号の省略時は既定値の2809)
Call J2eebr.setProviderURL("corbaname://localhost")

'homeオブジェクトの取得(JNDI名, module名.interface名)
Set home   = j2eebr.lookup("Sample", "ejbsample.SampleHome")

'remoteオブジェクトの生成
Set remote = home.create()

[VB.NET]
Dim J2eebr As J2EE.Bridge       'J2EE.Bridgeオブジェクト
Dim home As Object              'homeオブジェクト
Dim remote As Object            'remoteオブジェクト
J2eebr = New J2EE.Bridge()

'名前サーバのURL設定(ポート番号の省略時は既定値の2809)
J2eebr.setProviderURL("corbaname://localhost")

'homeオブジェクトの取得(JNDI名, module名.interface名)
home   = j2eebr.lookup("Sample", "ejbsample.SampleHome")

'remoteオブジェクトの生成
remote = home.create()

username

認証に使用するユーザ名を英数字 255文字以内で指定します。

password

認証に使用するパスワードを英数字 255文字以内で指定します。

ejbobject

EJBのhomeかremoteオブジェクトを指定した場合は、そのオブジェクトのメソッドのみが対象になります。 省略した場合は全メソッドが対象になります。

[VB6.0]
Dim J2eebr As J2EE.Bridge       'J2EE.Bridgeオブジェクト
Dim home As Object              'homeオブジェクト
Dim remote As Object            'remoteオブジェクト
Set J2eebr = New J2EE.Bridge()
'全メソッドを対象に認証情報を設定
Call J2eebr.setInitialContextToken("username", "password")
<中略>
'remoteオブジェクトの生成
Set remote = home.create()
'remoteオブジェクトのメソッドを対象に認証情報を設定
Call J2eebr.setInitialContextToken("username", "password", remote)

[VB.NET]
Dim J2eebr As J2EE.Bridge       'J2EE.Bridgeオブジェクト
Dim home As Object              'homeオブジェクト
Dim remote As Object            'remoteオブジェクト
J2eebr = New J2EE.Bridge()
'全メソッドを対象に認証情報を設定
J2eebr.setInitialContextToken("username", "password")
<中略>
'remoteオブジェクトの生成
remote = home.create()
'remoteオブジェクトのメソッドを対象に認証情報を設定
J2eebr.setInitialContextToken("username", "password", remote)