Matlab与VB集成的四种方法.docVIP

一、借助 ActiveX部件 Microsoft把所有以COM为基础的技术统称为ActiveX技术。自动化是大多数ActiveX技术 的 基础，它可使解释性的宏语言（如VB）能够在不了解应用程序实现细节的情况下控制自 动 化对象。Matlab实现了ActiveX自动化服务支持，在VB下通过ActiveX自动化接口可将Mat l ab作为Visual Basic语言的一个ActiveX部件调用。 Matlab ActiveX自动化服务的功能主要包括在Matlab工作空间执行Matlab命令，以及直 接 从工作空间存取矩阵等，下面列出了Matlab自动化服务支持的几个主要方法，其参数和 返 回值的类型采用ActiveX自动化协议所定义的与语言无关的类型描述: ● BSTR Execute([in] BSTR Command); BSTR表示宽字符串类型，它与VB存储字符串所采用的数据格式相同。该方法接收字符串 命 令并在Matlab中执行，将结果以字符串形式返回。 ● void GetFullMatrix([in] BSTR Name，[in] BSTR Workspace，[in, out] SAFEARRAY (double)* pr，[in, out] SAFEARRAY(double)* pi); 该方法从指定的工作空间检索一个完整的一维或二维的实型或虚mxArray，其实部和虚部 被 分别存放到两个单独的Double型数组中。 ● void PutFullMatrix([in] BSTR Name，[in] BSTR Workspace，[in] SAFEARRAY(doub le) pr，[in] SAFEARRAY(double) pi); 该方法将一个mxArray放入指定的工作空间。各参数的含义及调用方法与GetFullMatrix 方 法类似。 示例代码如下： Dim Matlab As Object ’声明对象 Dim MReal1(5，5) As Double ’声明存放实部的Double型数组 Dim MImag() As Double ’声明存放虚部的Double型数组 Set Matlab=CreateObject(“Matlab.Application”) ’初始化对象 Matlab.Execute(“a=hilb(5)”) ’执行Matlab命令 Call Matlab.GetFullMatrix(“a”,“base”，MReal1，MImag) ’将结果分别存入实部、虚部数组 二、借助DDE技术 DDE(Dynamic Data Exchange)允许Microsoft Windows应用程序通过交换数据实现彼此间 的 通信。应用程序间彼此通信要先建立一个DDE会话，对会话进行初始化的应用程序称为客 户 端（Client），对Client端作出响应的应用程序称为服务器（Server）。图1描述了Matl a b作为服务器时与其他应用程序的通信机制。 图1 借助DDE时应用程序通信机制 其中，DDE功能函数既可以由应用程序提供，也可以由Matlab引擎库提供。 初始化会话时，客户端应用程序必须指定两个参数service name(服务器应用程序的名称 ) 和topic（会话主题）。 下面的示例说明了VB与Matlab建立并完成DDE会话的全过程： 说明: TextInput是输入文本框，TextOutput是输出文本框。在TextInput中输入Matlab 命 令回车后，由Matlab在后台执行并将结果返回给TextOutput显示。 Sub TextInput_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn then ’初始化TextInput与Matlab间的DDE会话 TextInput.LinkMode = vbLinkNone TextInput.LinkTopic = “MATLAB|Engine” TextInput.LinkItem =“EngEvalString” TextInput.LinkMode = vbLinkManual szCommand = TextInput.Text ’执行Matlab命令 TextInput.LinkExecute szCommand TextInput.LinkMode = vbLinkNone ’初始化TextOutput与Matlab间的DDE会话 TextOutput.LinkMode = vbLinkNone TextOutput.LinkTopic = “MATLAB|Eng