Oracle EBS Form Builder使用Java beans创建窗体

　　最近有个项目，需要研究一下Oracle的E-Business Sutie(EBS),对于以前没接触此套件的我来说，简直太痛苦了。在网上找了一堆资料，试着进行Form二次开发，也遇到各类奇葩问题。目前遇到最大的一个问题是，如何在本地 Form Builder中进行窗体构建，并调用后台的JavaBean和窗体进行交互？网上也有不少的解决方案，但是都存在一些差异，试了很多次，终于实现了我预期的效果。

　　为了防止以后再遇到类似的问题，先做一个记录，以备后查。

1、环境搭建说明

　  服务器：Oracle EBS服务端（包括Oracle数据库）部署在RedHat5

　  客户端：XP系统上安装Oracle Development Suite（其中有Form Builder 10g )

2、JavaBean编写和编译

　　在Forms Builder中，Item中有个属性叫"Implementation Class"，这个用来指定一个Item到底继承自上表的哪个Java类。标准的Item，其Implementation Class都放空，无须我们明确指定，因为Oracle内置了对应关系。但如果要在Forms 中使用非标准的Class，比如我们自行扩展的，则必须明确指出Item的"Implementation Class"，并且是带包名的全称，如oracle.forms.fd.JavaHost。一个类要在Forms中使用，其必须符合Oracle Forms的设计规范，简单说，就是要实现oracle.forms.ui.IView接口。Oracle还提供了实现IView接口的VBean类，如果欲创建的类不需要从其他类继承，则可以直接extends VBean，省了实现IView的麻烦。

 package oracle.forms.fd;
 
 import java.io.BufferedReader;
 import java.io.IOException;
 import java.io.InputStreamReader;
 import java.util.StringTokenizer;
 import oracle.forms.handler.IHandler;
 import oracle.forms.ui.VBean;
 import oracle.forms.properties.ID;
 import oracle.forms.ui.CustomEvent;
 
 //Form整合JavaBean要实现IView接口,
 //若创建的类不需要继承其他类，则可以直接extends VBean
 public class JavaHost extends VBean
 {
   private static final ID SetProg     = ID.registerProperty("SET_PROG");
   private static final ID MSGSTND     = ID.registerProperty("MSGSTND");
   private static final ID MSGERROR    = ID.registerProperty("MSGERROR");
   private static final ID MSGTEXT     = ID.registerProperty("MSGTEXT");
   private IHandler     m_handler;
   Process p = null ;
 
   public JavaHost()
   {
   }
 
   public void init(IHandler handler)
   {
     m_handler = handler;
     super.init(handler);
   }    
 
   /*************************
    *  Set some properties  *
    ************************/
   public boolean setProperty(ID property, Object value)
   {
     /*
      *  Start the process  *
      */
     if (property == SetProg)
     {
       String s= value.toString(), s2="" ;
       String[] sTabParams = null ;
       int iNbParams = 0, iPos=-1 ;
       iPos = s.indexOf(",") ;
       if(iPos > -1)
       {
         StringTokenizer st = new StringTokenizer(s,",");
         // get the total number of parameters
         while (st.hasMoreTokens())
         {
           s2 = st.nextToken() ;
           iNbParams++;
         }
         sTabParams = new String[iNbParams];
         st = new StringTokenizer(s,",");
         for( int i=0; i<iNbParams; i++ ) sTabParams[i] = st.nextToken() ;
       }
       // launch the programme
       try {
         if(iPos > -1) p = Runtime.getRuntime().exec(sTabParams);
         else          p = Runtime.getRuntime().exec(s); 
 
         new Thread()
         {
           public void run()
           {
             try
             {
               BufferedReader br = new BufferedReader(new InputStreamReader(p.getInputStream()));
               String line = null;
               try {
                 while((line = br.readLine()) != null)
                 {
                   // Send standard output to Forms
                   SendProperties(MSGSTND,line);
                 }
             }
             finally
             {
               br.close();
             }
           }
           catch(IOException ioe)
           {
             ioe.printStackTrace();
             SendProperties(MSGERROR,ioe.getMessage());
           }
          }
        }.start();
        // Error output
        new Thread()
        {
          public void run()
          {
            try
            {
               BufferedReader br = new BufferedReader(new InputStreamReader(p.getErrorStream()));
               String line = null;
               try
               {
                  while((line = br.readLine()) != null)
                  {
                     // Send error output to Forms
                      SendProperties(MSGERROR,line);
                  }
               }
               finally
               {
                 br.close();
               }
             }
             catch(IOException ioe)
             {
               ioe.printStackTrace();
               SendProperties(MSGERROR,ioe.getMessage());
             }
           }
         }.start();
       }
       catch(IOException ioe) {  ioe.printStackTrace(); SendProperties(MSGERROR,ioe.getMessage());}
 
       return true ;
     }
     else
     {
      return super.setProperty(property, value);
     }
   }  
 
   // send standard/error output back to Forms
   private void SendProperties(ID id, String sMessage)
   {
     try{
       CustomEvent ce = new CustomEvent(m_handler, id);
       m_handler.setProperty( MSGTEXT, sMessage );
       dispatchCustomEvent(ce);
     }
     catch (Exception e)
     {
       e.printStackTrace();
     }
   }
 
 }

JavaHost Code

　　用java1.3的版本编译此JavaHost.java，打包成javahost.jar放于客户端xp 系统的C:\DevSuiteHome_1\forms\java位置（我的安装在C盘），其实服务器上也有一个此目录

3、formsweb.cfg配置

　　服务器和客户端都存在这样的配置文件，如果在本地进行窗体调试，必须配置本地的formsweb.cfg（网上很多都并未提出是服务器端还是客户端，我折腾了很久）。在C:\DevSuiteHome_1\forms\server文件下打开formsweb.cfg，将javahost.jar追加到archive_jini上，如archive_jini=frmall_jinit.jar,javahost.jar(注意是逗号分隔，不是分号）

4、Form创建和配置

　　在Form Builder创建JAVA_HOST.fmb的窗体，在Form上添加一个Bean区域控件，它的实施类为oracle.forms.fd.JavaHost。

5、运行窗体（单击运行表单按钮）

单据FormBuilder上的运行表单按钮，稍等一会（其实也挺慢的...),会出现下面的界面：

在Command文本框中输入 cmd /c dir /b c:\*.jpg ，然后单击Execute按钮运行命令。如果调用JavaBean成功的话，会搜索本地C盘下的.jpg文件，并列出到Result中，如下图：

本次测试正确。发布到服务器还需要对服务器相关文件进行配置。客户端的路径问题，可搜索注册表("_PATH") 来查看FORMS_PATH和ORACLE_HOME的路径情况。

6、关于FormBuilder导入pll库和java包的若干说明

有的时候你的窗体需要用到其他的库文件，默认不在FormBuilder的搜索路径中，必须手动进行引入。例如我碰到一个fnd_message.debug未声明的错误，网上说是要导入一个FNDSQF.pll库，但是都没说如何导入。最后摸索出来是这样的，首先需要把服务器forms(包含很多系统和开发的窗体，如果待开发的窗体需要调用这些，必须要拷贝到开发环境下）和resource（FNDSQF.pll库就在此目录下）文件夹拷贝到本地。

导入pll库的方法如下图：

如果需要导入java类，可以首先编辑注册表项目FORMS_BUILDER_CLASSPATH，在此项目后追加待导入库的完整路径，如下图：

然后就可以在FormBuilder看见javahost.jar中的java类：oracle.forms.fd.javahost

另外就是在运行Form时，首先必须确保开启本地Start OC4J Instance，如下图：

另外就是把窗体上传到服务器端后，注意编译的路径和菜单使用的路径（和挂接的模块有关系，不同的模块在不同的文件夹下）是不同的，否则会报无法加载XXX.fmx的情况。

编译命令：frmcmp_batch module=/u01/oracle/VIS/apps/apps_st/appl/ozf/12.0.0/forms/ZHS/FRM_WM_JAVABEAN.fmb userid=apps/apps@VIS output_file=/u01/oracle/VIS/apps/apps_st/appl/ozf/12.0.0/forms/ZHS/FRM_WM_JAVABEAN.fmx
服务器常用的路径：

/u01/oracle/VIS/apps/apps_st/appl/au/12.0.0/resource
/u01/oracle/VIS/apps/apps_st/comn/java/classes
/u01/oracle/VIS/apps/apps_st/appl/ozf/12.0.0/forms/ZHS
/u01/oracle/VIS/apps/tech_st/10.1.2/forms/server
/u01/oracle/VIS/apps/tech_st/10.1.2/forms/java