Interstage Application Server アプリケーション作成ガイド （CORBAサービス編）

J.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