基于 midas 的三层开发

 本程序仅仅是一个 midas 程序的演示，真正要完成一些功能，还得花力气写较多的代码

 

 

一、创建服务器
新建一个 Application，然后添加 RemoteDataModule，在RemoteDataModule 中放置 Database，Query，Session，DataSetProvider 控件各一个。
代码如下：

 

 

1. unit RemoteServer;
3. {$WARN SYMBOL_PLATFORM OFF}
5. interface
7. uses
8. Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
9. DBClient, Server_TLB, StdVcl, DBTables, DB, Variants, Provider;
11. type
12. TServerModule = class(TRemoteDataModule, IServerModule)
13.     Session1: TSession;
14.     Database1: TDatabase;
15.     Query1: TQuery;
16.     Provide: TDataSetProvider;
17.     procedure RemoteDataModuleCreate(Sender: TObject);
18. private
19.     { Private declarations }
20. protected
21.     class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID:
22.       string); override;
23.     function GetTableNames: OleVariant; safecall;
24. public
25.     { Public declarations }
26. end;
28. var
29. ServerModule      : TServerModule;
31. implementation
33. {$R *.DFM}
35. function TServerModule.GetTableNames: OleVariant;
36. var
37. I                 : Integer;
38. TableNames        : TStrings;
39. begin
40. TableNames := TStringList.Create;
41. try
42.     Session1.GetTableNames(Database1.DatabaseName, '*.*', True,
43.       False, TableNames);
44.     result := VarArrayCreate([0, TableNames.Count - 1],
45.       varOleStr);
46.     for I := 0 to TableNames.Count - 1 do
47.       result[I] := TableNames[I];
48. finally
49.     TableNames.Free;
50. end;
51. end;
53. class procedure TServerModule.UpdateRegistry(Register: Boolean; const ClassID,
54. ProgID: string);
55. begin
56. if Register then
57. begin
58.     inherited UpdateRegistry(Register, ClassID, ProgID);
59.     EnableSocketTransport(ClassID);
60.     EnableWebTransport(ClassID);
61. end
62. else
63. begin
64.     DisableSocketTransport(ClassID);
65.     DisableWebTransport(ClassID);
66.     inherited UpdateRegistry(Register, ClassID, ProgID);
67. end;
68. end;
70. procedure TServerModule.RemoteDataModuleCreate(Sender: TObject);
71. begin
73. end;
75. initialization
76. TComponentFactory.Create(ComServer, TServerModule,
77.     Class_ServerModule, ciMultiInstance, tmApartment);
78. end.
80. 然后保存，编译服务器程序
82. 二、创建客户端
83. 新建一个Application，然后添加 DComConnection，ClientDataSet，DateSource，ListBox，DBGrid，Memo，Button 各一个。用 DComConnection 可以自动连上远程服务器程序，然后控件之间进行关联
84. 代码如下：
85. unit frmMain;
87. interface
89. uses
90. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
91. Dialogs, DB, StdCtrls, DBClient, MConnect, Grids, DBGrids, ComCtrls;
93. type
94. TForm1 = class(TForm)
95.     DCOMConnection1: TDCOMConnection;
96.     ClientDataSet1: TClientDataSet;
97.     ListBox1: TListBox;
98.     DataSource1: TDataSource;
99.     PageControl1: TPageControl;
100.     TabSheet1: TTabSheet;
101.     TabSheet2: TTabSheet;
102.     DBGrid1: TDBGrid;
103.     Memo1: TMemo;
104.     GroupBox1: TGroupBox;
105.     Button1: TButton;
106.     procedure FormCreate(Sender: TObject);
107.     procedure Button1Click(Sender: TObject);
108.     procedure ListBox1Click(Sender: TObject);
109. private
110.     { Private declarations }
111. public
112.     { Public declarations }
113. end;
115. var
116. Form1             : TForm1;
118. implementation
120. {$R *.dfm}
122. procedure TForm1.FormCreate(Sender: TObject);
123. var
124. I                 : Integer;
125. TableNames        : OleVariant;
126. begin
127. DCOMConnection1.Connected := True;
128. TableNames := DCOMConnection1.AppServer.GetTableNames;
129. if VarIsArray(TableNames) then
130.     for I := 0 to VarArrayHighBound(TableNames, 1) do
131.       ListBox1.Items.Add(TableNames[I]);
132. end;
134. procedure TForm1.Button1Click(Sender: TObject);
135. begin
136. ClientDataSet1.Close;
137. ClientDataSet1.CommandText := Memo1.Lines.Text;
138. ClientDataSet1.Open;
139. end;
141. procedure TForm1.ListBox1Click(Sender: TObject);
142. begin
144. end;
146. end.

三、总结
通过 DCOM 进行三层开发是非常方便的，只要在服务器端写入需要的方法
在客户端可以非常方便的调用，当然了，AppServer 后的方法是点不出来的，需要写入和服务端相同的方法名，不过这一样很方便，通常情况下，服务端与客户端是一起开发的，就算不一起开发，也会有文档。