sgcWebSockets e TMS Software a confronto

TMS FNC WebSocket

TMS Software · Commerciale

Componenti client e server WebSocket che implementano RFC 6455, in un unico prodotto. La sua documentazione elenca quattro componenti, TTMSFNCWebSocketClient, TTMSFNCWebSocketServer, TTMSFNCWhatsAppServer e TTMSFNCWhatsAppReceiver, e indica VCL su Win32 e Win64, e FMX su Win32, Win64, macOS, iOS, Linux e Android. Da RAD Studio 10.1 Berlin a 13 Florence.

Pagina ufficiale

TMS Sparkle

TMS Software · Commerciale

Un framework per la programmazione di rete e internet, con classi sia per le applicazioni client sia per quelle server. Il suo server HTTP gira sullo stack http.sys di Windows, come modulo Apache WebBroker su Linux, oppure tramite un socket server autonomo su Linux e Windows. Fornisce inoltre l'upgrade WebSocket lato server tramite IWebSocketUpgrader, disponibile da Delphi XE8 in poi. Sparkle è il framework alla base di TMS XData e TMS RemoteDB.

Pagina ufficiale

TMS MQTT

TMS Software · Commerciale

Una libreria client di messaggistica multipiattaforma. La sua pagina di prodotto la descrive come un'implementazione completa delle specifiche MQTT v3.1.1 e v5, con un'architettura a componenti multi-thread non bloccante, un componente logger non visuale, e l'uso in applicazioni VCL, FMX e LCL su Windows, macOS, Linux, iOS, Android e Raspberry Pi. L'elenco degli IDE supportati va da RAD Studio XE3 alla 13 Florence.

Pagina ufficiale

TMS AI Studio

TMS Software · Commerciale

Componenti LLM e agent per Delphi e C++ Builder. La sua pagina di prodotto elenca OpenAI, Google Gemini, xAI Grok, DeepSeek, Anthropic Claude, Perplexity Labs, Ollama e Mistral AI, il function calling con strumenti personalizzabili, la retrieval augmented generation, l'input multimodale che copre immagini, PDF e file audio, e gli agent tramite un protocollo MCP client e server completo. Da Delphi 11 Alexandria a 13 Florence.

Pagina ufficiale

TMS FNC Cloud Pack

TMS Software · Commerciale

Componenti per i servizi cloud, descritti sulla sua pagina come componenti universali per l'accesso trasparente a Google, Microsoft, PayPal e molti altri servizi cloud. L'elenco copre archiviazione dei file, pagamenti, traduzione, calendario e contatti, logging, messaggistica e i servizi AI. Dichiara piena compatibilità con VCL, FireMonkey e TMS WEB Core, quindi lo stesso set di componenti è disponibile a un'applicazione browser compilata da Object Pascal.

Pagina ufficiale

Client e server in un unico prodotto

TMS FNC WebSocket distribuisce TTMSFNCWebSocketClient e TTMSFNCWebSocketServer in un unico prodotto a un unico prezzo. sgcWebSockets divide i due tra le edizioni. TsgcWebSocketClient compila nell'edizione Standard, mentre ogni componente server, TsgcWebSocketServer, TsgcWebSocketHTTPServer, TsgcWebSocketProxyServer e TsgcWebSocketLoadBalancerServer, sta dentro {$IFDEF SGC_EDT_PRO} in sgcWebSocket.pas, quindi un server sgcWebSockets richiede l'edizione Professional o superiore.

Object Pascal nel browser

TMS WEB Core compila Object Pascal in JavaScript e mette a disposizione del browser un TWebSocketClient con HostName, Port, Connect, Send e un evento OnDataReceived. Anche i componenti di TMS FNC Cloud Pack girano lì. sgcWebSockets non ha alcun target browser. I suoi componenti compilano in codice nativo, quindi un front end browser si scrive in JavaScript o in un altro framework, e dialoga con un server sgcWebSockets sulla rete come qualsiasi altro client.

La gamma TMS più ampia, e un unico rinnovo

TMS XData e TMS RemoteDB girano su Sparkle, quindi l'IWebSocketUpgrader di Sparkle aggiunge il push a un host già presente invece di aggiungerne un secondo. TMS ALL-ACCESS rinnova l'intera gamma TMS, griglie, planner, grafici e reportistica inclusi, insieme ai prodotti di rete su un'unica fattura. eSeGeCe All-Access copre le librerie eSeGeCe, che riguardano rete, HTML su HTTP, crittografia e firma, non controlli UI generici.

Provider AI, e dove gira il componente di chat

TMS AI Studio elenca Perplexity Labs tra i suoi provider. L'enum TsgcAIChatProvider in sgcAI_Chat.pas ha sette voci, aicpOpenAI, aicpAnthropic, aicpGemini, aicpDeepSeek, aicpOllama, aicpGrok e aicpMistral, e Perplexity non è tra queste. Separatamente, sgcVer.inc definisce SGC_AI solo dentro {$IFDEF MSWINDOWS}, quindi il componente TsgcAIChat compila solo su Windows. Le classi provider sottostanti e i componenti MCP non hanno questa limitazione, ma il componente di chat sì.

MQTT su Raspberry Pi

La pagina di TMS MQTT nomina Raspberry Pi nel suo elenco di piattaforme. Le guardie di piattaforma di sgcWebSockets in sgcVer.inc coprono Windows, macOS, Linux, iOS e Android, ed esiste un package Lazarus, ma Raspberry Pi non è indicato come target supportato in nessun punto del codice sorgente.

Un client WebSocket, sgcWebSockets

Classi e membri dichiarati in sgcWebSocket.pas, sgcWebSocket_Classes.pas e 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, dichiarato come procedure(Connection: TsgcWSConnection; const Text: string) of object. WriteData è una procedure, mentre Connect e Disconnect sono function che restituiscono Boolean, quindi impostare Active è la via più breve.

Un client WebSocket, TMS FNC WebSocket

Membri tratti dal riferimento di 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');

Il riferimento non documenta un meccanismo di riconnessione, un'API di negoziazione del sottoprotocollo o un'estensione di compressione per questo componente. Controlla tu stesso la pagina prima di farci affidamento.

MQTT sullo stesso componente di connessione

Dichiarato in sgcWebSocket_Protocols.pas e 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;

Assegnare a Client un TsgcTCPClient fa girare la stessa sessione MQTT su TCP semplice invece che su WebSocket, senza nessun'altra modifica. Subscribe e Publish sono function che restituiscono l'identificatore del pacchetto come Word, e TwsMQTTVersion è (mqtt311, mqtt5).

Una chiamata a un LLM

Dichiarato in sgcAI.pas e sgcAI_Chat.pas. SGC_AI è definito nell'edizione Enterprise su 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;

Cambiare provider è una sola assegnazione di enum. Chat restituisce l'intera risposta come stringa, ChatStream solleva OnChatStream per ogni chunk e permette al gestore di annullare, e ChatAsync restituisce un IsgcFuture<string> su Delphi 2010 e successivi.