如何新建中间层

新建中间层：
1.新建ActiveX中的Active Library工程
2.新建Multitier中的Remote Data Module，为Module起个名Test。
3.点击View->Type Library，在ITest接口下新建方法，在Parameters中添加输入和输出的参数。
 然后，更新->注册（在界面的菜单栏中），程序会自动生成ProjectName.dll。
4.运行dcomcnfg命令，在COM+应用程序中新建‘空应用程序’。
5.将dll拉入新建的COM+程序的‘组件’中。

测试中间层：
1.点击Project->Import Type Library，Add中间层的dll，然后点击Create Unit，将生成ProjectName_TLB。
2.在客户机上注册regsvr32 ProjectName.dll
3.新建Application，在Form中添加一个Button。新建Button的Click方法。添加如下代码：
procedure TForm1.Button1Click(Sender: TObject);
var
  IAPS: IDcom;
  n: Single;
begin
  IAPS := CoDcom.CreateRemote('127.0.0.1'); //新建COM的对象。
  n := IAPS.Add(1.2,100);    //调用中间层接口的方法。
  ShowMessage(FloatToStr(n));  
end;
4.运行即可。