Delhpi写MTS初步
【打印文章】
首先，选择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.并声明一个类变量：
coTest:IMTSTest;
在Form的Create事件中写：
coTest:=coMTSTest.Create;(coMTSTest.createRemote('机器名'))；
Form上放一个按钮，按钮的OnClick事件中写：
ShowMessage（coTest.CallTest);
单击Run开始运行，点击按钮，就会show一个message“HelloWorld".
打开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.并声明一个类变量：
coTest:IMTSTest;
在Form的Create事件中写：
coTest:=coMTSTest.Create;(coMTSTest.createRemote('机器名'))；
Form上放一个按钮，按钮的OnClick事件中写：
ShowMessage（coTest.CallTest);
单击Run开始运行，点击按钮，就会show一个message“HelloWorld".
本栏文章均来自于互联网，版权归原作者和各发布网站所有，本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )
【编程爱好者论坛】