2. CORBAゲートウェイ

WebOTXはVisual Basicで開発したクライアントアプリケーションから、CORBAサーバアプリケーションの通信を実現するCORBAゲートウェイを提供しています。本節では、CORBAゲートウェイを利用したアプリケーションの開発方法について説明します。

CORBAゲートウェイはVisual Basic 6.0, Visual Basic .NET, Visual Basic 2005〜2015, Active Server Pagesをサポートしています。

Memo 以下の説明では、Visual Basic 6.0は「VB6.0」、Visual Basic .NET以降（Visual Basic 2005〜2015を含む）は「VB.NET」、Active Server Pagesは「ASP」と省略しています。

CORBAゲートウェイと関連コンポーネントの概要図を次に示します。

CORBAゲートウェイの概要図

図の水色で示す値は、通信に使用するポート番号です。コンポーネント間の通信で使用するプロトコルとポート番号は次の通りです。

Memo 通信にはCORBAの標準プロトコルであるIIOP (Internet Inter-ORB Protocol)を使用します。
名前サーバのホスト名はorbcustmの［詳細設定］ダイアログで設定します。 orbcustmについては、［リファレンス集 運用管理・設定編 > 4. 運用管理コマンドリファレンス > 4.9. Object Broker］を参照してください。

CORBAゲートウェイの提供機能は次の通りです。

• クライアントAPI
  構造体を生成するためのWebOTX.BridgeオブジェクトAPIなどを提供します。
• Visual Basic上でCORBAに相当する型のサポート
  次の型をサポートすることにより、Visual BasicからCORBAサーバのメソッドを呼び出すことができます。
  

  基本データ型と文字列 1を要素とする配列型 1と2をメンバとする構造体 3の配列 および、3をメンバとする構造体

以下に使用可能なデータ型について説明します。

CORBAゲートウェイで使用可能なデータ型のマッピングは次の通りです。

開発環境と実行環境の環境構築 および、動作環境の設定について説明します。

開発環境の構築

開発環境にCORBAゲートウェイをインストールする方法は次の通りです。

• WebOTX Developer (for CORBA Application)をインストールする
  WebOTX Developer (for CORBA Application)をインストールする際に「Visual Basic開発」を選択することにより、環境を構築することができます。

実行環境の構築

実行環境（開発環境で作成したアプリケーションを実行する環境）にCORBAゲートウェイをインストールするには次の2通りの方法があります。

• WebOTX Clientをインストールする
  WebOTX Clientをインストールする際に「Visual Basicクライアント実行環境」を選択することにより、環境を構築することができます。
• WebOTX Download Contentsをインストールする
  WebOTX Download ContentsをWebサーバにインストールする際に「Visual Basicクライアントインストーラ」を選択します。WebサーバのWebOTX Download Contentsページから、VBクライアントインストーラを選択することにより、環境を構築することができます。

動作環境の設定

CORBAゲートウェイの動作を変更する方法について説明します。

次のような設定単位と優先順位があり、アプリケーションで設定する方法とクライアントのレジストリを編集する方法があります。

アプリケーションで設定する方法

CORBAゲートウェイが提供するAPIを使用することにより、アプリケーション単位に動作を変更することができます。

クライアントのレジストリで設定する方法

編集するレジストリキーによって、有効範囲をユーザ単位とマシン単位に設定できます。

Caution
ASPアプリケーションの場合、マシン単位の設定のみ有効です。

対象のクライアントで上記のレジストリキーを作成し、この配下に値を設定することにより、動作を変更することができます。レジストリに設定する内容は次の通りです。

ネットワーク環境の設定

CORBAゲートウェイの通信に必要なネットワーク設定について説明します。

• サーバのホスト名を名前解決する
  DNSのない環境で運用する場合、hostsファイルに名前サーバとアプリケーションサーバのエントリを追加する必要があります。
  名前サーバに登録されているアプリケーションサーバの情報は、既定ではホスト名が使用されるため、クライアントはそのホスト名を名前解決できる必要があります。
• サーバのポート番号を使用可能にする
  通信には［CORBAゲートウェイの概要］で説明したポートが通信可能な状態である必要があります。このため、ファイアウォールのある環境で運用する場合、サーバ側のファイアウォールの例外設定に、次のポート番号 または、ファイル名を追加してください。 詳細については、 ［リファレンス集 ドメイン構成・環境移行編 > 1. WebOTXの構成 > 1.5. ファイアウォールの例外設定］を参照してください。

最大待ち時間（タイムアウト）を変更する場合

クライアントからサーバに発行したメソッド等のリクエストは既定で30秒の最大待ち時間（タイムアウト）があり、この時間に応答がない場合は、エラー A1028117が発生します。

最大待ち時間を既定値の30秒から変更する場合、クライアントのレジストリに Object BrokerのRequestTimeoutを適用してください（値がない場合は作成してください）。 または、APIのSetTimeoutで設定してください。APIの設定はObject BrokerのRequestTimeoutより優先します。

受信データが8Mバイトを超える場合

受信データが8M（8,388,608）バイトを超える場合、クライアントのレジストリに Object BrokerのMaxMessageSizeを適用してください（値がない場合は作成してください）。

ただし、サーバ側の送受信上限値 99,999,998（約100M）バイトを超えるデータを受信することはできません。 詳細については、［高度な管理と運用サイクルガイド > 2. チューニング > 2.1.4.9. 電文長の長いメッセージの送受信］を参照してください。

WebOTX Ver5.3以前のサーバと通信する場合

WebOTX Ver6.1から Object BrokerのAddWstringWidthOctetプロパティの既定値が trueから falseに変更されました。このため、IDL内に wstringを含み、WebOTX Ver6.2以降のクライアントからVer5.3以前のサーバに接続する場合、クライアントのAddWstringWidthOctetプロパティの値をtrueに設定してください。

クライアントのAddWstringWidthOctetプロパティを設定するには、次のレジストリ内容をクライアントに適用してください（値がない場合は作成してください）。

CORBAゲートウェイを用いたVisual Basicアプリケーションの開発には、事前準備としてIFファイルを使用してCORBAゲートウェイの制御ファイル(GC1, TLB)を生成する必要があります。 IFファイルとはIDLコンパイラが生成するファイルです。

CORBAゲートウェイを用いたVisual Basicアプリケーションの開発には、事前準備として次のような手順が必要になります。

1〜3.の手順については、［1. CORBAアプリケーション > 1.2.1. WebOTX AS CORBAアプリケーション］を参照してください。 作成したCORBAサーバアプリケーションを配備する方法については、［ドメイン構築・基本設定ガイド > 5. アプリケーション > 5.4. 配備、再配備と置換］を参照してください。

Caution
CORBAサーバアプリケーションがR5形式でファクトリを使用する場合は、オブジェクトを生成/解放するメソッド名をそれぞれ、CreateServerObject, ReleaseServerObjectにする必要があります。

以下、「4. 制御ファイル（GC1, TLB）の生成と登録」について説明します。

制御ファイルの生成と登録には次の2通りの方法があります。

• ダウンローダ管理ツールで生成＋ダウンローダで登録
  これは本番運用向けの方法です（間接的にIFファイルを使用します）。
  ダウンローダ管理ツールを使用してクライアント配布環境を作成し、制御ファイルを生成します。
  次に、ダウンローダを使用してクライアント配布環境からクライアントアプリケーションをダウンロードします。ダウンロード時に制御ファイルが登録されます。
• IFコンパイラで生成および登録
  これは開発評価向けの方法です（直接IFファイルを使用します）。
  WebOTX Developer (for CORBA Application)が提供するIFコンパイラ（woifgenコマンド）を使用します。IFコンパイラは制御ファイルの生成と登録を行います。

登録により制御ファイル (GC1, TLB) のパス情報がレジストリに記録されます。このため、制御ファイル (GC1, TLB) は削除しないでください。移動した場合は、移動後に再登録してください。

以降は開発評価向けの方法について説明します。本番運用向けのクライアント配布環境を作成する方法については、［ Download Contents > 運用ガイド］を参照してください。

IFコンパイラ（woifgenコマンド）は次のように使用します。コマンドの詳細については、［コマンドリファレンス］を参照してください。

woifgen loopback.if

→ loopback.gc1とloopback.tlbが生成・登録されます。

Caution
Windows Vista以降でUAC（ユーザアカウント制御）が有効の場合、IFコンパイラがUACの影響を受けることがあります。詳しくは、［コマンドリファレンス］の注意事項を参照してください。

CORBAゲートウェイのAPIを利用するには WebOTX.Bridgeオブジェクトを使用する必要があります。 WebOTX.Bridgeオブジェクトを生成するには次の2つの方法があります。

1.はVisual Basicで使用できます。2.はVisual Basic および、ASPで使用できます。

Memo クライアントAPIの詳細（リファレンス）については、［リファレンス集 開発編（共通） > 4. CORBA > 4.7. CORBA, EJBゲートウェイ］を参照してください。

Newメソッドを使用する方法

VB6.0の場合は［プロジェクト］／［参照設定］メニューから［参照設定］ダイアログを開き、［参照可能なライブラリファイル］から "NEC COM/CORBA Bridge Object Library"を選択し、［OK］ボタンを押します。

VB6.0の［参照設定］ダイアログ

VB.NETの場合は［プロジェクト］／［参照の追加］メニューから［参照の追加］ダイアログを開き、［COM］タブ内から "NEC COM/CORBA Bridge Object Library"を選択し、［選択］ボタンに続けて、［OK］ボタンを押します。

VB 2008の［参照の追加］ダイアログ

Newによる WebOTX.Bridgeオブジェクトの生成処理は、次のようになります。

'(VB.NETの場合、Setステートメントは不要)
Dim Bridge As WebOTX.Bridge

'WebOTX.Bridgeオブジェクトの生成
Set Bridge = New WebOTX.Bridge

次にオブジェクトライブラリのメソッドをコーディングします。オブジェクトライブラリ変数を記述すると次のように使用できるメソッド一覧が表示されます。使用したいAPIを選択してください。ここでは構造体を作成するCreateTypeを選択します。

入力支援機能による APIの選択 (VB6.0)

CreateTypeを選択すると、CreateTypeのパラメータ情報が次のように表示されます。表示された情報に従ってパラメータを記述してください。

入力支援機能によるパラメータの選択 (VB6.0)

CreateObject関数を使用する方法

CreateObject関数による WebOTX.Bridgeオブジェクトの生成処理は、次のようになります。

'(VB.NETの場合、Setステートメントは不要)
Dim Bridge As Object

'WebOTX.Bridgeオブジェクトの生成
Set Bridge = CreateObject("WebOTX.Bridge")

Dim Bridge

'WebOTX.Bridgeオブジェクトの生成
Set Bridge = Server.CreateObject("WebOTX.Bridge")

CreateObject関数によるオブジェクト生成は遅延（レイト）バインディングになるため、Newメソッドを使用する事前（アーリー）バインディングと異なり、コーディング時の入力支援機能は利用できません。

CORBAゲートウェイを用いたVisual Basicアプリケーションの開発について説明します。
処理毎に以下の項目に分けて説明します。

• 基本的な使用方法
  CORBAゲートウェイの基本的な使用方法として、サーバオブジェクトの作成から解放までに必要な処理を説明します。
• 配列の使用方法
  パラメータに配列を含む場合の処理について説明します。
• 多次元配列の使用方法
  パラメータに多次元配列を含む場合の処理について説明します。
• 構造体の使用方法
  パラメータに構造体を含む場合の処理について説明します。
• 構造体の配列の使用方法
  パラメータに構造体の配列を含む場合の処理について説明します。
• 構造体の多次元配列の使用方法
  パラメータに構造体の多次元配列を含む場合の処理について説明します。
• 構造体を含む構造体の使用方法
  パラメータに多段構成の構造体を含む場合の処理について説明します。

クライアント側のサンプルソースは、マニュアルのサンプルをインストールしたディレクトリ配下のsamples\corba\corbagw.zipに格納されています。

以下に各項目について説明します。

クライアントアプリケーションは通常のVisual Basicアプリケーションと同じように作成します。クライアントアプリケーションは、サーバオブジェクトに対応したCOMオブジェクトを使用することにより、アプリケーションサーバ上のサーバオブジェクトを利用することができます。

CORBAゲートウェイの基本的な使用方法として、サーバオブジェクトの作成から解放までに必要な処理は次のようになります。

以下に各処理手続きについて説明します。

1. Object型の変数を宣言
   Visual BasicでObject型の変数を宣言します。
   

   [VB6.0, VB.NET] Dim SvrObj As Object 'サーバオブジェクト

2. サーバオブジェクトを生成
   サーバオブジェクトを生成するには、次のようにCreateObjectを使用します。
   

   [VB6.0, VB.NET] '(VB.NETの場合、Setステートメントは不要) 'サーバオブジェクトの生成 Set SvrObj = CreateObject("WebOTX.sample_LoopBackSample")

   指定するサーバオブジェクト名には IDLの module名と interface名が反映され、次のような命名規則になります。
   

   WebOTX.module名_module名_…_interface名

3. サーバオブジェクトメソッドの呼び出し
   サーバオブジェクトのメソッドを呼び出すには、次のように通常のオブジェクトと同様にそのままメソッド名を使用します。
   メソッドの引数や戻り値で使用できる型とIDLからVisual Basicへのマッピングについては、［使用可能なデータ型］を参照してください。
   

   [VB6.0, VB.NET] 'サーバメソッドの呼び出し retval = SvrObj.LoopBack(inData, outData)

4. エラー処理
   CORBAゲートウェイは実行時エラーが発生した場合にエラーメッセージと共にエラー番号を返却します。VB6.0の場合は、Err.Numberによりエラー番号を取得できますが、 VB.NETの場合にエラー番号を取得するには、Runtime.InteropServices.COMExceptionクラスのErrorCodeプロパティを使用します。
   

   [VB6.0] Private Sub Command1_Click() On Error GoTo Exception : Exit Sub Exception: 'エラーメッセージとエラー番号の出力 Call MsgBox(Err.Description & vbCr & "ErrCode:" & _ Hex(Err.Number), vbExclamation) End Sub [VB.NET] Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Try : Catch ex As Runtime.InteropServices.COMException 'エラーメッセージとエラー番号の出力 MsgBox(ex.ToString & vbCr & "ErrCode:" & _ Hex(ex.ErrorCode), MsgBoxStyle.Exclamation) Catch ex As Exception 'エラーメッセージの出力 MsgBox(ex.ToString, MsgBoxStyle.Exclamation) Finally : End Try End Sub

   Memo エラー内容の詳細については、［例外一覧 > 5. CORBA > 5.4. CORBA, EJBゲートウェイのエラー一覧］を参照してください。

5. 各オブジェクトの解放
   各オブジェクトが不要になった際は、Object型の変数に Nothingを代入してオブジェクトを解放します。
   VB.NETにおけるオブジェクトの解放は .NET Frameworkのガベージコレクトの発生まで遅延するため、即時にオブジェクトが解放されません。このため、VB.NETでオブジェクトを即時に解放する場合は System.Runtime.InteropServices.Marshal.FinalReleaseComObject()または、ReleaseComObject()により明示的にオブジェクトを解放するか、System.GC.Collect()によりガベージ コレクションを実行してください。
   

   [VB6.0] '各オブジェクトの解放 Set Person = Nothing Set SvrObj = Nothing [VB 2005以降: 明示的に解放] Imports System.Runtime.InteropServices.Marshal : '各オブジェクトを明示的に解放 If Not Person Is Nothing Then FinalReleaseComObject(Person) Person = Nothing End If If Not SvrObj Is Nothing Then FinalReleaseComObject(SvrObj) SvrObj = Nothing End If [VB.NET 2003以前: 明示的に解放] Imports System.Runtime.InteropServices.Marshal : '各オブジェクトを明示的に解放 If Not Person Is Nothing Then Do While ReleaseComObject(Person) > 0 Loop Person = Nothing End If If Not SvrObj Is Nothing Then Do While ReleaseComObject(SvrObj) > 0 Loop SvrObj = Nothing End If [VB.NET: GCにより解放] '各オブジェクトをGCにより解放 Person = Nothing SvrObj = Nothing 'ガベージ コレクション実行 GC.Collect()

以上のまとめたサンプルコーディングを次に示します。

Private Sub Command1_Click()
    '変数の宣言
    Dim SvrObj As Object            'サーバオブジェクト
    Dim inData As String
    Dim outData As String
    Dim retval As Long

    On Error Goto Exception

    'サーバオブジェクトの生成
    Set SvrObj = CreateObject("WebOTX.sample_LoopBackSample")

    inData = "LoopBack DATA DaTa dAtA"

    'サーバメソッドの呼び出し
    retval = SvrObj.LoopBack(inData, outData)

    GoTo Finally

Exception:
    'エラーメッセージとエラー番号の出力
    Call MsgBox(Err.Description & vbCr & "ErrCode:" & _
            Hex(Err.Number), vbExclamation)
Finally:
    'オブジェクトの解放
    Set SvrObj = Nothing
End Sub

Imports System.Runtime.InteropServices.Marshal

Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click

    '変数の宣言
    Dim SvrObj  As Object           'サーバオブジェクト
    Dim inData  As String
    Dim outData As String
    Dim retval  As Long

    Try
        'サーバオブジェクトの生成
        SvrObj = CreateObject("WebOTX.sample_LoopBackSample")

        inData = "LoopBack DATA DaTa dAtA"

        'サーバメソッドの呼び出し
        retval = SvrObj.LoopBack(inData, outData)

    Catch ex As Runtime.InteropServices.COMException
        'エラーメッセージとエラー番号の出力
        MsgBox(ex.ToString & vbCr & "ErrCode:" & _
            Hex(ex.ErrorCode), MsgBoxStyle.Exclamation)

    Catch ex As Exception
        'エラーメッセージの出力
        MsgBox(ex.ToString, MsgBoxStyle.Exclamation)

    Finally
        'オブジェクトの解放(明示的に解放)
        If Not SvrObj Is Nothing Then
            FinalReleaseComObject(SvrObj)
            SvrObj = Nothing
        End If
    End Try
End Sub

IDL定義で可変長配列を定義するには、sequenceを使用します。例えば文字列の可変長配列を使用する場合、次のようにIDLを定義します。

module sample {
    interface sampleSequence {
        typedef sequence<wstring> NameList;
        void entry(in NameList a);
        void search(out NameList b);
    };
};

Memo C++のサーバアプリケーションで文字列を使用する場合は、stringを使用してください。

Visual Basicでは NameListに対応する変数を次のように宣言してください。

Dim a() As String

sequence型を使用する場合は必ず要素数なしの変数を宣言する必要があります。要素数を指定した場合は可変長配列として動作しません。

Visual Basicでは配列の添え字+1が要素数になるため、入力パラメータ、入出力パラメータとしてn個の要素を使用する場合、次のように要素数を設定してください。

ReDim a(n-1)

要素数を設定した後に0番目の要素からn-1番目までの要素にデータを設定してください。

入出力パラメータ、出力パラメータ、返却値を受け取る場合、要素数は次のようにUBound()で取得することができます。

For i = 0 to UBound(b)
    person = b(i)                   '要素の取得
Next

IDL定義で固定長配列を定義するには、配列を示す括弧（[ ]）を使用します。例えば文字列の固定長配列を使用する場合、次のようにIDLを定義します。

module sample {
    interface sampleSequence {
        typedef wstring NameList[2];
        void entry(in NameList a);
        void search(out NameList b);
    };
};

Visual Basicでは配列の添え字+1が要素数になるため、IDL定義と同じ要素数になるように、IDL定義の値-1の値を添え字に使用します。

Dim a(1) As String                  'IDL定義値-1を添え字とする

入出力パラメータ、出力パラメータ および、返却値に対する各要素の取り扱いは、可変長配列を使用した場合と同様に処理することができます。

IDL定義で可変長多次元配列を定義するには、可変長配列を定義したものに対してsequenceを使用します。例えば文字列の可変長2次元配列を使用する場合、次のようにIDLを定義します。

module sample {
    interface sampleArray {
        typedef sequence<wstring> NameList;
        typedef sequence<NameList> NameListArr;
        void entry(in NameListArr a);
        void search(out NameListArr b);
    };
};

Memo C++のサーバアプリケーションで文字列を使用する場合は、stringを使用してください。

Visual Basicでは NameListArrに対応する変数を次のように宣言してください。

Dim a(,) As String

sequence型を使用する場合は必ず要素数なしの変数を宣言する必要があります。要素数を指定した場合は可変長多次元配列として動作しません。

Visual Basicでは配列の添え字+1が要素数になります。可変長2次元配列を例にすると、入力パラメータ、入出力パラメータとしてm個、n個の要素を使用する場合、次のように要素数を設定してください。

ReDim a(m-1, n-1)

要素数を設定した後に0番目の要素からm-1、n-1番目までの要素にデータを設定してください。

入出力パラメータ、出力パラメータ、返却値を受け取る場合、要素数は次のようにUBound()で取得することができます。

For i = 0 to UBound(b)
    For j = 0 to UBound(b, 2)
        person = b(i, j)            '要素の取得
    Next
Next

IDL定義で固定長多次元配列を定義するには、配列を示す括弧（[ ]）を使用します。例えば文字列の固定長2次元配列を使用する場合、次のようにIDLを定義します。

module sample {
    interface sampleArray {
        typedef wstring NameListArr[2][2];
        void entry(in NameListArr a);
        void search(out NameListArr b);
    };
};

Visual Basicでは配列の添え字+1が要素数になるため、多次元配列の各次元でIDL定義と同じ要素数になるように、IDL定義の値-1を添え字に使用します。

Dim a(1, 1) As String               'IDL定義値-1を添え字とする

入出力パラメータ、出力パラメータ および、返却値に対する各要素の取り扱いは、可変長多次元配列を使用した場合と同様に処理することができます。

IDL定義ではstructを使用します。例えば社員番号と社員名を構造体として使用する場合は次のようにIDLを定義します。

module sample {
    interface sampleStruct {
        struct person {
            long    id;
            wstring name;
        };
        void add(in person p);
        void search(in long id, out person p);
    };
};

Visual Basicではpersonに対応する変数を次のようにObject型で宣言します。

Dim Person As Object

入力パラメータ、入出力パラメータに構造体を使用するには、WebOTX.Bridgeの CreateTypeメソッドにより、変数を構造体として初期化する必要があります。メソッドを実行すると、Object型の変数は構造体の要素をプロパティとして持つCOMオブジェクトに初期化されます。構造体の名前には次のような命名規則があります。

CORBAゲートウェイのWebOTX.Bridgeオブジェクトの使用方法は、［クライアントAPIの使用方法］を参照してください。

上記のIDL定義では次のようなコーディングになります。

'(VB.NETの場合、Setステートメントは不要)
Dim Bridge As WebOTX.Bridge         'WebOTX.Bridgeオブジェクト
Dim Person As Object                '構造体

Set Bridge = New WebOTX.Bridge      'WebOTX.Bridgeオブジェクトの生成
Set Person = Bridge.CreateType("sample_sampleStruct::person")

変数Personは構造体の要素をプロパティとして持つCOMオブジェクトとして初期化されます。構造体の要素に値を代入するには構造体の要素名を使用します。次に例を示します。

'(VB.NETの場合、Setステートメントは不要)
'変数の宣言
Dim Bridge As WebOTX.Bridge         'WebOTX.Bridgeオブジェクト
Dim SvrObj As Object                'サーバオブジェクト
Dim Person As Object                '構造体

Set Bridge  = New WebOTX.Bridge     'WebOTX.Bridgeオブジェクトの生成
Set Person  = Bridge.CreateType("sample_sampleStruct::person")
Person.id   = 12345                 '要素に設定
Person.name = "日電太郎"            '要素に設定
Set SvrObj  = CreateObject("WebOTX.sample_sampleStruct")

Call SvrObj.Add(Person)             'サーバメソッド呼出し

出力パラメータ、返却値として構造体を使用するには、パラメータとしてObject型変数を指定します。初期化する必要はありません。メソッド実行後に、要素に値が設定されます。構造体の要素の値を参照するには構造体の要素名を使用します。次に例を示します。

'(VB.NETの場合、Setステートメントは不要)
Dim SvrObj As Object                'サーバオブジェクト
Dim Person As Object                '構造体
Dim id     As Long                  '社員番号
Dim name   As String                '社員名

Set SvrObj = CreateObject("WebOTX.sample_sampleStruct")
Call SvrObj.Search(1234, Person)    'サーバメソッド呼出し

id   = Person.id                    '要素の取得
name = Person.name                  '要素の取得

構造体を配列で使用するには、構造体以外を配列で使用する場合と比べて、実装方法が異なります。次に例を示します。

module sample {
    interface sampleStructSeq {
        struct person {
            long    id;
            boolean married;
            wstring name;
        };
        typedef sequence<person> persons;
        void entry(in persons ps);
        void search(in boolean married, out persons ps);
    };
};

入力パラメータ、入出力パラメータとして構造体の配列を使用するには、配列の要素をすべて構造体として初期化する必要があります。次に例を示します。

'(VB.NETの場合、Setステートメントは不要)
Dim Bridge    As WebOTX.Bridge      'WebOTX.Bridgeオブジェクト
Dim SvrObj    As Object             'サーバオブジェクト
Dim Persons() As Object             '構造体

Set Bridge = New WebOTX.Bridge      'WebOTX.Bridgeオブジェクトの生成
Set SvrObj = CreateObject("WebOTX.sample_sampleStructSeq")

ReDim Persons(2)
For i = 0 To UBound(Persons)
    Set Persons(i)     = Bridge.CreateType("sample_sampleStructSeq::person")
    Persons(i).id      = MSFlexGrid1.TextMatrix(1, i)
    Persons(i).married = CBool(MSFlexGrid1.TextMatrix(2, i))
    Persons(i).name    = MSFlexGrid1.TextMatrix(3, i)
Next

Call SvrObj.entry(Persons)          'サーバメソッド呼出し

出力パラメータ、返却値として構造体の配列を使用するには、パラメータとしてObject型変数の配列を指定します。初期化する必要はありません。次に例を示します。

'(VB.NETの場合、Setステートメントは不要)
Dim SvrObj    As Object             'サーバオブジェクト
Dim Persons() As Object             '構造体

Set SvrObj = CreateObject("WebOTX.sample_sampleStructSeq")

Call SvrObj.search(True, Persons)   'サーバメソッド呼出し

For i = 0 to UBound(Persons)
    MSFlexGrid1.TextMatrix(1, i) = Persons(i).id
    MSFlexGrid1.TextMatrix(2, i) = Persons(i).married
    MSFlexGrid1.TextMatrix(3, i) = Persons(i).name
Next

Erace Persons                       '配列初期化

固定長配列を使用することもできます。固定長配列を使用する場合、次のようにIDLを定義します。

module sample {
    interface sampleStructSeq {
        struct person {
            long    id;
            boolean married;
            wstring name;
        };
        typedef person persons[2];
        void entry(in persons ps);
        void search(in boolean married, out persons ps);
    };
};

Visual Basicでは配列の添え字+1が要素数になるため、IDL定義と同じ要素数になるように、IDL定義の値-1の値を添え字に使用します。

Dim Persons(1) As Object            'IDL定義値-1を添え字とする

入力パラメータ、入出力パラメータ および、出力パラメータに対する各要素の取り扱いは、可変長配列を使用した場合と同様に処理することができます。

構造体を多次元配列で使用するには、構造体以外を多次元配列で使用する場合と比べて、実装方法が異なります。次に、構造体の可変長2次元配列の例を示します。

module sample {
    interface sampleStructArr {
        struct person {
            long    id;
            boolean married;
            wstring name;
        };
        typedef sequence<person> persons;
        typedef sequence<persons> personArr;
        void entry(in personArr ps);
        void search(in boolean married, out personArr ps);
    };
};

入力パラメータ、入出力パラメータとして構造体の多次元配列を使用するには、多次元配列の要素をすべて構造体として初期化する必要があります。次に例を示します。

'(VB.NETの場合、Setステートメントは不要)
Dim Bridge As WebOTX.Bridge         'WebOTX.Bridgeオブジェクト
Dim SvrObj As Object                'サーバオブジェクト
Dim PersonArr(,) As Object          '構造体

Set Bridge = New WebOTX.Bridge      'WebOTX.Bridgeオブジェクトの生成
Set SvrObj = CreateObject("WebOTX.sample_sampleStructArr")

ReDim PersonArr(2, 2)
For i = 0 To UBound(PersonArr)
    For j = 0 To UBound(PersonArr, 2)
        Set PersonArr(i, j) = Bridge.CreateType("sample_sampleStructArr::person")
        PersonArr(i, j).id      = MSFlexGrid1.TextMatrix(i, j)
        PersonArr(i, j).married = CBool(MSFlexGrid1.TextMatrix(i, j))
        PersonArr(i, j).name    = MSFlexGrid1.TextMatrix(i, j)
    Next
Next

Call SvrObj.entry(PersonArr)        'サーバメソッド呼出し

出力パラメータ、返却値として構造体の多次元配列を使用するには、パラメータとしてObject型変数の多次元配列を指定します。初期化する必要はありません。次に例を示します。

'(VB.NETの場合、Setステートメントは不要)
Dim SvrObj As Object                'サーバオブジェクト
Dim PersonArr(,) As Object          '構造体

Set SvrObj = CreateObject("WebOTX.sample_sampleStructArr")

Call SvrObj.search(True, PersonArr) 'サーバメソッド呼出し

For i = 0 to UBound(PersonArr)
    For j = 0 to UBound(PersonArr, 2)
        MSFlexGrid1.TextMatrix(i, j) = PersonArr(i, j).id
        MSFlexGrid1.TextMatrix(i, j) = PersonArr(i, j).married
        MSFlexGrid1.TextMatrix(i, j) = PersonArr(i, j).name
    Next
Next

Erace PersonArr                     '配列初期化

固定長多次元配列を使用することもできます。固定長2次元配列を使用する場合、次のようにIDLを定義します。

module sample {
    interface sampleStructArr {
        struct person {
            long    id;
            boolean married;
            wstring name;
        };
        typedef person personArr[2][2];
        void entry(in personArr ps);
        void search(in boolean married, out personArr ps);
    };
};

Visual Basicでは配列の添え字+1が要素数になるため、IDL定義と同じ要素数になるように、IDL定義の値-1の値を添え字に使用します。

Dim PersonArr(1, 1) As Object       'IDL定義値-1を添え字とする

入力パラメータ、入出力パラメータ および、出力パラメータに対する各要素の取り扱いは、可変長多次元配列を使用した場合と同様に処理することができます。

構造体の要素中に構造体を使用する場合について説明します。次に例を示します。

module sample {
    interface sampleNestStruct {
        struct auth {
            long    id;
            wstring password;
        };
        struct person {
            auth    account;
            boolean married;
            wstring name;
        };
        void entry(in person ps);
        void search(in boolean married, out person ps);
    };
};

構造体中の構造体を使用する場合は、子の構造体を生成して値を設定してから、親の構造体に代入します。次に例を示します。

'(VB.NETの場合、Setステートメントは不要)
Dim Bridge  As WebOTX.Bridge        'WebOTX.Bridgeオブジェクト
Dim SvrObj  As Object               'サーバオブジェクト
Dim account As Object               '子の構造体
Dim person  As Object               '親の構造体

Set Bridge = New WebOTX.Bridge      'WebOTX.Bridgeオブジェクトの生成

'子の構造体の作成
Set account        = Bridge.CreateType("sample_sampleNestStruct::auth")
account.id         = 123456
account.password   = "himitsu"

'親の構造体の作成
Set person         = Bridge.CreateType("sample_sampleNestStruct::person")
person.married     = False
person.name        = "日電花子"
Set person.account = account        '親に子を設定

'サーバメソッド呼出し
Set SvrObj = CreateObject("WebOTX.sample_sampleNestStruct")
Call SvrObj.entry(person)

出力パラメータに構造体中の構造体を使用する場合は、パラメータとしてObject型変数を指定します。初期化する必要はありません。
また、サーバメソッドを呼び出した後、子の構造体のデータを取り出すには、オブジェクト変数に子のオブジェクトを指定します。次に例を示します。

'(VB.NETの場合、Setステートメントは不要)

Dim SvrObj   As Object              'サーバオブジェクト
Dim account  AS Object              '子の構造体
Dim person   As Object              '親の構造体
Dim id       As Integer
Dim password As String


'サーバメソッド呼出し
Set SvrObj = CreateObject("WebOTX.sample_sampleNestStruct")
Call SvrObj.search(True, person)

'構造体中の構造体の取得
Set account = person.account        '親から子を取得
id          = account.id
password    = account.password

オブジェクト代入処理の違い

VB.NETでは、Setステートメントが不要のため、オブジェクトの代入処理に次のような違いがあります。

Dim SvrObj As Object

'サーバオブジェクトの生成
Set SvrObj = CreateObject("WebOTX.Sample")

Dim SvrObj As Object

'サーバオブジェクトの生成
SvrObj = CreateObject("WebOTX.Sample")

オブジェクト解放のタイミングの違い

VB.NETにおけるNothing代入によるオブジェクトの解放は .NET Frameworkのガベージコレクトの発生まで遅延するため、即時にオブジェクトが解放されません。これによりクライアントリソースが減少するだけでなく、クライアントとアプリケーションサーバ間のコネクション持続時間が長くなり、アプリケーションサーバに同時に接続できるクライアントアプリケーション数が減少することがあります。

このため、VB.NETでオブジェクトを即時に解放する場合は System.Runtime.InteropServices.Marshal.FinalReleaseComObject()または、ReleaseComObject()により明示的にオブジェクトを解放するか、System.GC.Collect()によりガベージ コレクションを実行してください。

Imports System.Runtime.InteropServices.Marshal
    :
'各オブジェクトを明示的に解放
If Not Person Is Nothing Then
    FinalReleaseComObject(Person)
    Person = Nothing
End If
If Not SvrObj Is Nothing Then
    FinalReleaseComObject(SvrObj)
    SvrObj = Nothing
End If

Imports System.Runtime.InteropServices.Marshal
    :
'各オブジェクトを明示的に解放
If Not Person Is Nothing Then
    Do While ReleaseComObject(Person) > 0
    Loop
    Person = Nothing
End If
If Not SvrObj Is Nothing Then
    Do While ReleaseComObject(SvrObj) > 0
    Loop
    SvrObj = Nothing
End If

'各オブジェクトをGCにより解放
Person = Nothing
SvrObj = Nothing
'ガベージ コレクション実行
GC.Collect()

マルチスレッドプログラムからの同時アクセスについて

マルチスレッドプログラムから同時アクセスする場合、スレッド開始前にスレッドモデルをSTA（シングルスレッドアパートメント）に設定する必要があります。特に、.NET Framework 2.0以降（Visual Basic 2005以降）の場合、スレッドモデルの既定値は MTA（マルチスレッドアパートメント）であるため、Thread.SetApartmentStateメソッドにより、STAに設定する必要があります。マルチスレッド および、スレッドモデルの詳細については、マイクロソフトの技術資料（MSDNなど）を参照してください。

Imports System.Threading
    :
'スレッドを準備
Dim th As New Thread(AddressOf ThreadProc)
'スレッドモデルをSTAに設定
th.SetApartmentState(ApartmentState.STA)
'スレッド開始
th.Start()
    :

'スレッドの実行開始メソッド
Sub ThreadProc()
    'スレッドのApartmentStateを表示
    MsgBox("ApartmentState(0:STA, 1:MTA, 2:Unknown)=" & _
        Thread.CurrentThread.GetApartmentState())
End Sub

Imports System.Threading
    :
'スレッドを準備
Dim th As New Thread(AddressOf ThreadProc)
'スレッドモデルをSTAに設定
th.ApartmentState = ApartmentState.STA
'スレッド開始
th.Start()
    :

'スレッドの実行開始メソッド
Sub ThreadProc()
    'スレッドのApartmentStateを表示
    MsgBox("ApartmentState(0:STA, 1:MTA, 2:Unknown)=" & _
        Thread.CurrentThread.ApartmentState)
End Sub

IFコンパイラ (woifgenコマンド) の使用方法を説明します。

障害が発生した場合は、調査のためトレースファイルを採取してください。

クライアントアプリケーション実行時に障害が発生した場合、CORBAゲートウェイと Object Broker C++のトレースが必要になります。

IFコンパイル実行時に障害が発生した場合、IFコンパイラのトレースが必要になります。

CORBAゲートウェイのトレース

CORBAゲートウェイのデバッグトレースを採取するには、次のレジストリ内容を適用してください（キーや値がない場合は作成してください）。

VBアプリケーションの場合、トレースファイルは作業フォルダ（カレントディレクトリ）内のorbclbrg.logに出力されます。ASPアプリケーションの場合、トレースファイルはシステム環境変数 %TEMP%が示すフォルダに出力されます。

Memo エラー内容の詳細については、［例外一覧 > 5. CORBA > 5.4. CORBA, EJBゲートウェイのエラー一覧］を参照してください。

ファイルサイズの上限やファイル名を変更する場合は、次のレジストリ内容を適用してください（キーや値がない場合は作成してください）。

Object Broker C++のトレース

通信に関する詳細な調査の際は、Object Broker C++のトレースログが必要になります。 Object Broker C++の詳細トレースを採取するには、次のレジストリ内容を適用してください（値がない場合は作成してください）。

出力されるトレースファイル名は <インストールディレクトリ>\ObjectBroker\log配下のmessage.logとObLog.logになります。

ファイルサイズの上限やファイル名を変更する場合は、次のレジストリ内容を適用してください（値がない場合は作成してください）。

IFコンパイラのトレース

IFコンパイラはIFコンパイル時にランタイムエラーなどの例外が発生した場合、作業フォルダ（カレントディレクトリ）内にwoifgen.logを出力します。