Цитата(Snowy @ 11.8.2006, 00:31  ) | | Мне даже примера не надо. Просто скажите - хоть у кого-нить получалось? |
| Код |
unit Unit1;
{MathCad Automation Controller
OLE Automation Controller example for MathCad
Requires:
MathCad 7.02 or later.
Two MathCad doc's named TEST1.MCS and Test2.MCD,
with out0 out1 and out2 vars computed from in0 in1 in2.
All of them are complex numbers.
Instructions:
1.- Uses Unit OLE2, where OLE constants such as VT_Dispatch=9 are defined.
Also uses other OLE units (see Uses clause):
2.- Define variables of Variant type in the VAR section
VAR MCadObject,
in0Re, in0Im, outRe0, outIm0,
in1Re, in1Im, outRe1, outIm1,
in2Re, in2Im, outRe2, outIm2 : Variant;
3.- MathCad object can be inserted in the OLE container interactively
or by program by sending the TOleContainer message :
CreateObjectFromFile(const FileName: string; Iconic: Boolean) with
FileName = FullPathName of MathCad file and
Iconic = False, to display the file contents and not the icon.
oleContainer1.CreateObjectFromFile('c:\TestDir\Test1.mcd',False);
4.- The MathCad object can be interactively activated by Double Clicking
on it or by program by setting to aaManual the TOleContainer property
AutoActivate oleContainer1.AutoActivate = aaManual and executing the
verb oleContainer1.DoVerb(ovShow) to display the object.
Another way of doing this is by executing
oleContainer1.DoVerb(ovPrimary)
5.- Asign the object in OleContainer to a Variant type var;
MCadObject := OleContainer1.OleObject;
6.- Check that the object returned is of VT_DISPATCH type (9)
If VarType(McadObject) = VT_DISPATCH then
label1.Caption := 'OK: Type returned VT_DISPATCH'
Else
Label1.Caption := 'Error: Type returned ' +
IntToStr(VarType(MCadObject));
7.- Set the values of input vars and send the messages to pass input vars,
recalculate the doc and retrieve the out vars.
SetComplex( varName, realPart, imagPart)
Recalculate
GetComplex( varName, realPart, imagPart)
to MCad object.
Display the values of the output vars.
}
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleCtnrs, StdCtrls, ComCtrls, comobj, OleCtrls, OLE2;
type
TMCadAutomationController = class(TForm)
OleContainer1 : TOleContainer;
InsertDoc1 : TButton;
InsertDoc2 : TButton;
CalculateDoc : TButton;
Re : TLabel;
Im : TLabel;
Edit1 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
Edit4 : TEdit;
Edit5 : TEdit;
Edit6 : TEdit;
Edit7 : TEdit;
Edit8 : TEdit;
Edit9 : TEdit;
Edit10 : TEdit;
Edit11 : TEdit;
Edit12 : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
procedure CalculateDocClick(Sender: TObject);
procedure InsertDoc1Click(Sender: TObject);
procedure InsertDoc2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MCadAutomationController : TMCadAutomationController;
MCadObject : Variant;
in0Re, in0Im, in1Re, in1Im, in2Re, in2Im : Variant;
outRe0, outIm0, outRe1, outIm1, outRe2, outIm2 : Variant;
implementation
{$R *.DFM}
procedure TMCadAutomationController.CalculateDocClick(Sender: TObject);
begin
{Set the real and imaginary parts of in0, in1 and in2 vars}
in0Re := StrToFloat (Edit1.text);
in0Im := StrToFloat (Edit4.text);
in1Re := StrToFloat (Edit2.text);
in1Im := StrToFloat (Edit5.text);
in2Re := StrToFloat (Edit3.text);
in2Im := StrToFloat (Edit6.text);
{Pass the values of input vars to MCad object}
MCadObject.SetComplex('in0',in0Re,in0Im);
MCadObject.SetComplex('in1',in1Re,in1Im);
MCadObject.SetComplex('in2',in2Re,in2Im);
{Recalculate the MCad doc}
MCadObject.Recalculate;
{Retrieve the values calculated of output vars out0, put1 and out2}
MCadObject.GetComplex('out0',outRe0,outIm0);
MCadObject.GetComplex('out1',outRe1,outIm1);
MCadObject.GetComplex('out2',outRe2,outIm2);
{Display the values of output vars}
Edit7.text := FloatToStr(outRe0);
Edit10.text := FloatToStr(outIm0);
Edit8.text := FloatToStr(outRe1);
Edit11.text := FloatToStr(outIm1);
Edit9.text := FloatToStr(outRe2);
Edit12.text := FloatToStr(outIm2);
end;
procedure TMCadAutomationController.InsertDoc1Click(Sender: TObject);
begin
Label9.Caption := 'Wait: Inserting Doc';
oleContainer1.CreateObjectFromFile('i:Test1.mcd',False);
oleContainer1.AutoActivate := aaManual;
oleContainer1.DoVerb(ovShow);
MCadObject := OleContainer1.OleObject;
If VarType(McadObject) = VT_DISPATCH then
{OK. Object returned is of IDispatch or dispinterface type}
Label9.Caption := 'OK: Type returned VT_DISPATCH'
Else
{Error. Failure to connect to OLE Automation Server}
Label9.Caption := 'Error: Type returned '
+ IntToStr (VarType (MCadObject));
end;
procedure TMCadAutomationController.InsertDoc2Click(Sender: TObject);
begin
Label9.Caption := 'Wait: Inserting Doc';
oleContainer1.CreateObjectFromFile('i:Test2.mcd',False);
oleContainer1.AutoActivate := aaManual;
oleContainer1.DoVerb(ovShow);
MCadObject := OleContainer1.OleObject;
If VarType(McadObject) = VT_DISPATCH then
{OK. Object returned is of IDispatch or dispinterface type}
Label9.Caption := 'OK: Type returned VT_DISPATCH'
Else
{Error. Failure to connect to OLE Automation Server}
Label9.Caption := 'Error: Type returned '
+ IntToStr (VarType (MCadObject));
end;
end.
|
Взято отсюда
http://delphi.about.com/gi/dynamic/offsite.htm?zi=1/XJ&sdn=delphi&zu=http%3A%2F%2Fwww.djpate.freeserve.co.uk%2FAutomation.htm |
Тогда покажите мне пальцем человека, который бы хотя бы сказал, что у него хоть что-то получилось 