振動理論

原創文檔 本文最初發表于VC知識庫

運行環境：VC++ 6.0 MATLAB6.5 Windows XP

　　此方法的實現是在網上各位前輩的基礎上完成的。特別是參考了哈工大振動論壇上的一篇文章,現在，就具體談一下怎么把一個M文件或MEX文件，做成可以脫離MATLAB環境的COM組件，并且被VC++調用。

1. 首先，設置合適的編譯器。在MATLAB命令窗口里敲：>>mbuild –setup，完成編譯器的設置。

>>mbuild –setup
Please choose your compiler for building standalone MATLAB applications:
Would you like mbuild to locate installed compilers [y]/n? y
Select a compiler:
[1] Lcc C version 2.4 in D:\MATLAB6P5\sys\lcc
[2] Microsoft Visual C/C++ version 6.0 in C:\Program Files\Microsoft Visual Studio
[0] None
Compiler: 2
Please verify your choices:
Compiler: Microsoft Visual C/C++ 6.0
Location: C:\Program Files\Microsoft Visual Studio
Are these correct?([y]/n): y
The default options file:
"C:\Documents and Settings\lilixin\Application Data\MathWorks\MATLAB\R13\compopts.bat"
is being updated from D:\MATLAB6P5\BIN\WIN32\mbuildopts\msvc60compp.bat...
--> "D:\MATLAB6p5\bin\win32\mwregsvr D:\MATLAB6p5\bin\win32\mwcomutil.dll"
DllRegisterServer in D:\MATLAB6p5\bin\win32\mwcomutil.dll succeeded
--> "D:\MATLAB6p5\bin\win32\mwregsvr D:\MATLAB6p5\bin\win32\mwcommgr.dll"
DllRegisterServer in D:\MATLAB6p5\bin\win32\mwcommgr.dll succeeded
Installing the MATLAB Visual Studio add-in ...
Updated C:\Program Files\Microsoft Visual Studio\common\msdev98\template\MATLABWizard.awx
from D:\MATLAB6P5\BIN\WIN32\MATLABWizard.awx
Updated C:\Program Files\Microsoft Visual Studio\common\msdev98\template\MATLABWizard.hlp
from D:\MATLAB6P5\BIN\WIN32\MATLABWizard.hlp
Updated C:\Program Files\Microsoft Visual Studio\common\msdev98\addins\MATLABAddin.dll
from D:\MATLAB6P5\BIN\WIN32\MATLABAddin.dll
Merged D:\MATLAB6P5\BIN\WIN32\usertype.dat
with C:\Program Files\Microsoft Visual Studio\common\msdev98\bin\usertype.dat 

2. 設置系統路徑。我的電腦->屬性->高級->環境變量->系統變量->Path選項，增加以下路徑：
頭文件：
d:\MATLAB6p5\extern\include；
庫：
d:\MATLAB6p5\extern\lib\win32\microsoft\msvc60；
DLL：
d:\MATLAB6p5\bin\win32

3. 做一個簡單的M函數（只能是函數不能是文件）。文件名和函數名一致。運行并測試此文件的正確性。
function [out]=arraytest(A)
out=det(A);
B=[A(1,1),A(1,2),A(2,1),A(2,2)]%本來是plot(A)，剛開始沒能把數據傳遞好，做了個B陣，做測試用的，
%因為com做好了，就沒有改了，要不有很多垃圾
plot(B);

4. 在命令窗口敲comtool，出現com組件builder。選擇FILE選項->New Project選項。出現以下界面。

Component name選項：設置com組件的名稱，注意不要和上面添加的m文件重名。
Class name選項：設置類名稱MyArraytest。一般將鼠標點擊空白位置，系統會自動生成類名。
Project version選項：版本號。系統默認為1.0，將來要修改或添加其他函數時，可以修改此選項為2.0，3.0等。
Project directory選項：工程所在目錄。
Complier options選項：編譯器配置選項，全部選中。
最后單擊OK。系統會出現對話框，問你是否創立工程目錄，你選YES。

5. 單擊Project Files->plotclass->M-files，然后選中comtool菜單Project->Add File選項，添加上面寫好的plot_test M函數，當然，可以按需要添加更多的M或MEX函數。

6. 單擊Build按鈕，選中Com Object選項，這時com-builder會幫你自動編譯連接該組件，生成所需要的頭文件，源文件，接口描述文件，動態連接庫文件，等等。在右側Build Status顯示框里給出了編譯的過程和信息。在菜單Component->Component Info里有關于接口、類、庫的信息。在d:\MATLAB6p5\work\Myarraytest文件夾里，出現了兩個子文件夾，distrib和src，這是我們VC中需要用到的文件、庫、資源、接口等。在src\plot_idl_i.c中，有關于com類和com接口的GUID。其中CLSID(類的GUID)在VC編程中需要用到。別急，還有一步打包發布。選擇Component->Package Component，系統就會自己幫你打包了。打包文件在distrib文件夾中有Myarraytest可執行文件。拷貝d:\MATLAB6p5\work\Myarraytest文件夾下所有文件，在另外一個機器上，雙擊Myarraytest可執行程序，注冊com組件，。你的程序，就可以在其他機器上執行了。

7. 打開VC++編譯器，選擇文件->新建->工程->MFC（exe）->命名（newoletest）-對話框->完成(曾經做個幾個測試程序,沒成功,名字可以自己寫)。刪除確定和取消按鈕，新建一個按鈕，我直接使用了ok按鈕，刪除了取消，把ok按鈕中原來的程序刪掉了。

8. 打開類向導，在 Add Class選項內，選中From a typed library，進入d:\MATLAB6p5\work\Myarraytest\src文件夾，選中myarraytest_idl.tlb文件，點擊打開,OK。這時一個COM類便加入進來了，查看一下為IMyarraytest類。

9. 下面就是OLE調用的基本方法了。首先在 CNewoletestApp類的InitInstance()里添加初始化OLE代碼。

BOOL suc=AfxOleInit(); // 初始化OLE

 if (suc==FALSE)

  {
   ::AfxMessageBox("初始化OLE失敗!"); 
　}

　　其次，在 CNewoletestDlg里包含plot_idl.h頭文件;并從d:\MATLAB6p5\work\Myarraytest\src\myarraytest_idl_i.c中拷貝類的GUID并復制到PlotView.h文件類定義的上面。

#include "myarraytest_idl.h"



const CLSID CLSID_Myarraytest = {0x9C4328EF,0xEA57,0x4D84,{0x9C,0x97,0xDE,0x4B,0xAE,0x02,0x21,0x5F}};

class CNewoletestDlg : public CDialog

{

// Construction

public:

IMyarraytest  pResponse;

.....

}//double a[7][6];是我做其它測試程序用的。

然后，Onok()函數里添加獲得COM指針的函數，代碼如下：

plot.CreateDispatch(CLSID_plotclass,NULL); //創立接口

COleDispatchDriver(); //連接(此句可以不寫)



 pResponse.CreateDispatch(CLSID_Myarraytest,NULL); //創立接口

 COleDispatchDriver(); //連接(此句可以不寫)

 VARIANT x;

 VARIANT y;

  VariantInit(&x); //初始化

  VariantInit(&y);



  x.vt=VT_ARRAY|VT_R8; //類型（數組，雙精度型）



  SAFEARRAYBOUND rgsabound[2];

  rgsabound[0].cElements=2; //數組所含元素數

  rgsabound[0].lLbound=0;   //數組上界

  rgsabound[1].cElements=2; //數組所含元素數
rgsabound[1].lLbound=0;   //數組上界

 //創立數組
x.parray=SafeArrayCreate(VT_R8,2,rgsabound); //創立二維數組

  double b[2][2];

  b[0][0]=20;

  b[0][1]=24;

  b[1][0]=12;

  b[1][1]=15;


//鎖定數組
SafeArrayLock(x.parray);



 //數組傳遞數據
x.parray->pvData=b;


 //調用方法
pResponse.arraytest(0,&y,x);

 //解鎖

  SafeArrayUnlock(x.parray);

 /*

 The most generic MATLAB M-function is function [Y1, Y2, ..., varargout] = foo(X1, X2, ..., varargin)
This function maps directly to the following IDL signature.

HRESULT foo([in] long nargout,

           [in,out] VARIANT* Y1,

            [in,out] VARIANT* Y2, 
           .
           [in,out] VARIANT* varargout,

           [in] VARIANT X1,
[in] VARIANT X2, 
          .. 
           [in] VARIANT varargin);

This IDL function definition is generated by producing a function with the same name as the original M-function and
an argument list containing all inputs and outputs of the original plus one additional parameter, nargout. (nargout
is not produced if you compile an M-function containing no outputs.) When present,
the nargout parameter is an [in] parameter of type long.It is always the first argument in the list.
This parameter allows correct passage of the MATLAB nargout parameter to the compiled M-code.
Following the nargout parameter, the outputs are listed in the order they appear
on the left side of the MATLAB function, and are tagged as [in,out], meaning that they are passed in both directions. The
function inputs are listed next, appearing in the same order as they do on the right side of the original function. All
inputs are tagged as [in] parameters. When present, the optional varargin/varargout parameters are always listed as the
last input parameters and the last output parameters. All parameters other than nargout are passed as COM VARIANT types.
Data Conversion Rules lists the rules for conversion between MATLAB arrays and COM VARIANTs.

 */

// ::AfxMessageBox("調用結束!");
pResponse.DetachDispatch();
pResponse.ReleaseDispatch();

10. 測試。

本文并沒有給出函數調用的返回參數y的后處理，這是本文的一個缺點，我會繼續努力，在數據返回這一方面多做些工作。