java调用ActiveX控�g

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文�g

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(); //生成一个对�?/span>
Variant result = Dispatch.call( myCom, "MD5", str) ;
res=result.toString();
}catch (Exception e) {
res="";
e.printStackTrace();
}
return res;
}
}

在公叔R��Q�不同的�pȝ��使用不能的语�a�非常正常�Q�我曄��在一个公司就职，原先的博客系�l��用asp�~�写的，里面有很多dll文�g�Q�在asp里，可直接调用dll文�g�Q�非常简单，但由于系�l�升�U�后�Q�都�l�一使用了Java�Q�那么原先编写的很多模块�Q�封装在dll里的�Q�就都不能用了，但有一个加密算法还非得在客服系�l�里用到�Q�因为新旧系�l�要�q�行�q�行一�D�|��_��客服�pȝ��必须同时能管理新旧两大系�l�）�Q�那么如何在Java中调用VB�~�写的Dll文�g呢？代码如下

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(); //生成一个对�?/span>

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

res=result.toString();

}catch (Exception e) {

res="";

e.printStackTrace();

}

return res;

}

}

�q�里使用��C��Jacob包，有兴��的读者可以Google一下，深入的了解一下这个Jacob�?/p>

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

实例说明java调用vb的dll�Q�读取cpu序列��P��

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

【实例】java调用dll的文档搜了不��，发现都不完整�Q�或者说的不够详�l�，�q�里通过自己的实际操作，�q�将�q�程做了整理�Q�通过实例说明java如何用jacob调用dll里的函数�?br />
�׃��某系�l�加密需要，需要实��C��dll里实现某些功能（比如获取当前CPU序列��P��Q��ƈ在Java中调用该函数�?br />
�Q�一�Q�准备工作：需要用到文件有�Q�jacob.dll和jacob.jar分别攑ֈ�jdk/bin下和class_path下。文件下载地址�Q?br />
�Q�二�Q�徏立一个VB的Activex Dll 工程�Q�命名�ؓ名�ؓgetCPU�Q�自动生成Class1文�g�Q�工�E�名字和�c�d��用英文名�Q�以防调用时�~�码出问题）�Q��ƈ��d��代码如下�Q?br />

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端口�?/span>

            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 �q�复制到Windows/System32下�?br />
�Q�三�Q�将dll导入为com�l��g

�q�行命��o�Q�regsvr32 C:\windows\system32\getCPU.dll 昄��成功导入�?br />
�Q�四�Q�徏立测试Java文�g�Q�内容如下：

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 发表评论

天堂在线视频,国产精品热视频,国产成人在线一区二区

java调用ActiveX控�g

在Java调用VB�~�写的Dll文�g

实例说明java调用vb的dll�Q�读取cpu序列��P��