unit1.~pas

实现Delphi与matlab的交互的例子。实现了Delphi调用matlab的自动化服务功能

unit Unit1;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls,comobj;
type
  TForm1 = class(TForm)
    Button2: TButton;
    Image1: TImage;
    Button3: TButton;
    Button4: TButton;
    Edit1: TEdit;
    Button5: TButton;
    Edit2: TEdit;
    Button6: TButton;
    Button7: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    matlab: olevariant;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation
{$R *.dfm}


procedure TForm1.Button2Click(Sender: TObject);
begin
 matlab.quit;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 close;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  matlab.PutCharArray('str', 'base',edit1.Text);
end;

procedure TForm1.Button5Click(Sender: TObject);
var
  S:   String;
begin
   S:=matlab.GetCharArray('str', 'base');
   edit2.Text:=S;
end;

procedure TForm1.Button6Click(Sender: TObject);
var
  M: variant;
  i: integer;
begin
  M:=VarArrayCreate([0,100], varInteger);
  for i:=0 to 100 do
  begin
        M[i]:=i*20;
  end;
  matlab.PutWorkspaceData('M', 'base', M);
end;

procedure TForm1.Button7Click(Sender: TObject);
var
  result : String;
begin
  result := Matlab.Execute('whos base');
  showmessage(result);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  matlab:=CreateoleObject('Matlab.Application');
  matlab.minimizecommandwindow;
end;

end.