Delhpi写MTS初步_Delphi

首先，选择File|New, 选择页面ActiveX，选择ActiveX Library，点击OK，生成一个ActiveX的项目。然后选择 File|New,选择Multitier，选择MTS DataModule或者MTS Object。其中MTS DataModule可以在Module上放数据库链接等控件。而MTS Object没有。选择完毕后，点击OK，弹出对话框要选择类名，输入类名MTSTest。OK。然后保存工程。

打开MTSTest_Tlb.pas，按下F12，弹出接口编辑界面，在类IMTSTest下用右键选择New->Method，改变Method的name为CallTest，在Parameters中增加一个参数，名字随意，类型为BSTR*,Modifier 为 Out,Retval.保存。在实现的单元中就会有一个实现的方法，在方法体中写

result:=’Hello World’;

然后保存工程，如果你安装了mts，用Run | Install Mts Objects.来将类注册到mts中，如果没有安装，用Run | Register Activex Server来注册。关闭工程。

生成一个新的application,将上面的工程中的文件MTSTest_Tlb.pas引入工程，并在Form1的unit中uses.并声明一个类变量：

http://www.gaodaima.com/65640.htmlDelhpi写MTS初步_Delphi

coTest:IMTSTest;

在Form的Create事件中写：

  coTest:=coMTSTest.Create;(coMTSTest.createRemote(‘机器名’))；

Form上放一个按钮，按钮的OnClick事件中写：

  ShowMessage（coTest.CallTest);

单击Run开始运行，点击按钮，就会show一个message“HelloWorld".

欢迎大家阅读《Delhpi写MTS初步_Delphi》,跪求各位点评,若觉得好的话请收藏本文，by 搞代码

喜欢 (0)赏

[搞代码]

分享 (0)