基于COM技术的MATLAB和VC实现混编

1、com组件的语言无关性：com规范的定义不依赖于特定的语言。例如：用java开发的com组件对象，可以在 c+语言中被使用。1、matlabcom编译器用法matlab com编译器通过将m程序转为c/c+源程序，然后再调用外部c+编 译器来实现编译、生成com组件。在使用com编译器之前，需要保证计算机安装了 matlab编译器和c+编译器。(1) 运行matlab com编译器，耑要输入命令 » mbuild -setup(2) 之后会出现如下提示：welcome to mbuild -setup. this utility will help you set up a defa

2、ult compiler. for a list of supported compilers, see please choose your compiler for building shared libraries or com components:would you like mbuild to locate installed compilers y/n?(是否允l午 mbuild 加载已经安装的编译器)note：直接按enter键即可(3) 之后会列出计算机上安装的所有编译器：select a compiler:1 lcc-win32 c 2.4.1 in d:matlabins

3、tallsyslcc21 microsoft visual c+ 2010 in d:programfilesmicrosoftvisualstudio 10.00 nonenote：由于我安装的是vs2010,所以直接在matlab命令窗口输入2.(4) 之后会让确定所选择的编译器是否正确：please verify your choices:compiler: microsoft visual c+ 2010location: d:programfilesmicrosoftvisualstudio 10.0are these correct y/n?note：直接按enter键即可(5)

4、执行成功后会看到以下提示 trying to update options file:c:usersadministratorappdataroamingmathworksmatlabr2012bcompopts.bat from template:d:matlabinstallbinwin32mbuildoptsmsvcl00compp.bat done.2、用matlab生成com组件matlab com编译器是一个图形界面编译器。(1)先写好matlab code, m文件必须是函数。 例如：这是一个绘图函数function = pls_plot ( yresiduals )figure

5、 ();stem(yresiduals)在matlab命令窗口输入deploytoolxlabel (1 observation 1); ylabel(1 residual'); end(2) 启动matlab com编译器,matlab r2o12bhomeli d frdfles-sjei ,/openvariawe run andtmeq set panew new open compareimport savesimufcnk lavouiscrpt data workspace clear workspacepreferences fo么 communty hep reque

6、st supportpb cvadiaoj pmnrsimuuwenviromm-mt呢 sources c: users administrator desktop mixprogramdemo mfilesmatlab当前目录smulnk layout ctear commands library parallel i new to matlab? watch this video, sec examples, or read getting started, » deplytoolundefined function or variable 'deplytool*.na

7、memain.m3a matlab.mat的所有文件plslot.msep.m q plsregress.mdid you mean:人 deploytool!deployment project启动com编译器name: <jp>emo|prj4呈名称location: c:u5er5administratordc5lctopmixprogramdcmom_files type：m generic com component 注琶别选择措!okcancel启动沿，出现如下的图形界面编译器，点击add classes按钮generic com componentgeneric co

8、m component5 plsdemo.prj q js plsdemo.prj 沒 i容buildbuildclassesplace functions here that you want to access from other programs (i.e., interface functions).add classesclasses classl add filesadd classes(3)点击add files向工程中添加m文件，如果已经把m文件所在的目录设置为了matlab工作目录，那么点击add files按钮就会直接打开当前r录。或者从current folder而板屮

9、直接拖拽到工程屮。:妇 « desktop mixprogramdemo m.filescurrent folder®name鬱 main.m出 matlab.mat轉 pls.m截 pis一plot.mgeneric com componentcohplsdemo.prjpls_plotjnsep.mplsdemo.prj q plsregress.mclasses（£）classl盪 pls.m權 plsjolotmp 11madd filesadd classesbuild packagecommand windowpls_plot_msep(recomme

10、n.note：因为在我的c+程序中，我只用了三个函数，所以只放了三个函数文件进去(4)设置工程编译选项和工程封装选项generic com componentplsdemo.prjcommabuildclassespackage（£）classl 截 pls.m q pis一plotmpls_plotjnsep.madd filesadd classe-new project. open project. rename projectadd classadd mcrq build i召 package（3* settings（?） help(5)这里需要注意一点！ ！note： to

11、olboxes on path设置页，主要用來指出编译时需要搜索哪® toolbox.因为 matlab的库函数是以toolbox来归类的。这里选择的toolbox越少，编译的速度就越快， 也会减少最后生成文件的空间。我写程序的时候并不能确定知道我调用的库函数到底归属哪 一个toolbox因此所有toolbox我都选上了。(6)编译工程generic com componentw>cdmplsdemo.prjbuild packagenote：这个过程可能会比较慢!(7)发布com文件冰 packagepackage generation finished.v show det

12、ail(8)创建组件命令窗口输入：mcc -i pls.m note：此过程可能会很慢。 acurrent folder names plsdemoyi main.m 田 matlab.matpls.mq pls plot.m c: users administratordesktop mixprogramdemo ®ct new to matlab? watccommand windowplsj3lot.msep.rn>> deplytool undefined functiondid you mean:» deploy!ool盈 plsdemo.prj b

13、plsdemo_pkg.exe q plsregress.ma» mcc 一1 pis. mname田 plsdemonote：执行完成后，会多出一些文件，其中红色框的三个文件是我们耑要的。 （9）同样的方法，对其他几个需要用到的阑数文件进行转换争 a异 c：current foldername 田 plsdemo"l main.m ffl matlab.mat 2)pls.mpis;plsplot.msep.m plsdemo.prj 2 plsdemo_pkg.exe q plsregress.mmain.mes matlab.matmccexcludedfilesjo

14、g£)pls.c pls,d1t pls.exp_ pls.exports i zl pls.h ii |"q pls.m plsjalot.m一 pls_plot_msep.mplsdemo.prj plsdemo.pkg.exe plsregress.mreadme.txtiolution exploreradditional dependencies3、c+调用com组件 (1)新建一个mfc工程(2)把之前生成的几个文件，复制到当前工作fi录，并添加进来® i. iasolution 'plsr' (1 project)solution i

15、tems li pis.dll jt pls.hpis.lib函 pis一plotdll jt plsjolothpls_plotlib pls_plot_msep.dll pls_plotmsep.h pls_plot_msep.libt> 酈 plsr(3) 添加头文件路径和库阑数路径(之前有发给你，没有的话安装matlab编译器mcr也会有 include 和 lib 文件夹)其屮 library files 添加至 libwin32microsoft(4) 在linker选项卡input中添加(5) 头文件include "stdafx. h" include

16、 "plsr. h" include "plsrdlg. h"include /zafxdialogex. hzz /以下为添加代码/ >1 /，7、，了、#t xr* #t% >tx #t%，、7w，丁、'、xtx，了、xt%，、，丁、,、xt%，、，丁、，丁、，丁、xy%，丁、4、t%'t、include "mat. h" include <stdio. h>include string.h include <tchar.h>include "pis. h"

17、ftinclude "pis plot.h" include "pls plot msep. h define bufsize 256/ /*y*y*/#ifdef _debug define new debug_new #cndif(6) 为各个按钮添加事件响应a)输入数据按钮(这里才用的是matlab中读取mat文件的相关函数) void cplsrdlg:onbnclickedxdata()/ todo: add your control notification handler code herecfiledialog dlgfileopen(true);

18、matpile *pmatfile = null; p.mxarray = null; pmyarray = null;dlgfil eopen. m ofn. ipstrtitle = t("打开文件");dlgei1eopen. m ofn. ipstrfil ter = _t("mat files(*. mat)0*. mat0al1files (*) 0*. *0(f);cstring msg; double *dmatx, *dmaty; i nt m, n;if(dlgfileopen. domodal() = idok)cstring str = d

19、lgfileopen. getpathname(); pmatfile = matopen(lpstr)(lpctstr)str, r); pmxarray = matgetvariable(pmatfile, "nir"); pmyarray 二 matgetvariable(pmatfile, octane)； m = mxgetm(pmxarray);n 二 mxgetn(pmxarray); dmatx = new double(m*n);dmatx = (double*)mxgetdata(pmxarray);:、1< 、1< 、1<m 二 mx

20、getm(pmyarray);n = mxgetn(pmyarray);dmaty = new double(m*n);dmaty = (doub1c*)mxgctdata(pmyarray);:kix kl* kix/f/matclose(pmatfile);messagebox(_t("数据读取完毕");b) plsr按钮(该按钮实现plsr ©法)void cplsrdlg:onbnclickcdstart()/mlfpls(int nargout, mxarray* xloadings, mxarray* yloadings, mxarray* xscor

21、es, mxarray*氺 yscores, mxarray* beta, mxarray*氺 pctvar, nixarray* mse, mxarray* stats, mxarray* x, mxarray* y);/note：这个足pis. h文件里面生成的对应函数。/int nargout：是需要输出参数的个数，这里我设置了 10个参数的输出。所以选择最后选择了 10, 如果这个参数小于你设買的参数个数，那么只输出最前面的几个参数。mxarray* x = pmxarray; mxarray* y = pmyarray;/pmxarray; pmyarray;就定第一步导入数据屮己经

22、赋值了 mxarray* xloadings = null; mxarray* yloadings = null; mxarray* xscores = null; mxarray* yscores = null; mxarray* beta = null: mxarray* mse = null; mxarray* stats = null; mxarray* xresiduals = null;yresiduals = null; rccommcndn = null; pctvar = null;inlfpls (10, &xloadings, &yloadings, &a

23、mp;xscores, &yscores, &beta, &pctvar, &mse, &xresiduals, &y residuals, &recc)mmendn, x, y);mxdcstroyarray(pmxarray); mxdestroyarray(pmyarray);messagcbox (_t(z，plsr 处理完毕)；(c)二个绘图按钮void cplsrdlg:onbnclickedyresiduals() nilfpls_plot (yresiduals); mclwaiteorfigurestodie(null)

24、;void cplsrdlg:onbnclickedmsep()mlfpls plot msep(reconuiiendn, pctvar); mclwaitforfigurestodie(null);在对话框初始化函数bool cplsrdlg: :oninitdialog()中我们需要添加一下代码: bool cplsrdlg:oninitdialog()cdialogex:oninitdialog();/ add 八bout menu item to system menu./ 1dm_aboutbox must be in the system command range.assert(idm aboutbox & oxfffo) = idm aboutbox);assert(tdm_aboutbox < oxeooo);cmenu* psysmenu = getsystemmenu(false); if (psysmenu != null)bool bnamevalid;cstring straboutmenu;bnamevalid = straboutmenu. loadstring(ids_aboutbox);assert(bnamevalid);if (!strab