jacob传送数组到com以及从com的提取com对修改后的数组参数
发布时间:2020-12-16 23:02:42 所属栏目:大数据 来源:网络整理
导读: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); Var
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 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |