G.1.6 サーバの処理結果

復帰値にサーバの処理結果が通知され、その型が構造体、共用体、any、オブジェクト、TypeCodeの場合、Object型変数で受け取ります。なお、その他の型の場合、復帰値はそれぞれの型の値となります。

IDL言語

interface example13 {
    typedef struct STR {
        long a,b; 
    } Foo; 
    long      ope1();
    string    ope2();
    Foo       ope3();
} ;

Visual Basic

Dim factory As Object 
Dim ex13 As Object
Dim ret1 As long
Dim ret2 As string
Dim ret3 As Object
Dim sa As long

Set factory = CreateObject("CORBA.Factory") 
Set ex13 = factory.GetObject("example13") 
ret1 = ex13.op1
ret2 = ex13.op2
Set ret3 = ex13.op3
sa = ret3.a