G.1.2 OLEクライアントの処理

OLEクライアントの処理の流れを以下に示します。

OLE-CORBAゲートウェイは、CORBA.Factoryという名前でパソコン上のRegistoryに登録されています。OLE-CORBAゲートウェイを起動するためには、Visual Basicが標準提供しているCreateObject関数を使用し、そのパラメタとしてCORBA.Factoryを指定します。

サーバアプリケーションのオブジェクトリファレンスを検索するために、GetObject関数を使用し、そのパラメタとしてサーバアプリケーションの名前を指定します。
GetObject関数では、パラメタで指定されたサーバアプリケーション名をネーミングサービスから検索後、オブジェクトリファレンスをクライアントに通知します。サーバのアプリケーション名を指定する場合は、ネーミングサービスに登録したオブジェクト名を指定します。なお、サーバオブジェクトのIDL定義がインタフェースリポジトリに登録されている必要があります。

(1) 実行時バインディング

GetObject関数で検索したオブジェクトのメソッドを呼び出すことにより、サーバアプリケーションが持っているメソッドを呼び出すことができます。以下にクライアントのVisual Basicでのプログラミング例を示します。

Dim GW As Object                                     // OLE-CORBAゲートウェイのインスタンス
Dim calculator As Object                             // サーバのオブジェクトリファレンス
Dim a As Long                                        // 入力用変数
Dim b As Long                                        // 入力用変数
Dim exp As Object                                    // エラー設定用
Dim res As Variant                                   // 返り値用変数

Set GW = CreateObject("CORBA.Factory")               // OLE-CORBAゲートウェイの起動
Set calculator = GW.GetObject("ODdemo::calculator")  // CORBAオブジェクトの生成
a = Text1.Text                                       // 画面に入力されたデータを代入
b = Text2.Text                                       // 画面に入力されたデータを代入
Set res = calculator.calculate(a, b, exp)            // メソッドの呼び出し

(2) 事前バインディング

CORBA.Factoryオブジェクトを格納する変数をクラス型で宣言することにより、Visual Basicの事前バインディングが有効になります。事前バインディングは、従来の実行時バインディングと比べVisual Basicプログラム実行時にCORBAクラスを読み込まないため、性能向上が図れます。Visual Basicのアプリケーション開発時に、事前バインディングを使用するには、Visual Basicの“プロジェクト”メニューの“参照設定”を選択し、“ODOLE 1.0 Type Library”を有効にしてください。以下に事前バインディングのプログラミング例を示します。

Dim Factory as CORBAFactory

Set Factory = CreateObject("CORBA.Factory")

G.1.2 OLEクライアントの処理

G.1.2.1 OLE-CORBAゲートウェイの起動

G.1.2.2 サーバアプリケーションのオブジェクトリファレンスの検索

G.1.2.3 メソッドの実行