delphi midas编程

《delphi midas编程》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、MIDAS编程多层分布式应用服务（MultitieredDistributedApplicationServices，即MIDAS）套件是一套组件，使用这些组件可以很容易地建立多层的客户-服务器数据库应用程序。这也是公司愿意为Delphi企业版支付数千美元的原因之一，而它确实物有所值。如果您购买了个人版本的Delphi，那么必须再购买企业版才能得到MIDAS组件和相应的动态链接库（DLL）。如果您使用的是标准版或专业版，那么本节中的例子将无法使用。但您仍然可以阅读一下本节，来看一看Delphi企业版是否适合您。对另一些人来说，本节将通过例子来演示如何使用MIDAS的一些核心功能。

2、通过示范如何利用一些核心控件来建立客户和服务器程序，对这些功能进行了演示；共有三个例子示范了这些控件：一个动态查询程序，它使用DCOM连接到同一台计算机和远程机器上的服务器，另一个程序示范了出错情况下的恢复，还有一个公文包程序的例子。请记住：客户程序通常有图形用户界面，并且与用户进行交互。而服务器是向客户程序提供服务的应用程序。客户-服务器这个术语隐含着图形用户界面与数据库服务器。n层、多层或三层这些术语，大体上也是同样的意思。第一层是客户程序，中间层或第二层包含了商务规则的编码，通常是应用服务器，而最后一层是数据库服务器自身（参见图15.1）。本章提供了一些例子程序进行示范，其

3、中客户端是用Delphi实现的标准Windows可执行文件，而中间层则是MIDAS和用Delphi实现的进程外COM服务器——自动化服务器，此外还需要适当的数据库。为避免创建难于理解的例子，本章中只使用了DBDEMO表和本地Interbase数据库。请记住，任何数据库服务器，如SQLServer、Oracle或Sybase等，在客户程序和中间层的代码不进行改变或改动很少的情况即可使用。图15.1基本的三层客户-服务器应用程序配置，分别使用了三台物理上独立的计算机示范了每一层的不同作用。所有的三层可以都位于同一台物理计算机上15.1MIDAS组件概述本节中讨论了通常可能用到的组件。

4、用于实现三层应用程序的MIDAS组件分为客户程序的组件和服务器程序的组件。另外，可能还需要一些通常用于建立客户程序的其他组件。注意：这里并未提供对MIDAS组件的详尽描述。MIDAS套件是非常广泛的，现在看来还没有专门讲述MIDAS的Delphi书籍。MIDAS为开发者提供了客户程序与服务器程序之间的桥梁。一旦创建了包含TRemoteDataModule对象的服务器程序，然后即可建立客户程序，就像是两层应用程序一样。即，可以根据个人的喜好选择是否使用数据感知控件，而无论怎样都可以在客户程序中得到并使用相关的数据，就像是已经了解了有关数据库的知识一样。由于中间层的服务器程序是新出现

5、的部分，我们从用于建立应用服务器的组件开始。15.1.1定义服务器应用程序在两层的客户-服务器应用程序中，包括数据库服务器以及数据感知客户程序。客户程序由程序员编写，而服务器则是数据库应用程序。在三层系统中，客户与数据库层之间添加了应用服务器层。本节示范了用于建立服务器程序的一些基本的组件。注意：请记住，在n层、三层和多层结构之间并无实际的区别。对于我们的目的来说，它们是同样的；至于是否存在区别，则是一个有待确定的问题。TRemoteDataModuleTRemoteDataModule是TDataModule的后代，其用法也大致相同。在服务器程序中，可将远程数据模块作为所有非可

6、视组件的容器使用。TRemoteDataModule实现了IAppServer接口，只需向标准的应用程序中添加该类的对象，即可实现需要向客户程序提供的功能。要创建MIDAS服务器，首先在Delphi中启动一个标准的应用程序工程。从NewItems对话框的Multitier属性页中，向工程添加一个远程数据模块对象。创建远程数据模块的向导过程如下所示（见图15.2），其中需要选定CoClass的名字、实例化方法以及线程模型。提供了这些信息后，Delphi将创建类型库和新的远程数据模块子类，该子类由TRemoteDataModule子类化而来，并继承了所定义的CoClass接口。MID

7、AS应用服务器是一个自动化服务器。可以向接口添加一些功能，并在远程数据模块中进行实现（参见15.2节“对MIDAS服务器进行查询”，其中的例子实现了一个接口，返回服务器可以访问的所有表名）。远程数据模块将实现UpdateRegistry方法，该方法负责在第一次运行程序时向WindowsNT注册服务器。无须向远程数据模块添加额外的功能，但需要添加一些组件，至少包括一个TProvider和一个TDataSet组件。添加TDatabase和TSession组件也很有用。在Delphi专