mycorbaserverclass.java

来自「《Delphi开发人员指南》配书原码」· Java 代码 · 共 27 行

package CorbaServer;

import java.util.*;

public class MyCORBAServerClass {

  public static void main(String[] args) {
    try {
      org.omg.CORBA.ORB orb = org.omg.CORBA.ORB.init();
      org.omg.CORBA.BOA boa = orb.BOA_init();
      CorbaServer.SimpleTextClass stc = new SimpleTextClass("SimpleText");
      CorbaFrame frm = new CorbaFrame();
      frm.pack();
      frm.show();
      stc.setFrame(frm);
      CorbaServer.SimpleText implObject = stc;
      boa.obj_is_ready(implObject);
      System.out.println(implObject+ " is ready.");
      boa.impl_is_ready();
    }
    catch (Exception e) {
      e.printStackTrace();
    }
  }
}