镜面纸:Matlab生成,vb、等的调用! - flider的日志 - 网易博客
Matlab生成Com组件,vb、vc等的调用!
学习资料 2010-07-14 15:42:35 阅读215 评论0 字号:大中小 订阅
将m文件做成COM组件。pdf 链接:http://www.docin.com/p-55636205.html
第一步:Matlab生成Com组件编译器的配置过程
首先.要把Matlab编译成Com组件提供给.Net使用..需要使用VC++编译环境,对于 7.0版本以上可以支持VC++ 2005对于 7.0以及 7.0版本以下 支持 VC++ 6.0;
首先我的电脑已经安装了 VS.NET 2008,虽然里面也有附加VC++,但是却不能提供给Matlab编译成Com组件.于是我又去下了VC++ 6.0;安装后 经过测试 依然不行;以为Matlab没有识别.可能被VS.NET的相关文件覆盖(因为.net包括c++,所以安装c++的时候,有部分文件是相同的)
mbuild -setup (对matlab编译器配置)
Please choose your compiler for building standalone MATLAB applications:
Would you like mbuild to locate installed compilers [y]/n? y(输入y回车)
Select a compiler:
[1] Lcc C version 2.4 in E:\MATLAB\sys\lcc
[2] Microsoft Visual C/C++ version 6.0 in E:\VC
[0] None
Compiler:2 回车
Please verify your choices:
Compiler: Microsoft Visual C/C++ 6.0
Location: E:\VC
Are these correct?([y]/n):y 回车
Warning: Mbuild requires that the Microsoft Visual C++ 6.0
directories "VC98" and "Common" be located within the same parent directory.
(Expected to find a directory named "Common" in the directory 'E:\VC'.)
Try to update options file: C:\Documents and Settings\jxh\Application Data\MathWorks\MATLAB\R14\compopts.bat
From template: E:\MATLAB\BIN\WIN32\mbuildopts\msvc60compp.bat
Done . . .
--> "E:\Matlab\bin\win32\mwregsvr E:\Matlab\bin\win32\mwcomutil.dll"
DllRegisterServer in E:\Matlab\bin\win32\mwcomutil.dll succeeded
--> "E:\Matlab\bin\win32\mwregsvr E:\Matlab\bin\win32\mwcommgr.dll"
DllRegisterServer in E:\Matlab\bin\win32\mwcommgr.dll succeeded
Matlab终于和VC关联了...遗憾的是 这个都是跟系统非常相关的 一旦系统重装 这些东西都将失效
第二步:在matlab下做COM组件
首先在Matlab编辑器里编辑m函数文件:启动matlab->File->New->M-file 函数内容如图1:该函数无输入输出参数,文件保存为huatu.m。
图1 m函数huatu.m
在matlab下建立COM组件,步骤如下:
1、在matlab command window 输入如下命令:
>> comtool
出现com编辑界面,如图2:
图2 com组件编辑界面
2、新建工程:File->New Project…,如图3。
图2 com组件属性设置
3、设置组件属性,在"Component name"项中填写组件名称"component",这时候会自动生成类"component",在"Class name"项中填写类名称"huatu",如图4,
图4 com组件属性设置1
为了便于区分,选中"Classes"中的"component",点击“remove”按钮,将类component移除,再点击"Add>>"添加新类huatu,结果如图5。点击"OK",接下来出现一个对话框,选择"Yes".
图5 com组件属性设置2
4. 添加文件:选中左边工作区的"huatu",点击Project->Add File…,选择已经编辑好的函数文件huatu.m,如图6。需要注意的是m文件必须是m函数,否则会报错,如果是m脚本文件的话,只需要改为无输入输出参数的m函数即可。
图6 添加m文件
5、生成 com组件:点击Build->COM Object…,结果如图7。
图7 大功告成界面
com组件已经由matlab做好,默认的保存位置为:matlab安装位置\work\component。
第三步:vb、vc等的调用
这一部分讲vb,c#.net下怎么实现调用上一部分我们生成的comtest_1_0.dll(matlab下做的com组件),记得一定先要对mwcomutil.dll进行注册(怎么注册参看上一部分)
1.vb下实现调用
打开或新建一个vb工程,点project-Reference,在弹出来的窗口中找到comtest 1.0 Type Library,将前面的复选框选上,点击ok,此时便将此com组件添加到工程里面去了,此时你可以用对象浏览器看到comtest下有个sgltest类,这个类里面有两个方法im_test,split2rgb,还有个MWFlags成员(这个成员是自动生成的),vb下测试代码如下:
测试huatu方法的代码(不带参数的函数调用):
Dim st As huatu
Set st = New huatu
Call st.huatu
测试split2rgb方法的代码(带参数的函数调用):
Dim st As sgltest
Set st = New sgltest
Dim h As Variant, w As Variant, r As Variant, g As Variant, b As Variant, filename As Variant
filename = "c:\\1.jpg"
Call st.split2rgb(5, h, w, r, g, b, filename)
可见matlab下函数的输入输出参数在com组件里全是variant型的变量,测试大获成功,结果就跟matlab下运行的一摸一样,爽
2.c#.net下实现调用
打开或新建一个c#项目(我采用的是vs.net编辑器),选中右边的解决方案资源管理器中的引用,点鼠标右键,选添加引用,在弹出来的窗口中选com,然后也找到comtest_1_0.dll,点选择,然后确定就可,此时此com组件也添加到工程里面去了,同样我们可以选择对象浏览器来看comtest及下面的sgltest类,c#测试项目如下:
测试im_test方法的代码:
comtest.sgltestClass st=new comtest.sgltestClass();
st.im_test();
测试split2rgb方法的代码:
comtest.sgltestClass st=new comtest.sgltestClass();
object h=null,w=null,r=null,g=null,b=null;
object filename="c:\\1.jpg";
st.split2rgb(5,ref h,ref w,ref r,ref g,ref b,filename);
可见输入参数是ref object型的,而输出参数是object型的,测试同样大获成功,与matlab下运行的结果一摸一样,爽呆了。
3.vc下调用
这一部分讲vc下实现调用第一部分我们生成的comtest_1_0.dll,同样要记得先对mwcomutil.dll进行注册(怎么注册参看第一部分),vb和.net下实现对com组件的调用很简单,而vc下实现这一步我可是摸索了好几天(主要是vc用的不好)
(1).先做一些准备工作,用ole viewer工具
开始--程序--Microsoft visual studio6.0--Microsoft visual studio6.0 Tools--OLE viewer(这个工具也可以通过在vc下点Tools--OLE/COM Object Viewer来打开,在Ole viewer工具里,在右边选择Type libraries,将他展开,找到comtest 1.0 Type Library,选中它,点鼠标右键,选view,便又弹出一窗口,点工具栏上的save按钮,分别将他保存为comtest_1_0.h,comtest_1_0.c(也可以存为comtest_1_0.Idl接口文件),我们就可以通过这两个文件实现对comtest_1_0.dll调用
(2).vc下调用
新建或打开一个vc工程,注意,此时不用对编译器进行任何设置(而用mcc生成的dll我们么设置一大堆,我这儿只设置了Precompiled headers,选Automatic use of precompiled headers,写上stdafx.h),将comtest_1_0.h和comtest_1_0.c加入工程,并复制一个comtest_1_0.dll到工程目录下,由于comtest_1_0.dll还要用到mwcomutil.dll,所以将
(将这两个文件拷贝入工程路径下,如果设置了library path,可以不加)
此时可以通过classView看到多出了_IID、IMWUtil,Isgltest类,Isgltest就是我们在matlab下建起来的sgltest类
vc下代码如下
//这几个是引入dll和头文件
#import "mwcomutil.dll"
#import "comtest_1_0.DLL"
#include "mwcomutil.h"
#include "comtest_1_0.h"
#include "comutil.h" //此文件是用来处理由char *向VARIANT类型的转换
测试im_test方法的代码:
if(FAILED(CoInitialize(NULL))) //初始化调用com
{
AfxMessageBox("unable to initialize COM");
}
Isgltest *st=NULL;
//创建一个com组件,CLSID_sgltest和IID_Isgltest可以从comtest_1_0.h和comtest_1_0.c里找到
HRESULT hr=CoCreateInstance(CLSID_sgltest,NULL,CLSCTX_ALL,IID_Isgltest,(void **)&st);
if(SUCCEEDED(hr))
{
st->im_test();
AfxMessageBox("succeed");
st->Release();
}
else
{
AfxMessageBox("unsucceed");
}
如果你的vc工程是console project的话,上述的AfxMessageBox可改成printf或cout,
测试split2rgb方法的代码(类型转换我参照visual c的精华区也转换成功了)
if(FAILED(CoInitialize(NULL)))
{
AfxMessageBox("unable to initialize COM");
}
Isgltest *st=NULL;
HRESULT hr=CoCreateInstance(CLSID_sgltest,NULL,CLSCTX_ALL,IID_Isgltest,(void **)&st);
VARIANT m,n,r,g,b,filename;
VariantInit(&m);
VariantInit(&n);
VariantInit(&r);
VariantInit(&g);
VariantInit(&b);
VariantInit(&filename);
filename.vt=VT_BSTR;
filename.bstrVal=_com_util::ConvertStringToBSTR("C:\\1.jpg");
if(SUCCEEDED(hr))
{
st->split2rgb(5,m,n,r,g,b,filename);
st->Release();
AfxMessageBox("succeed");
}
else
{
AfxMessageBox("unsucceed");
}
同样,运行结果与matlab下的结果一摸一样,记得我们的im_test里面可是使用了imshow阿,以前用mcc生成的程序中用它可是有错哦,爽呆了。
关于VC下用com组件及其类型的转变请参看msdn及其Visual C的精华区。
第4步:.打包:
combuilder系列可以结尾了
在matlab下的workspace里打comtool,点file-open project将我们先前建好的comtest.cbl工程文件打开,再点
component--package component就实现了打包,此时到comtest\distrib文件夹里看,生成的comtest.exe就是打包后的解压程序,双击它会解压出一些文件,再点击解压出来的_install.bat就可以实现安装(按他的步骤去做就行了)
最后:优缺点评注
这几天用这个combuilder在vc下调用成功时,优点如下:
1.做出来的是com,通用的,任何编译器只要支持com,就可以实现调用,想c++ builder,Delphi等的,我想只要按照调用com组件去做,也能成功的
2.支持imshow等一些原来混编用不了的函数,对图形库的支持也比以前强(这些还需各位大侠共同测试)
3.实现方法简单,没有像以前混编还要设置一大堆东东
4.能够在matlab下写自己的类,并为自己的类编写成员、方法和事件,管理工程也方
便(这个有点像vc、vb下管理工程一样)
用的太爽了,一下子还不知道怎么写缺点了,^0^,我想缺点还需大家一起用来找出
我这儿说一个缺点,感觉它的参数全是VARIANT型的,不怎么方便
后期补充:
补充:
(1)vc中的数组和com中的VARIANT变量的相互转换
用一个例子说明一下,
首先用matlab的m文件描述一下例子中com组件的功能:
function y=hehe(x)
y=x*2;
把该文件保存为hehe.m
用combuilder中建立工程comparatest,加入类paratest,
然后加入文件hehe.m,再build成为com组件。
下面是vc中的代码:
#include "stdafx.h"
#include "stdio.h"
#import "mwcomutil.dll"
#import "comtest2_1_0.DLL"
#include "mwcomutil.h"
#include "comtest2_1_0.h"
#include "comutil.h"
int main(int argc, char* argv[])
{
double a[4]={1,2,3,4};
int i=4;
if(FAILED(CoInitialize(NULL))) //初始化调用com
{
printf("unable to initialize COM");
}
VARIANT x,y;
VariantInit(&x);
VariantInit(&y);
x.vt=VT_R8|VT_ARRAY;//声明x的类型为VT_ARRAY,
//Array中的元素为double型
SAFEARRAYBOUND rgsabound[1];
rgsabound[0].cElements=4;//元素的个数
rgsabound[0].lLbound=0; //矩阵索引的下界
x.parray=SafeArrayCreate(VT_R8,1,rgsabound);//该函数新建
//一个SafeArray,并把这个SafeArray的描述
//符的指针传给x.parray。
x.parray->pvData=http://blog.soso.com/qz.q/a;
Iparatest *st=NULL;
//创建一个com组件,CLSID_paratest和IID_Iparatest可以从
//comparatest2_1_0.h和comparatest2_1_0.c里找到
HRESULT hr=CoCreateInstance(CLSID_paratest,NULL,CLSCTX_ALL,
IID_Iparatest,(void **)&st);
if(SUCCEEDED(hr))
{
st->hehe(1,&y,x);
memcpy(a,y.parray->pvData,4*sizeof(double));
//当matlab文件中返回的矩阵y是实数行的时候,com组件
//把得到的y的值存放再y.parray->pvData所指向的内存区域。
printf("%f\n%f\n%f\n%f\n",a[0],a[1],a[2],a[3]);
printf("succeed");
st->Release();
}
else
{
printf("unsucceed");
}
return 0;
}
上面的方法解决了实矩阵参数在com组件和vc之间的传递,应该也能用到其他
类型的矩阵,比如字符和整型的矩阵。但是如果com组件是由matlab combuilder
编译m文件得到的,而且m文件所返回的矩阵是复数型的,就不行了。因为好像
这时返回的矩阵并不是如上所述保存在y.parray中,至于到底保存在什么地方
就有待于大牛们把它找出来了,反正俺琢磨了一整天也没有一点头绪:(
(2).vb,.net中的数组和com中的VARIANT变量的相互转换
vb和.net变量的相互转换也很简单,下面举例简单说一下:
在我们前面的sgltest里面增加一个函数叫y=paratest(x),x,y为输入输出,都为矩阵
1.vb下:
Dim st As sgltest
Set st = New sgltest
Dim x(2) As Variant, y As Variant
x(0) = 3#
x(1) = 5#
x(2) = 6#
Call st.paratest(1, y, x)
y(1,0),y(1,1),y(1,2)就是输出的数组
2..net下:
comtest.sgltestClass st=new comtest.sgltestClass();
object y=null;
object[] x;
x=new Object[3];
x[0]=2.0;
x[1]=3.0;
x[2]=4.0;
pt.para_test(1,ref y,x);
y[0,0],y[0,1],y[0,2]就是输出的数组
实例: Matlab与VC混合编程 (用idl或dll来调用com组件)
这儿再提供一种通过Idl或dll来调用com组件的方法(不用生成*.h和*.c文件)
其实这种方法比通过生成.h和.c文件来调用要简单一些:),还用精华区的例子
1.通过ole/com object生成idl文件,将此idl文件加入工程,点菜单build-complie
comtest_1_0.tlb,生成tlb文件
2.打开classwizard,点右边的add class-from a type library class,选中刚生成的
comtest_1_0.tlb(应该在debug\目录下),其实这儿也可以直接选择用matlab的combuilder
生成的comtest_1_0.dll(这样就省去了第一步),后面将出现生成class的一些对话框,照
提示去做就可以了,这样就生成了comtest_1_0.h和comtest_1_0.cpp,多了一个Isgltest
类:)
3.测试代码如下:
头文件中只需添加:
#include "comtest_1_0.h"
测试代码:
Isgltest st;
AfxOleInit();
if(st.CreateDispatch(_T("comtest.sgltest")))
{
st.im_test();
AfxMessageBox("Haha,Succeeded");
st.ReleaseDispatch();
}
else
AfxMessageBox("UnSucceeded");
上述代码的具体意义参看msdn,我也是刚刚摸索到:)
4.combuilder与vc混编中复数类型的输出(By LPCTSTR)
今天瞎捣鼓了一下,在前辈们的基础上解决了这个问题;)
调用com的方法和前面的几位略有不同,个人感觉比他们的简单、正规一点 ;)
step 1 建立m文件,build成com
m文件写的很简单
function cplx = getcplx()
cplx = 1+2i
方便后面看代码,写出我建立com工程时组建名称:AMyCom 类:MyTst
step 2 导出必要的头文件
1.打开OLE viewer (vc6.0菜单:tools--〉OLE/COM Object Viewer
2.OLE viewer 菜单:file-->view TypeLib
3.打开combuilder生成的dll:AMycom_1_0.dll
4.File-->save as 选择生成 .h文件
5.将生成的头文件拷到vc工程路径下
6.重复以上步骤生成mwcomutil.dll的头文件
step 3 vc下的简单测试源代码如下:
#include
#include "stdio.h"
#include "mwcomutil.h"
#include "Amycom_1_0.h"
void main()
{
CoInitialize(NULL); //初始化com
//创建Com实例
CLSID CLSID_MyTst;
CLSIDFromProgID(L"AMyCom.MyTst.1_0",&CLSID_MyTst);
//这里的ProgID可以在combiulder的component->component info里面看到
//或者搜索注册表得到
IID IID_IMyTst = __uuidof(IMyTst);
IMyTst* pMyTst = NULL;
CoCreateInstance(CLSID_MyTst,NULL,CLSCTX_ALL,IID_IMyTst,(void**) &pMyTst
);
////////
VARIANT r[5];
for (int i=0; i<5; i++)
{
VariantInit(&r);
}
pMyTst->getcplx(1,&r[0]); //调用函数接口
IMWComplex* pTemp = (IMWComplex*)r[0].pdispVal;//复数类型的接口
pTemp->get_Real(&r[1]);
pTemp->get_Imag(&r[2]);
double dr = r[1].dblVal; //获取实部
double img = r[2].dblVal; //获取虚部
printf("real : %f\nimg : %f\n",dr,img); //
getchar();
CoUninitialize();
return;
}
个人感觉matlab的一部分比较复杂的数据类型都做成了com组建封装在mwcomutil.dll中,当
用OLE viewer打开该文件时可以看到好多接口,其中包括IWMComplex即复数类型的接口,co
m参数的传递通过VARIANT类型来实现,可以在MSDN上查到详尽的用法