sgcWebSockets y TMS Software comparados

TMS FNC WebSocket

TMS Software · Comercial

Componentes de cliente y servidor WebSocket que implementan RFC 6455, en un solo producto. Su documentación enumera cuatro componentes, TTMSFNCWebSocketClient, TTMSFNCWebSocketServer, TTMSFNCWhatsAppServer y TTMSFNCWhatsAppReceiver, e indica VCL en Win32 y Win64, y FMX en Win32, Win64, macOS, iOS, Linux y Android. RAD Studio 10.1 Berlin hasta 13 Florence.

Página oficial

TMS Sparkle

TMS Software · Comercial

Un framework para programación de red e internet, con clases tanto para aplicaciones cliente como para aplicaciones servidor. Su servidor HTTP se apoya en la pila http.sys de Windows, en un módulo Apache WebBroker sobre Linux, o en un servidor de sockets autónomo sobre Linux y Windows. También ofrece la actualización a WebSocket en el lado del servidor mediante IWebSocketUpgrader, disponible para Delphi XE8 o posterior. Sparkle es el framework que hay debajo de TMS XData y TMS RemoteDB.

Página oficial

TMS MQTT

TMS Software · Comercial

Una biblioteca cliente de mensajería multiplataforma. Su página de producto la describe como una implementación completa de las especificaciones MQTT v3.1.1 y v5, con una arquitectura de componentes multihilo y no bloqueante, un componente de registro no visual, y uso en aplicaciones VCL, FMX y LCL sobre Windows, macOS, Linux, iOS, Android y Raspberry Pi. La lista de IDE compatibles va de RAD Studio XE3 a 13 Florence.

Página oficial

TMS AI Studio

TMS Software · Comercial

Componentes de LLM y de agentes para Delphi y C++ Builder. Su página de producto enumera OpenAI, Google Gemini, xAI Grok, DeepSeek, Anthropic Claude, Perplexity Labs, Ollama y Mistral AI, llamada a funciones con herramientas personalizables, generación aumentada por recuperación, entrada multimodal con imágenes, PDF y archivos de audio, y agentes mediante un protocolo MCP completo de cliente y servidor. Delphi 11 Alexandria hasta 13 Florence.

Página oficial

TMS FNC Cloud Pack

TMS Software · Comercial

Componentes para servicios en la nube, descritos en su página como componentes universales para acceder sin fricción a Google, Microsoft, PayPal y muchos más servicios en la nube. El listado cubre almacenamiento de archivos, pagos, traducción, calendario y contactos, registro, mensajería y los servicios de IA. Indica compatibilidad total con VCL, FireMonkey y TMS WEB Core, de modo que el mismo conjunto de componentes está disponible para una aplicación de navegador compilada desde Object Pascal.

Página oficial

Cliente y servidor en un solo producto

TMS FNC WebSocket incluye TTMSFNCWebSocketClient y TTMSFNCWebSocketServer en un solo producto y a un solo precio. sgcWebSockets reparte los dos entre ediciones. TsgcWebSocketClient compila en la edición Standard, mientras que todos los componentes de servidor, TsgcWebSocketServer, TsgcWebSocketHTTPServer, TsgcWebSocketProxyServer y TsgcWebSocketLoadBalancerServer, están dentro de {$IFDEF SGC_EDT_PRO} en sgcWebSocket.pas, así que un servidor sgcWebSockets necesita la edición Professional o superior.

Object Pascal en el navegador

TMS WEB Core compila Object Pascal a JavaScript y le da al navegador un TWebSocketClient con HostName, Port, Connect, Send y un evento OnDataReceived. Los componentes de TMS FNC Cloud Pack también funcionan ahí. sgcWebSockets no tiene ningún objetivo de navegador. Sus componentes compilan a código nativo, así que un front end de navegador se escribe en JavaScript o en algún otro framework, y habla con un servidor sgcWebSockets por la red como cualquier otro cliente.

La gama TMS más amplia, y una sola renovación

TMS XData y TMS RemoteDB se apoyan en Sparkle, así que el IWebSocketUpgrader de Sparkle añade push a un host que ya está ahí en lugar de añadir un segundo. TMS ALL-ACCESS renueva toda la gama TMS, rejillas, planificadores, gráficas e informes incluidos, junto a los productos de red en una sola factura. eSeGeCe All-Access cubre las bibliotecas de eSeGeCe, que son red, HTML sobre HTTP, criptografía y firma, no controles de interfaz de propósito general.

Proveedores de IA, y dónde se ejecuta el componente de chat

TMS AI Studio enumera Perplexity Labs entre sus proveedores. El enum TsgcAIChatProvider de sgcAI_Chat.pas tiene siete entradas, aicpOpenAI, aicpAnthropic, aicpGemini, aicpDeepSeek, aicpOllama, aicpGrok y aicpMistral, y Perplexity no es una de ellas. Por otro lado, sgcVer.inc define SGC_AI solo dentro de {$IFDEF MSWINDOWS}, así que el componente TsgcAIChat solo compila en Windows. Las clases de proveedor que hay debajo y los componentes MCP no tienen esa restricción, pero el componente de chat sí.

MQTT en Raspberry Pi

La página de TMS MQTT nombra Raspberry Pi en su lista de plataformas. Las guardas de plataforma de sgcWebSockets en sgcVer.inc cubren Windows, macOS, Linux, iOS y Android, y hay un paquete de Lazarus, pero Raspberry Pi no aparece como objetivo compatible en ninguna parte del código.

Un cliente WebSocket, sgcWebSockets

Clases y miembros declarados en sgcWebSocket.pas, sgcWebSocket_Classes.pas y 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 es TsgcWSMessageEvent, declarado como procedure(Connection: TsgcWSConnection; const Text: string) of object. WriteData es un procedimiento, mientras que Connect y Disconnect son funciones que devuelven Boolean, así que asignar Active es la vía más corta para empezar.

Un cliente WebSocket, TMS FNC WebSocket

Miembros tomados de la referencia de 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 referencia no documenta un mecanismo de reconexión, una API de negociación de subprotocolo ni una extensión de compresión para este componente. Revisa la página por tu cuenta antes de contar con ello.

MQTT sobre el mismo componente de conexión

Declarado en sgcWebSocket_Protocols.pas y 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;

Asignar a Client un TsgcTCPClient en su lugar ejecuta la misma sesión MQTT sobre TCP plano en vez de sobre WebSocket, sin ningún otro cambio. Subscribe y Publish son funciones que devuelven el identificador de paquete como Word, y TwsMQTTVersion es (mqtt311, mqtt5).

Una llamada a un LLM

Declarado en sgcAI.pas y sgcAI_Chat.pas. SGC_AI está definido en la edición Enterprise sobre 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;

Cambiar de proveedor es una sola asignación de enum. Chat devuelve la respuesta entera como cadena, ChatStream dispara OnChatStream en cada fragmento y deja que el manejador cancele, y ChatAsync devuelve un IsgcFuture<string> en Delphi 2010 y posteriores.