sgcWebSockets と TMS Software の比較

TMS FNC WebSocket

TMS Software · 商用

RFC 6455 を実装した WebSocket のクライアントとサーバーのコンポーネントを 1 つの製品にまとめたものです。ドキュメントには TTMSFNCWebSocketClient、TTMSFNCWebSocketServer、TTMSFNCWhatsAppServer、TTMSFNCWhatsAppReceiver の 4 つのコンポーネントが挙げられており、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 で自己完結型のソケットサーバーとして動作します。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 からコンパイルしたブラウザーアプリケーションでも同じコンポーネント一式が利用できます。

公式ページ

クライアントとサーバーが 1 つの製品に

TMS FNC WebSocket は TTMSFNCWebSocketClient と TTMSFNCWebSocketServer を 1 つの製品、1 つの価格で提供します。sgcWebSockets はこの 2 つをエディションで分けています。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 の広い製品群と、1 回の更新

TMS XData と TMS RemoteDB は Sparkle 上で動くため、Sparkle の IWebSocketUpgrader はサーバーを 1 つ増やすのではなく、すでにあるホストにプッシュを追加します。TMS ALL-ACCESS は、グリッド、プランナー、チャート、レポートも含めた TMS の全製品を、ネットワーク関連製品とあわせて 1 枚の請求書で更新します。eSeGeCe の All-Access が対象とするのは eSeGeCe のライブラリ、すなわちネットワーク、HTTP 上の HTML、暗号と署名であり、汎用の UI コントロールではありません。

AI プロバイダーと、チャットコンポーネントが動作する場所

TMS AI Studio はプロバイダーの中に Perplexity Labs を挙げています。sgcAI_Chat.pas の TsgcAIChatProvider 列挙型は aicpOpenAI、aicpAnthropic、aicpGemini、aicpDeepSeek、aicpOllama、aicpGrok、aicpMistral の 7 項目で、Perplexity はその中にありません。TsgcAIChat コンポーネント、基盤となるプロバイダークラス、MCP のコンポーネントは、Windows、macOS、Linux、iOS、Android でコンパイルできます。

Raspberry Pi 上の MQTT

TMS MQTT のページは、プラットフォームの一覧に Raspberry Pi を挙げています。sgcVer.inc の sgcWebSockets のプラットフォームガードは 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;

Client に TsgcTCPClient を割り当てると、ほかは何も変えずに、同じ MQTT セッションが WebSocket ではなく素の TCP 上で動きます。Subscribe と Publish はパケット識別子を Word で返す関数で、TwsMQTTVersion は (mqtt311, mqtt5) です。

LLM の呼び出し

sgcAI.pas と sgcAI_Chat.pas で宣言されています。SGC_AI は 全プラットフォームの 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;

プロバイダーの切り替えは列挙型への代入 1 つです。Chat は回答全体を文字列として返し、ChatStream はチャンクごとに OnChatStream を発生させてハンドラーからのキャンセルを可能にし、ChatAsync は Delphi 2010 以降で IsgcFuture<string> を返します。