sgcWebSockets 与 TMS Software 对比

TMS FNC WebSocket

TMS Software · 商业授权

在同一个产品里提供实现 RFC 6455 的 WebSocket 客户端与服务器组件。它的文档列出了四个组件：TTMSFNCWebSocketClient、TTMSFNCWebSocketServer、TTMSFNCWhatsAppServer 和 TTMSFNCWhatsAppReceiver，并说明 VCL 支持 Win32 和 Win64，FMX 支持 Win32、Win64、macOS、iOS、Linux 和 Android。支持 RAD Studio 10.1 Berlin 到 13 Florence。

官方页面

TMS Sparkle

TMS Software · 商业授权

一个用于网络与互联网编程的框架，同时提供客户端和服务器应用所需的类。它的 HTTP 服务器可以跑在 Windows 的 http.sys 栈上，也可以在 Linux 上作为 WebBroker Apache 模块运行，或者在 Linux 和 Windows 上通过自带的 socket 服务器运行。它还通过 IWebSocketUpgrader 提供服务器端的 WebSocket 升级，适用于 Delphi XE8 或更新版本。Sparkle 是 TMS XData 和 TMS RemoteDB 底层的框架。

官方页面

TMS MQTT

TMS Software · 商业授权

一个跨平台的消息客户端库。它的产品页面称其完整实现了 MQTT v3.1.1 和 v5 规范，采用非阻塞的多线程组件架构，带有一个非可视的日志组件，并可用于 Windows、macOS、Linux、iOS、Android 和 Raspberry Pi 上的 VCL、FMX 与 LCL 应用。所支持的 IDE 列表从 RAD Studio XE3 到 13 Florence。

官方页面

TMS AI Studio

TMS Software · 商业授权

面向 Delphi 和 C++ Builder 的 LLM 与智能体组件。它的产品页面列出了 OpenAI、Google Gemini、xAI Grok、DeepSeek、Anthropic Claude、Perplexity Labs、Ollama 和 Mistral AI，支持带自定义工具的函数调用、检索增强生成、涵盖图片、PDF 和音频文件的多模态输入，以及通过完整的 MCP 客户端和服务器协议实现的智能体。支持 Delphi 11 Alexandria 到 13 Florence。

官方页面

TMS FNC Cloud Pack

TMS Software · 商业授权

面向云服务的组件，其页面称之为可无缝访问 Google、Microsoft、PayPal 及更多云服务的通用组件。清单涵盖文件存储、支付、翻译、日历与联系人、日志、消息以及 AI 服务。页面说明它完全兼容 VCL、FireMonkey 和 TMS WEB Core，因此由 Object Pascal 编译出的浏览器应用也能使用同一套组件。

官方页面

客户端与服务器在同一个产品里

TMS FNC WebSocket 以一个产品、一个价格同时提供 TTMSFNCWebSocketClient 和 TTMSFNCWebSocketServer。sgcWebSockets 则把两者分到了不同版本。TsgcWebSocketClient 在 Standard 版本中即可编译，而所有服务器组件，包括 TsgcWebSocketServer、TsgcWebSocketHTTPServer、TsgcWebSocketProxyServer 和 TsgcWebSocketLoadBalancerServer，都位于 sgcWebSocket.pas 中的 {$IFDEF SGC_EDT_PRO} 之内，因此 sgcWebSockets 的服务器需要 Professional 或更高版本。

浏览器中的 Object Pascal

TMS WEB Core 把 Object Pascal 编译成 JavaScript，并为浏览器提供一个带 HostName、Port、Connect、Send 和 OnDataReceived 事件的 TWebSocketClient。TMS FNC Cloud Pack 的组件也能在那里运行。sgcWebSockets 完全没有浏览器目标。它的组件编译为原生代码，因此浏览器前端要用 JavaScript 或其他框架来写，并像任何其他客户端一样通过网络与 sgcWebSockets 服务器通信。

更广的 TMS 产品线，以及一次续订

TMS XData 和 TMS RemoteDB 都跑在 Sparkle 上，因此 Sparkle 的 IWebSocketUpgrader 是在一个已经存在的宿主上加入推送能力，而不是再引入第二个宿主。TMS ALL-ACCESS 用一张发票续订整个 TMS 产品线，包括表格、日程、图表和报表，以及网络类产品。eSeGeCe All-Access 覆盖的是 eSeGeCe 的各个库，也就是网络、基于 HTTP 的 HTML、加密与签名，而不是通用的界面控件。

AI 厂商，以及聊天组件能跑在哪里

TMS AI Studio 在其厂商清单中列出了 Perplexity Labs。sgcAI_Chat.pas 中的 TsgcAIChatProvider 枚举有七个条目：aicpOpenAI、aicpAnthropic、aicpGemini、aicpDeepSeek、aicpOllama、aicpGrok 和 aicpMistral，其中没有 Perplexity。另外，sgcVer.inc 只在 {$IFDEF MSWINDOWS} 之内定义 SGC_AI，因此 TsgcAIChat 组件只能在 Windows 上编译。底层的厂商类和 MCP 组件没有这个限制，受限的是聊天组件。

Raspberry Pi 上的 MQTT

TMS MQTT 的页面在平台清单中点名了 Raspberry Pi。sgcWebSockets 在 sgcVer.inc 中的平台守卫覆盖 Windows、macOS、Linux、iOS 和 Android，也有一个 Lazarus 包，但源码中任何地方都没有把 Raspberry Pi 列为受支持的目标。

WebSocket 客户端，sgcWebSockets

相关的类和成员声明在 sgcWebSocket.pas、sgcWebSocket_Classes.pas 和 sgcWebSocket_Client_Base.pas 中

uses
  sgcWebSocket, sgcWebSocket_Classes;

procedure TForm1.ClientMessage(Connection: TsgcWSConnection;
  const Text: string);
begin
  Memo1.Lines.Add(Text);
end;

procedure TForm1.Start;
begin
  FClient := TsgcWebSocketClient.Create(nil);
  FClient.Host := 'echo.example.com';
  FClient.Port := 443;
  FClient.TLS  := True;
  FClient.OnMessage := ClientMessage;
  FClient.WatchDog.Enabled := True;   // reconnects on its own
  FClient.Active := True;
  FClient.WriteData('hello');
end;

OnMessage 的类型是 TsgcWSMessageEvent，声明为 procedure(Connection: TsgcWSConnection; const Text: string) of object。WriteData 是一个过程，而 Connect 和 Disconnect 是返回 Boolean 的函数，因此设置 Active 是最短的入口。

WebSocket 客户端，TMS FNC WebSocket

成员取自 TTMSFNCWebSocketClient 参考文档

// TTMSFNCWebSocketClient documents HostName, Port, UseSSL,
// Active, Connect, Disconnect, Send, Ping, and the events
// OnConnect, OnDisconnect, OnMessageReceived,
// OnBinaryDataReceived, OnPing and OnPong.

Client.HostName := 'echo.example.com';
Client.Port     := 443;
Client.UseSSL   := True;
Client.Connect;
Client.Send('hello');

该参考文档没有为这个组件记录重连机制、子协议协商 API 或压缩扩展。在依赖这一点之前，请你自己去核对那个页面。

在同一个连接组件上跑 MQTT

声明在 sgcWebSocket_Protocols.pas 和 sgcWebSocket_Protocol_MQTT_Client.pas 中

uses
  sgcWebSocket, sgcWebSocket_Classes, sgcWebSocket_Types,
  sgcWebSocket_Protocols, sgcWebSocket_Protocol_MQTT_Message;

procedure TForm1.MQTTPublish(Connection: TsgcWSConnection;
  aTopic, aText: String;
  PublishProperties: TsgcWSMQTTPublishProperties);
begin
  Memo1.Lines.Add(aTopic + ' = ' + aText);
end;

procedure TForm1.Start;
begin
  FClient := TsgcWebSocketClient.Create(nil);
  FClient.Host := 'broker.example.com';
  FClient.Port := 443;
  FClient.TLS  := True;

  FMQTT := TsgcWSPClient_MQTT.Create(nil);
  FMQTT.Client := FClient;                 // or a TsgcTCPClient
  FMQTT.MQTTVersion := mqtt5;
  FMQTT.OnMQTTPublish := MQTTPublish;

  FClient.Active := True;
  FMQTT.Subscribe('plant/+/temperature');
  FMQTT.Publish('plant/1/state', 'running');
end;

改为把 TsgcTCPClient 赋给 Client，同一个 MQTT 会话就会跑在普通 TCP 上而不是 WebSocket 上，其余什么都不用改。Subscribe 和 Publish 是以 Word 形式返回报文标识符的函数，TwsMQTTVersion 为 (mqtt311, mqtt5)。

一次 LLM 调用

声明在 sgcAI.pas 和 sgcAI_Chat.pas 中。SGC_AI 在 Windows 上的 Enterprise 版本中定义

uses
  sgcAI, sgcAI_Chat;

procedure TForm1.ChatStream(Sender: TObject;
  const aChunk: string; var Cancel: Boolean);
begin
  Memo1.Text := Memo1.Text + aChunk;
end;

procedure TForm1.Ask;
var
  oChat: TsgcAIChat;
begin
  oChat := TsgcAIChat.Create(nil);
  try
    oChat.Provider := aicpAnthropic;
    oChat.ChatOptions.ApiKey := ReadApiKey;
    oChat.ChatOptions.Model  := 'claude-sonnet-4-5';
    oChat.SystemMessage := 'Answer in one sentence.';
    oChat.OnChatStream := ChatStream;
    oChat.ChatStream('Summarise this order.');
  finally
    oChat.Free;
  end;
end;

切换厂商只是一次枚举赋值。Chat 把整段回答以字符串返回，ChatStream 为每个分片触发 OnChatStream 并允许处理程序取消，ChatAsync 在 Delphi 2010 及以后的版本上返回一个 IsgcFuture<string>。