Java如何通过VC调用VB编写的COM

    前几天，一位同事问起如何在java中调用vb写的com，以前知道可以用java的native方式，通过windows dll中转来实现，但未实践过，今天忙里偷闲，刚好试了一把。写了一个最简例子。
    步骤很简单，或许哪位同学以后有可能用到，俺就帮忙整理了一下：

第一步：生成最简COM(采用VB60)
1.1：VB代码
PROGID：testVBCom.clsTest
线程模型：STA 多实例模型
Public Function FuncTest(ByVal strInput As String, ByVal nInput As Long) As String
     FuncTest = "VBCom测试：" & strInput & CStr(nInput)
End Function
就这么简单，呵呵。

第二步：定义Native方法，导出Windows DLL的输出节声明(采用Eclipse3.1)
2.1 java代码：
package com.kingdee;
public class testCallNative {
  static
  {
    System.loadLibrary("CallComAPI");
  }
  public native String callAPI(String str1 ,int n);
  ……
}
2.2：导出声明
javah -jni com.kingdee.testCallNative
得到com_kingdee_testCallNative.h 文件
注：这属于java虚拟机调用与Windows dll的标准方式，从名称可看出端倪，不能更改约定的输出名，如此例的输出名称为：
JNIEXPORT jstring JNICALL Java_com_kingdee_testCallNative_callAPI
  (JNIEnv *, jobject, jstring, jint);

第三步：编写Windows DLL(采用VC6.0)
先说明一下，要编写Windows DLL，可以采用MFC或是SDK，为了更方便的访问Com，我的例子用了MFC，并用到部分ATL，但实际上可以采用最简SDK方式来实现。
3.1：生成API DLL框架
a：使用VC向导生成MFC方式的DLL(注意：是常规DLL，不能使用扩展方式)
b：定义def文件内容：
EXPORTS
   Java_com_kingdee_testCallNative_callAPI @1
c：包含上一步的.h文件。
d：在Path中或是VC的Option中添加必要的include目录。
比如：我的机器上是：
D:/Program Files/Java/jdk1.5.0/include
D:/Program Files/Java/jdk1.5.0/include/win32
e：添加实现过程名。
JNIEXPORT jstring JNICALL Java_com_kingdee_testCallNative_callAPI
  (JNIEnv * jEnv, jobject, jstring jsInput, jint jnInput)
{
   jstring jsRet;

   return jsRet;
}

3.2：实现com调用的代码。(采用#import方式调用标准com)
stdafx.h:
#include <atlbase.h>
#import "..//vbCom//testVBCom.dll" named_guids

CallComAPI.cpp
#include "com_kingdee_testCallNative.h"

void GetJString(JNIEnv * jEnv,LPCTSTR lpszBuffer,jstring & js)
{
    USES_CONVERSION;
    LPWSTR pw = T2W(lpszBuffer);
    js = jEnv->NewString(pw,wcslen(pw));
    return;
}

JNIEXPORT jstring JNICALL Java_com_kingdee_testCallNative_callAPI
  (JNIEnv * jEnv, jobject, jstring jsInput, jint jnInput)
{
    ::CoInitialize(NULL);

    //convert input params
    CString sInput = jEnv->GetStringUTFChars(jsInput,0);

    CString sRet;
    testVBCom::_clsTest *pTest = NULL;
    jstring jsRet;
    try
    {
        //get com's interface
        if( FAILED(::CoCreateInstance(testVBCom::CLSID_clsTest,NULL,CLSCTX_INPROC,
               testVBCom::IID__clsTest,(LPVOID*)&pTest)) )
            throw(_T("Get com's interface failed!"));

       //call com's method
       _bstr_t bstr1(sInput);
       bstr1 = pTest->FuncTest(bstr1,jnInput);
       sRet = bstr1.copy();

       GetJString(jEnv,sRet,jsRet);
    }
    catch (LPCTSTR lpszErr)
    {
       GetJString(jEnv,lpszErr,jsRet);
    }
    catch(...)
    {
       GetJString(jEnv,_T("Unknown error!"),jsRet);
    }
    if(pTest) pTest->Release();
    ::CoUninitialize();
    return jsRet;
}

第四步：编写java的测试(用Eclipse 3.1)
4.1：添加Native的相关路径：
我机器上的路径是：
-Djava.library.path=E:/work/CallComForJava/example/CallComAPI/Release

4.2：测试代码：
public static void main(String[] args) {
    System.out.println("Start...");
    testCallNative testObj = new testCallNative();
    System.out.println(testObj.callAPI("test",1));
    System.out.println("End...");
}

4.3：运行
得到结果：
Start...
VBCom测试：test1
End...

简单吧，嘿嘿。

注意事项：
1：采用VC6.0编写的Debug版的DLL不能被java正常调用，原因不详，必须用Release版。
2：在API中进行控制台输出时，其次序并不如想象。
如在API中一头一尾加上：
printf("/napi dll start...");
……
printf("/napi dll ebd...");

运行，在控制台的输出是：
Start...
VBCom测试：test1
End...
api dll start...
api dll end...

石头 于2005-11-16