Вот тестовый код:
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComObj, ActiveX, Mathcad_TLB;
type
TForm1 = class(TForm)
edt1: TEdit;
edt2: TEdit;
btn1: TButton;
edt3: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
MC: IMathcadApplication;
WC: IMathcadWorksheets;
WS: IMathcadWorksheet;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
a, b, c: Real;
begin
a := StrToFloat(edt1.Text);
b := StrToFloat(edt2.Text);
MC := CreateOleObject('Mathcad.Application') as IMathcadApplication;
WC := MC.Worksheets;
WS := WC.Open(ExtractFilePath(ParamStr(0)) + 'test.xmcd');
try
try
WS.SetValue('in0', a);
WS.SetValue('in1', b);
WS.Recalculate();
c := (WS.GetValue('out0') as INumericValue).Real;
edt3.Text := FloatToStr(c);
ShowMessage('Готово!');
except
on E: Exception do
ShowMessage(E.Message);
end;
finally
WS.Close(mcDiscardChanges);
MC.Quit(mcDiscardChanges);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
OleInitialize(nil);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
OleUninitialize;
end;
end.
|
В прикреплении проект и файл MathCad'а.
Delphi 2010, MathCad 14.
Смотрите, если есть вопросы - обращайтесь. ;) |
)