Delphi 多進程架構解決 DataSnap TCP 長連線數量瓶頸

應用場景與瓶頸分析

• 5,000 個客戶端
• 每客戶端每 500ms 上傳一次資料
• 需維持 TCP 長連線

阻塞式 Socket (Indy) 限制

• 每連線建立一執行緒服務
• Windows 32-bit 單進程理論執行緒上限 ~2,048 (1MB 堆疊 × 2,048 ≈ 2GB 使用者空間)
• 實際穩定上限遠低於理論值 (約 800-1,000 連線)
• 5,000 連線遠超單進程承載能力

常見方案比較

多進程架構設計

核心概念

• 主進程 (Manager)：監聽埠口、接受連線、負載均衡分派
• 工作進程 (Worker)：實際處理客戶端連線、業務邏輯、DataSnap 服務
• 進程間通訊：Named Pipe / Shared Memory / Local TCP / WM_COPYDATA

架構圖解

[Client 1]      [Client 2]      ...      [Client 5000]
    |               |                    |
    +---------------+--------------------+
                    |
            [主進程: Listener + Dispatcher]
                    |
        +-----------+-----------+-----------+
        |           |           |           |
   [Worker 1]  [Worker 2]  [Worker 3]  [Worker N]
   (~800連線)  (~800連線)  (~800連線)  (~800連線)
        |           |           |           |
   [DataSnap]  [DataSnap]  [DataSnap]  [DataSnap]

關鍵實作細節

主進程：連線分派策略

// 輪詢 / 最少連線 / IP 雜湊分派
function DispatchToWorker(ClientSocket: TSocket): Integer;
var
  MinConnections: Integer;
  i: Integer;
begin
  MinConnections := MaxInt;
  Result := 0;
  for i := 1 to WorkerCount do begin
    if WorkerConnections[i] < MinConnections then begin
      MinConnections := WorkerConnections[i];
      Result := i;
    end;
  end;
  // 透過 IPC 通知對應 Worker 接手 Socket
  NotifyWorkerAccept(Result, ClientSocket);
end;

Socket 傳遞機制 (Windows)

• WSADuplicateSocket + IPC 傳遞 Socket 資訊：主進程 Accept 後，複製 Socket 描述符傳給 Worker
• AcceptEx / IOCP：進階做法，Worker 直接 Accept
• 簡化版：主進程維持連線，轉發資料 (Proxy 模式) — 開發最快但效能較低

Worker 進程：DataSnap 服務啟動

// Worker 進程啟動參數指定監聽埠口範圍或由主進程指派
// 每個 Worker 獨立運行 DataSnap 伺服器元件
procedure TWorkerProcess.Execute;
begin
  // 初始化 DataSnap 元件
  DSServer1.Start;
  // 進入訊息迴圈處理 IPC 指令
  while not Terminated do begin
    ProcessIPCMessages;
    Sleep(10);
  end;
  DSServer1.Stop;
end;

部署與運維考量

• 進程數量規劃：單機 CPU 核心數 × 2-4，每進程 600-800 連線
• 健康檢查：主進程定期檢查 Worker 存活，自動重啟異常進程
• 優雅關閉：訊號通知 Worker 停止接受新連線、處理完現有請求再退出
• 日誌聚合：多進程日誌集中收集 (如 Log4D + UDP/Appender)
• 設定外部化：連線數限制、埠口範圍、IPC 方式皆可配置化

遷移路徑建議

1. 現有單進程 Indy DataSnap 專案
2. 抽離業務邏輯為共用單元 (Business Logic Layer)
3. 建立 Worker 進程專案，引用共用邏輯
4. 建立 Manager 進程，實作 Accept + 分派
5. 實作 Socket 傳遞 (WSADuplicateSocket + Named Pipe)
6. 壓力測試驗證 5,000 連線穩定性
7. 生產環境灰度發布

結語

多進程架構以最小代碼變更、繼承既有阻塞模型優勢，線性解決 TCP 長連線數量瓶頸。適合團隊熟悉 Indy/DataSnap、需快速擴容的專案。長期演進建議評估 IOCP 或遷移至支援原生非同步的框架 (如 mORMot、Node.js、Go、.NET Core Kestrel)。

1. 上一篇文章： Delphi XE3 程式碼自動提示失效問題解決方案
2. 下一篇文章： Windows 進程最大執行緒數限制深度解析

Delphi

取得圖片透明區域構建不規則視窗：GraphicToRGN 掃描線演算法實作

本文提供 GraphicToRGN 函數，採用「逐行掃描 +

Delphi 組件庫術語演進：從 VCL 到 CLX 的跨平台之路

術語釐清 術語全稱定位 CLXComponent

GDI+ 進階 (99)：TGPImage 圖片格式轉換保存 (多格式批量導出)

目標 載入任意支援格式圖片，一鍵導出為 PNG、JPEG、G

Delphi 使用資源圖片作背景：LoadFromResourceID 載入數字 ID 位圖完整教學

RC 檔定義數字 ID 位圖 1 BITMAP IMG\B