sgcWebSockets e TMS Software comparados

TMS FNC WebSocket

TMS Software · Comercial

Componentes de cliente e servidor WebSocket implementando a RFC 6455, em um único produto. A documentação dele lista quatro componentes, TTMSFNCWebSocketClient, TTMSFNCWebSocketServer, TTMSFNCWhatsAppServer e TTMSFNCWhatsAppReceiver, e informa VCL em Win32 e Win64, e FMX em Win32, Win64, macOS, iOS, Linux e Android. Do RAD Studio 10.1 Berlin ao 13 Florence.

Página oficial

TMS Sparkle

TMS Software · Comercial

Um framework para programação de rede e de internet, com classes para aplicações cliente e servidor. O servidor HTTP dele roda sobre a pilha http.sys do Windows, como módulo WebBroker do Apache no Linux, ou através de um servidor de socket autocontido em Linux e Windows. Ele também oferece upgrade de WebSocket no lado servidor através de IWebSocketUpgrader, disponível para Delphi XE8 ou mais recente. O Sparkle é o framework por baixo do TMS XData e do TMS RemoteDB.

Página oficial

TMS MQTT

TMS Software · Comercial

Uma biblioteca cliente de mensageria multiplataforma. A página do produto a descreve como implementando por completo a especificação MQTT v3.1.1 e v5, com uma arquitetura de componentes multithread e não bloqueante, um componente de log não visual, e uso em aplicações VCL, FMX e LCL em Windows, macOS, Linux, iOS, Android e Raspberry Pi. A lista de IDEs suportadas vai do RAD Studio XE3 ao 13 Florence.

Página oficial

TMS AI Studio

TMS Software · Comercial

Componentes de LLM e de agentes para Delphi e C++ Builder. A página do produto lista OpenAI, Google Gemini, xAI Grok, DeepSeek, Anthropic Claude, Perplexity Labs, Ollama e Mistral AI, function calling com tools personalizáveis, retrieval augmented generation, entrada multimodal cobrindo imagens, PDFs e arquivos de áudio, e agentes através de um protocolo completo de cliente e servidor MCP. Do Delphi 11 Alexandria ao 13 Florence.

Página oficial

TMS FNC Cloud Pack

TMS Software · Comercial

Componentes para serviços em nuvem, descritos na página deles como componentes universais para acesso integrado ao Google, à Microsoft, ao PayPal e a muitos outros serviços em nuvem. A listagem cobre armazenamento de arquivos, pagamentos, tradução, calendário e contatos, log, mensageria e os serviços de IA. Ela informa compatibilidade total com VCL, FireMonkey e TMS WEB Core, então o mesmo conjunto de componentes está disponível para uma aplicação de navegador compilada a partir do Object Pascal.

Página oficial

Cliente e servidor em um só produto

O TMS FNC WebSocket entrega TTMSFNCWebSocketClient e TTMSFNCWebSocketServer em um único produto, por um único preço. O sgcWebSockets divide os dois entre edições. O TsgcWebSocketClient compila na edição Standard, enquanto todo componente de servidor, TsgcWebSocketServer, TsgcWebSocketHTTPServer, TsgcWebSocketProxyServer e TsgcWebSocketLoadBalancerServer, fica dentro de {$IFDEF SGC_EDT_PRO} em sgcWebSocket.pas, então um servidor sgcWebSockets precisa da edição Professional ou superior.

Object Pascal no navegador

O TMS WEB Core compila Object Pascal para JavaScript e dá ao navegador um TWebSocketClient com HostName, Port, Connect, Send e um evento OnDataReceived. Os componentes do TMS FNC Cloud Pack também rodam ali. O sgcWebSockets não tem alvo de navegador nenhum. Os componentes dele compilam para código nativo, então um front end de navegador é escrito em JavaScript ou em outro framework, e ele conversa com um servidor sgcWebSockets pela rede como qualquer outro cliente.

A linha TMS mais ampla, e uma única renovação

O TMS XData e o TMS RemoteDB rodam sobre o Sparkle, então o IWebSocketUpgrader do Sparkle adiciona push a um host que já existe, em vez de acrescentar um segundo. O TMS ALL-ACCESS renova toda a linha TMS, grids, planners, gráficos e relatórios incluídos, junto com os produtos de rede em uma única fatura. O eSeGeCe All-Access cobre as bibliotecas da eSeGeCe, que são rede, HTML sobre HTTP, criptografia e assinatura, não controles de interface de uso geral.

Provedores de IA, e onde o componente de chat roda

O TMS AI Studio lista a Perplexity Labs entre os provedores dele. O enum TsgcAIChatProvider em sgcAI_Chat.pas tem sete entradas, aicpOpenAI, aicpAnthropic, aicpGemini, aicpDeepSeek, aicpOllama, aicpGrok e aicpMistral, e a Perplexity não é uma delas. Separadamente, o sgcVer.inc define SGC_AI apenas dentro de {$IFDEF MSWINDOWS}, então o componente TsgcAIChat compila somente no Windows. As classes de provedor subjacentes e os componentes MCP não têm essa restrição, mas o componente de chat tem.

MQTT no Raspberry Pi

A página do TMS MQTT cita o Raspberry Pi na lista de plataformas. As guardas de plataforma do sgcWebSockets em sgcVer.inc cobrem Windows, macOS, Linux, iOS e Android, e existe um pacote Lazarus, mas o Raspberry Pi não é citado como alvo suportado em nenhum ponto do código.

Um cliente WebSocket, sgcWebSockets

Classes e membros declarados em 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 é um TsgcWSMessageEvent, declarado como procedure(Connection: TsgcWSConnection; const Text: string) of object. WriteData é um procedure, enquanto Connect e Disconnect são funções que devolvem Boolean, então definir Active é o caminho mais curto.

Um cliente WebSocket, TMS FNC WebSocket

Membros retirados da referência do 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');

A referência não documenta um mecanismo de reconexão, uma API de negociação de subprotocolo nem uma extensão de compressão para este componente. Confira a página você mesmo antes de contar com isso.

MQTT sobre o mesmo componente de conexão

Declarado em 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;

Atribuir a Client um TsgcTCPClient faz a mesma sessão MQTT rodar sobre TCP puro em vez de sobre WebSocket, sem nenhuma outra mudança. Subscribe e Publish são funções que devolvem o identificador do pacote como um Word, e TwsMQTTVersion é (mqtt311, mqtt5).

Uma chamada a um LLM

Declarado em sgcAI.pas e sgcAI_Chat.pas. SGC_AI é definido na edição Enterprise no 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;

Trocar de provedor é uma atribuição de enum. Chat devolve a resposta inteira como string, ChatStream dispara OnChatStream a cada chunk e deixa o manipulador cancelar, e ChatAsync devolve um IsgcFuture<string> no Delphi 2010 e posteriores.