如何在Delphi中调用Matlab(ActiveX)?

7).如何在Delphi中调用Matlab(ActiveX)?
:#FangQ(Qianqian.Fang@dartmouth.edu), 2002/6/22.BigGreen/MathTools#

        从这个地址下载例子：
        http://www.djpate.freeserve.co.uk/Matlab.htm

        还有一种方法是利用DelphiMEX，下载地址：
        http://Radio-BIP.qc.ca/DelphiMEX/DelphiMEX.html

        下面是把Alex Conradie的例子中选了一些主要的语句：

        var

         V : Variant;
         MReal : OleVariant;
         MImage : OleVariant;

        begin
         i,j : integer;

         MReal  := VarArrayCreate([0, 1, 0, 3], varDouble);
         MImage := VarArrayCreate([0,0,0,0], varDouble);

         V := CreateOLEObject('Matlab.Application');
         V.Execute('a=[1 2 3 4; 5 6 7 8]');
         V.GetFullMatrix('a','base',VarArrayRef(MReal),VararrayRef(MImage));
         for i := 0 to 1 do
          for j := 0 to 3 do
           Stringgrid1.Cells[j,i] := MReal[i,j];

         V.Execute('peaks');

         MReal  := VarArrayCreate([0, 1, 0, 3], varDouble);
         MImage := VarArrayCreate([0,0,0,0], varDouble);

         for i := 0 to 1 do
          for j := 0 to 3 do
           MReal[i,j] := i+4;

          V.PutFullmatrix('b','base',VarArrayRef(MReal),VararrayRef(MImage));

        end

 

发信人: hyphone (每天爱你多一些), 信区: MathTools      
标  题: Re: 请问在delphi中怎样调用matlab的Activex服务
发信站: BBS 水木清华站 (Sat Jun  1 13:34:48 2002)

//C++Builder中是这样：
Variant Matlab;
...
  Matlab=CreateOleObject("Matlab.Application");
  Matlab.Exec(Procedure("help"));
Matlab=Unassigned;
//Delphi中应该是这样
Matlab:Variant;
....
Matlab := CreateOleObject('Matlab.Application');
Matlab.Execute('help');
Matlab := Unassigned;

【 在 chengpp (ly) 的大作中提到: 】
: 我想在delphi编的应用程序中，
: 调用matlab的ActiveX的服务，
: 就是调用matlab的绘图功能
: 应该怎么做那？
: 请教各位高手

》》》》》》》》》》》》》》》》》

在Delphi中调用matlab的例子

var
        V : Variant;
        MReal : OleVariant;
        MImage : OleVariant;
begin
        i,j : integer;
        MReal := VarArrayCreate([0, 1, 0, 3], varDouble);
        MImage := VarArrayCreate([0,0,0,0], varDouble);
        V := CreateOLEObject('Matlab.Application');
        V.Execute('a=[1 2 3 4; 5 6 7 8]');
        V.GetFullMatrix('a','base',VarArrayRef(MReal),VararrayRef(MImage));
        for i := 0 to 1 do
        for j := 0 to 3 do
        Stringgrid1.Cells[j,i] := MReal[i,j];
        V.Execute('peaks');
        MReal := VarArrayCreate([0, 1, 0, 3], varDouble);
        MImage := VarArrayCreate([0,0,0,0], varDouble);
        for i := 0 to 1 do
        for j := 0 to 3 do
        MReal[i,j] := i+4;
        V.PutFullmatrix('b','base',VarArrayRef(MReal),VararrayRef(MImage));
end 


 

点评：这都不是我想象中最好的方法，最好的还是com