Delphi 多層 C/S 架構：客戶端呼叫應用伺服器自訂方法 (AppServer.GetQueryPara 範例)

在 Delphi DataSnap (MIDAS) 多層架構中，客戶端可透過 IAppServer 介面呼叫伺服器端 TRemoteDataModule 的公開方法。本文記錄一種常見模式：客戶端傳遞參數 → 伺服器端動態設定 TQuery 參數 → 客戶端 ClientDataSet.Open 取回資料，並討論單一 TDataSetProvider 服務多個 TQuery 的可行性。

伺服器端實作 (RemoteDataModule)

type
  TServerDataModule = class(TRemoteDataModule)
    Query1: TQuery;
    DataSetProvider1: TDataSetProvider; // 單一 Provider
    // ... 其他 Query2, Query3 ...
  public
    procedure GetQueryPara(var CPara: OleVariant); // 公開方法
  end;

procedure TServerDataModule.GetQueryPara(var CPara: OleVariant);
begin
  Query1.Close;
  Query1.ParamByName('Code').AsString := CPara; // 設定參數
  // 注意：此處不 Open，由客戶端透過 Provider 觸發
end;

客戶端呼叫

procedure TForm1.FormShow(Sender: TObject);
begin
  ClientDataSet1.Close;
  // 透過 AppServer 介面呼叫伺服器方法
  DM.RemoteServer1.AppServer.GetQueryPara('參數值');
  ClientDataSet1.Open; // 觸發 Provider 取資料，內部會執行 Query1.Open
end;

架構說明

• 單一 Provider 多 Query：DataSetProvider1.DataSet := Query1 (設計時指定)。若需切換查詢，伺服器方法可動態指派 DataSetProvider1.DataSet := Query2 再執行。
• 參數傳遞：OleVariant 支援基本型別、陣列、記錄，跨進程封送自動處理。
• 狀態管理：Query1.Close 確保重新準備參數，避免舊參數殘留。

合法性與最佳實踐檢核

改良版伺服器方法 (含錯誤回傳)

function TServerDataModule.SetQueryParam(const ACode: string; out AErrMsg: string): Boolean;
begin
  Result := False;
  AErrMsg := '';
  try
    Query1.Close;
    Query1.ParamByName('Code').AsString := ACode;
    Result := True;
  except
    on E: Exception do
      AErrMsg := E.Message;
  end;
end;

客戶端改呼叫 AppServer.SetQueryParam('值', ErrMsg) 並檢查回傳 Boolean。

小結

客戶端呼叫 AppServer.自訂方法 設定伺服器端查詢參數，再 ClientDataSet.Open 取數，是 DataSnap 典型的「參數化查詢」模式。雖單一 Provider 服務多 Query 技術上可行，但生產環境建議 **一 Query 一 Provider** 或改用 TClientDataSet.CommandText (DataSnap REST/JSON 時代) 簡化架構。核心原則：伺服器端封裝資料邏輯，客戶端僅負責參數傳遞與 UI 綁定。

1. 上一篇文章： Delphi 防止關鍵欄位重複輸入：Table.BeforePost 事件中以 FindKey 即時檢查唯一性
2. 下一篇文章： Delphi StringGrid 單欄唯讀技巧：OnSelectCell 動態切換 goEditing 選項

Delphi

Delphi 遠程線程注入技術實戰：CreateRemoteThread 注入 DLL 完整代碼與原理解析

技術原理：CreateRemoteThread 注入四步法

GDI+ 進階教學 (22)：TGPLinearGradientBrush - 矩形區域 + 預設方向模式 (TLinearGradientMode)

建構函數 constructor Create(const

Delphi for PHP 能否挽救 Borland？動態語言戰場的豪賭與隱憂

序章：Borland 的斷臂求生與 CodeGear 的誕生

GDI+ 進階教學：TGPImage GetThumbnailImage 快速產生縮圖

功能簡介 GetThumbnailImage 從原圖快速產生