java调用ActiveX控件

aiaiwoo — Fri, 05 Nov 2010 06:43:00 GMT

import com.jacob.com.*;
import com.jacob.com.*;
import com.jacob.activeX.*;
public class DispatchTest
{
        public static void main(String[] args)
        {
                ActiveXComponent xl = new ActiveXComponent("Word.Application";
                Object xlo = xl.getObject();
                try
                {
                        System.out.println("version="+xl.getProperty("Version");
//                        for (int i=0; i<100; i++)
                        System.out.println("version="+Dispatch.get(xl, 1));
//                        System.out.println("version="+Dispatch.get(xlo,"Version");
                }
                catch (Exception e)
                {
                        e.printStackTrace();
                }
                finally
                {
                        xl.invoke("Quit", new Variant[] {});
                }
        }
}

另一个例子：

在Java调用VB编写的Dll文件

import com.jacob.com.*;
import com.jacob.activeX.*;
public class VbdllCall
{
public static String md5CallVbdll(String str){
String res="";
try {
ActiveXComponent pp = new ActiveXComponent("md5.Class1");
Dispatch myCom = (Dispatch) pp.getObject(); //生成一个对象
Variant result = Dispatch.call( myCom, "MD5", str) ;
res=result.toString();
}catch (Exception e) {
res="";
e.printStackTrace();
}
return res;
}
}

在公司里，不同的系统使用不能的语言非常正常，我曾经在一个公司就职，原先的博客系统使用asp编写的，里面有很多dll文件，在asp里，可直接调用dll文件，非常简单，但由于系统升级后，都统一使用了Java，那么原先编写的很多模块（封装在dll里的）就都不能用了，但有一个加密算法还非得在客服系统里用到（因为新旧系统要并行运行一段时间，客服系统必须同时能管理新旧两大系统），那么如何在Java中调用VB编写的Dll文件呢？代码如下

import com.jacob.com.*;

import com.jacob.activeX.*;

public class VbdllCall

{

public static String md5CallVbdll(String str){

String res="";

try {

ActiveXComponent pp = new ActiveXComponent("md5.Class1");

Dispatch myCom = (Dispatch) pp.getObject(); //生成一个对象

Variant result = Dispatch.call( myCom, "MD5", str) ;

res=result.toString();

}catch (Exception e) {

res="";

e.printStackTrace();

}

return res;

}

}

这里使用到了Jacob包，有兴趣的读者可以Google一下，深入的了解一下这个Jacob包

aiaiwoo 2010-11-05 14:43 发表评论

实例说明java调用vb的dll（读取cpu序列号）

aiaiwoo — Fri, 05 Nov 2010 06:18:00 GMT

【实例】java调用dll的文档搜了不少，发现都不完整，或者说的不够详细，这里通过自己的实际操作，并将过程做了整理，通过实例说明java如何用jacob调用dll里的函数。

由于某系统加密需要，需要实现从dll里实现某些功能（比如获取当前CPU序列号），并在Java中调用该函数。

（一）准备工作：需要用到文件有：jacob.dll和jacob.jar分别放到jdk/bin下和class_path下。文件下载地址：

（二）建立一个VB的Activex Dll 工程，命名为名为getCPU，自动生成Class1文件（工程名字和类名建议用英文名，以防调用时编码出问题），并添加代码如下：

Private Type OSVERSIONINFO

                    dwOSVersionInfoSize     As Long

                    dwMajorVersion     As Long

                    dwMinorVersion     As Long

                    dwBuildNumber     As Long

                    dwPlatformId     As Long

                    szCSDVersion     As String * 128                     '       Maintenance     string     for     PSS     usage

    End Type

    Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

    Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long



    Public Function GetCPUid(para As String) As String



            On Error GoTo doError



            Dim len5       As Long, aa         As Long

            Dim cmprName       As String

            Dim Computer       As String

            Dim CPUs       As Object, MyCpu         As Object

            Dim osver       As OSVERSIONINFO

            Dim SerialNo       As String



            '取得Computer     Name

            cmprName = String(255, 0)

            len5 = 256

            aa = GetComputerName(cmprName, len5)

            cmprName = Left(cmprName, InStr(1, cmprName, Chr(0)) - 1)

            Computer = cmprName                       '取得CPU端口号

            Set CPUs = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2").ExecQuery("select     *     from     Win32_Processor")

            For Each MyCpu In CPUs

                    SerialNo = MyCpu.ProcessorId

                    Exit For

            Next

            GetCPUid = SerialNo

            Exit Function

doError:

            GetCPUid = ""

      End Function

保存后编译为getCPU.dll 并复制到Windows/System32下。

（三）将dll导入为com组件

运行命令：regsvr32 C:\windows\system32\getCPU.dll 显示成功导入。

（四）建立测试Java文件，内容如下：

package test;

import com.jacob.activeX.ActiveXComponent;

import com.jacob.com.*;

public class CallDll {

public static void main(String args[]) {

    ActiveXComponent app = new ActiveXComponent("getCPU.Class1");

    Dispatch mycom = (Dispatch) app.getObject();

    if(mycom!=null){

     Variant result = Dispatch.callN(mycom, "GetCPUid", new String[]{""});

     System.out.print(result);

    }

}

}

aiaiwoo 2010-11-05 14:18 发表评论

BlogJava-色彩空间-文章分类-Java

java调用ActiveX控件

在Java调用VB编写的Dll文件

实例说明java调用vb的dll（读取cpu序列号）