import com.jacob.com.*;
import com.jacob.activeX.*;
public class Exam_6
{
public static void main(String[] args)
{
ActiveXComponent pp = new ActiveXComponent("PrjCOM.MyCOM");
try {
SafeArray sa = new SafeArray(Variant.VariantString,2);
Variant var = new Variant();
sa.fromStringArray(new String[]{"H","H"});
var.putSafeArrayRef(sa);//传递数组引用地址
//如果只是传一个数组进去,而不需要取得改动后内容的话,可以用putSafeArray方法
Dispatch.call(pp, "Test",var);
String[] sack= sa.toStringArray();
System.out.println(sack[0]+"\t"+sack[1]);
} catch (Exception e) {
e.printStackTrace();
}
}
}
VB实现的Com对象如下
VERSION 1.0 CLASS BEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObject END Attribute VB_Name = "MyCOM" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = True Public Sub Test(ByRef param() As String) ReDim param(2) param(0) = "Hello" param(1) = "World" End Sub
编译执行Exam_6.java
打印 Hello World