delphi三层架构（使用SATRDA改造，客户端代码不变）

我们的delphi程序很多是以前开发的，采用典型的CS架构，由程序直接连接数据库。现在需要改成在外网可以直接操作软件。先把数据库搬到了阿里云上，测试发现直接连数据库和VPN连接测试速度很慢，直连还容易掉线。服务器申请大的带宽又太贵。把数据访问和一些业务逻辑改写成服务，由于软件太大，开发和测试需要投入大量工作，也不现实。最后通过使用SATRDA解决了问题。

SATRDA 服务器和客户端通过HTTP实现通讯，只有需要数据交互的时候才与服务器通讯，解决了连接掉线的问题。通过提供ODBC驱动的方式，使得客户端代码不需要改变，就实现了两层到三层的转换。

SATRDA使用过程

1. 首先打开server/config目录下的dbconfig文件，

1. {
2. "mssql": {
3. "DBType": "odbc",
4. "Provider": "driver=sql server;server=127.0.0.1;uid=sa;pwd=sql;database=test"
5. },
6. "orcl": {
7. "DBType": "odbc",
8. "Provider": "driver=Oracle in OraDb10g_home1;SERVER=ORCL;uid=system;pwd=sql;EXC=T"
9. }
10. }

修改数据库连接设置。其中  mssql是客户端连接的名字，可以随意取，DBType为odbc是固定的。server对应数据库服务名，uid为用户名，pwd为密码，database为数据库名，

2. 运行satserver.exe

3. 修改连接字符串如下。

1. procedure TForm2.FormCreate(Sender: TObject);
2. var
3. server : string;
4. db:string;
5. begin
6. server := '127.0.0.1:5555';
7. db := 'mssql';<span style="white-space:pre">        </span>//mssql就是上面配置的名称
8. <span style="color:#ff0000;">  ADOConnection1.ConnectionString := 'Provider=MSDASQL.1;Password=sql;User ID=sa;Extended Properties="driver=Smart ODBC Driver;server=' + server + ';DB_NAME=' + db + ';"';
9. ADOConnection1.CursorLocation := clUseClient;   //注意需要设置为clUseClient</span>
10. ADOStoredProc1.Connection := ADOConnection1;
11. adoquery1.Connection := ADOConnection1;
12. datasource1.DataSet := adoquery1;
13. dbgrid1.DataSource := datasource1;
14. end;

完成后，其它操作都和原来一样。速度对比：

下载地址：

http://download.csdn.net/detail/pcwe2002/9620563

QQ群：345559891  (交流、下载最新版本）

http://blog.csdn.net/pcwe2002/article/details/52527782