sgcWebSockets et TMS Software comparés

TMS FNC WebSocket

TMS Software · Licence commerciale

Des composants client et serveur WebSocket implémentant la RFC 6455, dans un seul produit. Sa documentation liste quatre composants, TTMSFNCWebSocketClient, TTMSFNCWebSocketServer, TTMSFNCWhatsAppServer et TTMSFNCWhatsAppReceiver, et annonce VCL sur Win32 et Win64, et FMX sur Win32, Win64, macOS, iOS, Linux et Android. RAD Studio 10.1 Berlin à 13 Florence.

Page officielle

TMS Sparkle

TMS Software · Licence commerciale

Un framework pour la programmation réseau et internet, avec des classes pour les applications client comme serveur. Son serveur HTTP tourne sur la pile http.sys de Windows, comme module Apache WebBroker sous Linux, ou via un serveur socket autonome sous Linux et Windows. Il fournit aussi la mise à niveau WebSocket côté serveur via IWebSocketUpgrader, disponible pour Delphi XE8 ou plus récent. Sparkle est le framework qui porte TMS XData et TMS RemoteDB.

Page officielle

TMS MQTT

TMS Software · Licence commerciale

Une bibliothèque cliente de messagerie multiplateforme. Sa page produit la décrit comme implémentant l'intégralité des spécifications MQTT v3.1.1 et v5, avec une architecture de composants multithread non bloquante, un composant de journalisation non visuel, et un usage dans des applications VCL, FMX et LCL sous Windows, macOS, Linux, iOS, Android et Raspberry Pi. La liste des IDE pris en charge va de RAD Studio XE3 à 13 Florence.

Page officielle

TMS AI Studio

TMS Software · Licence commerciale

Des composants LLM et agents pour Delphi et C++ Builder. Sa page produit liste OpenAI, Google Gemini, xAI Grok, DeepSeek, Anthropic Claude, Perplexity Labs, Ollama et Mistral AI, l'appel de fonctions avec des outils personnalisables, la génération augmentée par récupération, l'entrée multimodale couvrant les images, les PDF et les fichiers audio, et des agents via un protocole client et serveur MCP complet. Delphi 11 Alexandria à 13 Florence.

Page officielle

TMS FNC Cloud Pack

TMS Software · Licence commerciale

Des composants pour les services cloud, décrits sur sa page comme des composants universels pour un accès transparent à Google, Microsoft, PayPal et bien d'autres services cloud. La liste couvre le stockage de fichiers, les paiements, la traduction, l'agenda et les contacts, la journalisation, la messagerie et les services IA. Elle annonce une compatibilité complète avec VCL, FireMonkey et TMS WEB Core, si bien que le même jeu de composants est disponible pour une application navigateur compilée depuis Object Pascal.

Page officielle

Client et serveur dans un seul produit

TMS FNC WebSocket livre TTMSFNCWebSocketClient et TTMSFNCWebSocketServer dans un seul produit à un seul prix. sgcWebSockets répartit les deux entre ses éditions. TsgcWebSocketClient compile dans l'édition Standard, tandis que chaque composant serveur, TsgcWebSocketServer, TsgcWebSocketHTTPServer, TsgcWebSocketProxyServer et TsgcWebSocketLoadBalancerServer, se trouve dans {$IFDEF SGC_EDT_PRO} dans sgcWebSocket.pas, si bien qu'un serveur sgcWebSockets exige l'édition Professional ou supérieure.

Object Pascal dans le navigateur

TMS WEB Core compile Object Pascal en JavaScript et donne au navigateur un TWebSocketClient avec HostName, Port, Connect, Send et un événement OnDataReceived. Les composants TMS FNC Cloud Pack y tournent aussi. sgcWebSockets ne vise pas du tout le navigateur. Ses composants compilent en code natif, si bien qu'un front end navigateur s'écrit en JavaScript ou dans un autre framework, et il parle à un serveur sgcWebSockets sur le réseau comme n'importe quel autre client.

La gamme TMS plus large, et un seul renouvellement

TMS XData et TMS RemoteDB tournent sur Sparkle, si bien que son interface IWebSocketUpgrader ajoute le push à un hôte déjà en place plutôt que d'en ajouter un second. TMS ALL-ACCESS renouvelle toute la gamme TMS, grilles, plannings, graphiques et reporting compris, aux côtés des produits réseau sur une seule facture. eSeGeCe All-Access couvre les bibliothèques eSeGeCe, qui relèvent du réseau, du HTML sur HTTP, de la cryptographie et de la signature, pas des contrôles d'interface génériques.

Les fournisseurs IA, et là où tourne le composant de chat

TMS AI Studio liste Perplexity Labs parmi ses fournisseurs. L'énumération TsgcAIChatProvider de sgcAI_Chat.pas compte sept entrées, aicpOpenAI, aicpAnthropic, aicpGemini, aicpDeepSeek, aicpOllama, aicpGrok et aicpMistral, et Perplexity n'en fait pas partie. Par ailleurs, sgcVer.inc définit SGC_AI seulement à l'intérieur de {$IFDEF MSWINDOWS}, si bien que le composant TsgcAIChat compile uniquement sous Windows. Les classes de fournisseurs sous-jacentes et les composants MCP ne sont pas restreints ainsi, mais le composant de chat l'est.

MQTT sur Raspberry Pi

La page TMS MQTT nomme Raspberry Pi dans sa liste de plateformes. Les gardes de plateforme de sgcWebSockets dans sgcVer.inc couvrent Windows, macOS, Linux, iOS et Android, et il existe un package Lazarus, mais Raspberry Pi n'est cité comme cible prise en charge nulle part dans le source.

Un client WebSocket, sgcWebSockets

Classes et membres déclarés dans sgcWebSocket.pas, sgcWebSocket_Classes.pas et 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 est TsgcWSMessageEvent, déclaré comme procedure(Connection: TsgcWSConnection; const Text: string) of object. WriteData est une procédure, tandis que Connect et Disconnect sont des fonctions renvoyant Boolean, si bien que définir Active est le chemin le plus court.

Un client WebSocket, TMS FNC WebSocket

Membres tirés de la référence 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');

La référence ne documente ni mécanisme de reconnexion, ni API de négociation de sous-protocole, ni extension de compression pour ce composant. Vérifie la page toi-même avant de compter dessus.

MQTT sur le même composant de connexion

Déclaré dans sgcWebSocket_Protocols.pas et 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;

Assigner à Client un TsgcTCPClient fait tourner à la place la même session MQTT sur du TCP brut plutôt que sur WebSocket, sans autre changement. Subscribe et Publish sont des fonctions renvoyant l'identifiant de paquet sous forme de Word, et TwsMQTTVersion vaut (mqtt311, mqtt5).

Un appel LLM

Déclaré dans sgcAI.pas et sgcAI_Chat.pas. SGC_AI est défini dans l'édition Enterprise sous Windows

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;

Changer de fournisseur tient en une seule affectation d'énumération. Chat renvoie la réponse complète sous forme de chaîne, ChatStream déclenche OnChatStream pour chaque fragment et laisse le handler annuler, et ChatAsync renvoie un IsgcFuture<string> sur Delphi 2010 et ultérieur.