Delphi DataSnap 2010 入門實戰 (二)：零代碼打造三層綠色應用

從零開始：DataSnap Server 與 Client 完整建置流程

本文延續上篇，手把手帶領建立「完全不寫代碼」的三層架構：Server 端單一 EXE、Client 端單一 EXE、Access + ADO 資料庫、綠色免安裝部署。適用 Delphi 2010 (Version 14.0.3593.25826)。

Server 端建立步驟

1. File → New → Other → DataSnap Server：選「DataSnap Server」(獨立 EXE，TCP/HTTP)，非 WebBroker (需 IIS)。
2. 應用程式類型：VCL Forms Application (含 UI) / Console / Service。
3. 通訊協定：TCP、HTTP 或 TCP+HTTP；HTTP 下可勾選 Authentication。
4. 祖先類別：TDSServerModule (支援 DataSetProvider) / TDataModule / TPersistent。
5. 勾選「Add Server Methods Class」與「Include Sample Methods」：自動產生 TServerMethods1 含 EchoString 範例。

自動產生的三個單元

• ServerMethodsUnit1：業務邏輯類別 (TServerMethods1 = class(TDSServerModule))
• ServerContainerUnit1：容器，掛載 TDSServer、DSTCPServerTransport、TDSServerClass
• 主表單單元

資料庫連線設定 (Access + ADO)

• 建立 DB.mdb，資料表 TEST (ID 數字 PK, Vname 文字)，輸入一筆 1, '周黔'。
• 於 ServerMethods1 設計面放入 ADOConnection1 (ConnectionString 指向 DB.mdb, LoginPrompt=False, Connected=True)
• 放入 ADOTable1 (Connection=ADOConnection1, TableName=TEST, Active=True)
• 放入 DataSetProvider1 (DataSet=ADOTable1)

關鍵部署參數

• 記下 DSTCPServerTransport1.Port (預設 211)
• 記下 Server Class Name：TServerMethods1
• 編譯並獨立執行 Server EXE

Client 端建立步驟

1. File → New → VCL Forms Application
2. 放入 SQLConnection1：Driver=DataSnap, HostName=127.0.0.1, Port=211, LoginPrompt=False, Connected=True
3. 放入 DSProviderConnection1：SQLConnection=SQLConnection1, ServerClassName=TServerMethods1
4. 放入 ClientDataSet1：RemoteServer=DSProviderConnection1, ProviderName=DataSetProvider1, Active=True
5. 放入 DataSource1 → DBNavigator1 → DBGrid1 串聯
6. 編譯 Client EXE

綠色部署小撇步

• 將 MidasLib 加入 Client 專案 uses 子句，即可單一 EXE 執行，無需 midast.dll。
• Server/Client EXE 可直接複製至隨身碟、任意電腦執行 (需同目錄放置 DB.mdb)。
• 若需持久化資料，ClientDataSet 需呼叫 ApplyUpdates(0)。

DataSnap 2010 讓三層開發像拼積木一樣簡單，告別 Scktsrv.exe 年代，擁抱純 EXE 部署新紀元。