sgcWebSockets und TMS Software im Vergleich

TMS FNC WebSocket

TMS Software · Kommerziell

WebSocket-Client- und -Server-Komponenten, die RFC 6455 implementieren, in einem Produkt. Die Dokumentation nennt vier Komponenten, TTMSFNCWebSocketClient, TTMSFNCWebSocketServer, TTMSFNCWhatsAppServer und TTMSFNCWhatsAppReceiver, und nennt VCL auf Win32 und Win64 sowie FMX auf Win32, Win64, macOS, iOS, Linux und Android. RAD Studio 10.1 Berlin bis 13 Florence.

Offizielle Seite

TMS Sparkle

TMS Software · Kommerziell

Ein Framework für Netzwerk- und Internetprogrammierung, mit Klassen für Client- und Server-Anwendungen. Sein HTTP-Server läuft auf dem Windows-http.sys-Stack, als WebBroker-Apache-Modul unter Linux oder über einen eigenständigen Socket-Server unter Linux und Windows. Er bietet außerdem ein serverseitiges WebSocket-Upgrade über IWebSocketUpgrader, verfügbar ab Delphi XE8. Sparkle ist das Framework unter TMS XData und TMS RemoteDB.

Offizielle Seite

TMS MQTT

TMS Software · Kommerziell

Eine plattformübergreifende Messaging-Client-Bibliothek. Die Produktseite beschreibt sie als vollständige Umsetzung der Spezifikationen MQTT v3.1.1 und v5, mit einer nicht blockierenden, mehrfädigen Komponentenarchitektur, einer nicht visuellen Logger-Komponente und Einsatz in VCL-, FMX- und LCL-Anwendungen unter Windows, macOS, Linux, iOS, Android und Raspberry Pi. Die Liste der unterstützten IDEs reicht von RAD Studio XE3 bis 13 Florence.

Offizielle Seite

TMS AI Studio

TMS Software · Kommerziell

LLM- und Agent-Komponenten für Delphi und C++ Builder. Die Produktseite nennt OpenAI, Google Gemini, xAI Grok, DeepSeek, Anthropic Claude, Perplexity Labs, Ollama und Mistral AI, Function Calling mit anpassbaren Tools, Retrieval Augmented Generation, multimodale Eingabe mit Bildern, PDFs und Audiodateien sowie Agenten über ein vollständiges MCP-Client- und -Server-Protokoll. Delphi 11 Alexandria bis 13 Florence.

Offizielle Seite

TMS FNC Cloud Pack

TMS Software · Kommerziell

Komponenten für Cloud-Dienste, auf der Produktseite beschrieben als universelle Komponenten für den nahtlosen Zugriff auf Google, Microsoft, PayPal und viele weitere Cloud-Dienste. Die Auflistung umfasst Dateispeicher, Zahlungen, Übersetzung, Kalender und Kontakte, Logging, Messaging und die KI-Dienste. Angegeben wird volle Kompatibilität mit VCL, FireMonkey und TMS WEB Core, sodass derselbe Komponentensatz auch einer aus Object Pascal kompilierten Browser-Anwendung zur Verfügung steht.

Offizielle Seite

Client und Server in einem Produkt

TMS FNC WebSocket liefert TTMSFNCWebSocketClient und TTMSFNCWebSocketServer in einem Produkt zu einem Preis. sgcWebSockets verteilt die beiden auf Editionen. TsgcWebSocketClient kompiliert in der Edition Standard, während jede Server-Komponente, TsgcWebSocketServer, TsgcWebSocketHTTPServer, TsgcWebSocketProxyServer und TsgcWebSocketLoadBalancerServer, innerhalb von {$IFDEF SGC_EDT_PRO} in sgcWebSocket.pas liegt, sodass ein sgcWebSockets-Server die Edition Professional oder höher braucht.

Object Pascal im Browser

TMS WEB Core kompiliert Object Pascal nach JavaScript und gibt dem Browser einen TWebSocketClient mit HostName, Port, Connect, Send und einem OnDataReceived-Ereignis. Auch die Komponenten von TMS FNC Cloud Pack laufen dort. sgcWebSockets hat überhaupt kein Browser-Ziel. Seine Komponenten kompilieren zu nativem Code, ein Browser-Frontend wird also in JavaScript oder einem anderen Framework geschrieben und spricht über die Leitung mit einem sgcWebSockets-Server wie jeder andere Client.

Das breitere TMS-Sortiment, und eine Verlängerung

TMS XData und TMS RemoteDB laufen auf Sparkle, sodass Sparkles IWebSocketUpgrader Push zu einem bereits vorhandenen Host hinzufügt, statt einen zweiten aufzusetzen. TMS ALL-ACCESS verlängert das gesamte TMS-Sortiment, Grids, Planer, Diagramme und Reporting eingeschlossen, gemeinsam mit den Netzwerkprodukten auf einer Rechnung. eSeGeCe All-Access umfasst die eSeGeCe-Bibliotheken, also Netzwerk, HTML über HTTP, Krypto und Signaturen, keine allgemeinen UI-Steuerelemente.

KI-Anbieter, und wo die Chat-Komponente läuft

TMS AI Studio führt Perplexity Labs unter seinen Anbietern. Das TsgcAIChatProvider-Enum in sgcAI_Chat.pas hat sieben Einträge, aicpOpenAI, aicpAnthropic, aicpGemini, aicpDeepSeek, aicpOllama, aicpGrok und aicpMistral, und Perplexity ist keiner davon. Davon unabhängig definiert sgcVer.inc SGC_AI nur innerhalb von {$IFDEF MSWINDOWS}, sodass die Komponente TsgcAIChat nur unter Windows kompiliert. Die zugrunde liegenden Anbieterklassen und die MCP-Komponenten sind nicht so eingeschränkt, die Chat-Komponente aber schon.

MQTT auf dem Raspberry Pi

Die Seite zu TMS MQTT nennt Raspberry Pi in ihrer Plattformliste. Die Plattform-Guards von sgcWebSockets in sgcVer.inc decken Windows, macOS, Linux, iOS und Android ab, und es gibt ein Lazarus-Package, aber Raspberry Pi wird nirgends im Quellcode als unterstütztes Ziel genannt.

Ein WebSocket-Client, sgcWebSockets

Klassen und Member deklariert in sgcWebSocket.pas, sgcWebSocket_Classes.pas und 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 ist TsgcWSMessageEvent, deklariert als procedure(Connection: TsgcWSConnection; const Text: string) of object. WriteData ist eine Prozedur, während Connect und Disconnect Funktionen sind, die Boolean zurückgeben, sodass das Setzen von Active der kürzeste Weg hinein ist.

Ein WebSocket-Client, TMS FNC WebSocket

Member aus der TTMSFNCWebSocketClient-Referenz

// 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');

Die Referenz dokumentiert für diese Komponente keinen Reconnect-Mechanismus, keine API zur Subprotokoll-Aushandlung und keine Komprimierungserweiterung. Prüfe die Seite selbst, bevor du dich darauf verlässt.

MQTT über dieselbe Verbindungskomponente

Deklariert in sgcWebSocket_Protocols.pas und 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;

Weist du Client stattdessen einen TsgcTCPClient zu, läuft dieselbe MQTT-Sitzung über einfaches TCP statt über WebSocket, ohne weitere Änderung. Subscribe und Publish sind Funktionen, die den Paket-Identifier als Word zurückgeben, und TwsMQTTVersion ist (mqtt311, mqtt5).

Ein LLM-Aufruf

Deklariert in sgcAI.pas und sgcAI_Chat.pas. SGC_AI ist in der Edition Enterprise unter Windows definiert

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;

Der Anbieterwechsel ist eine einzige Enum-Zuweisung. Chat gibt die gesamte Antwort als String zurück, ChatStream löst für jeden Chunk OnChatStream aus und lässt den Handler abbrechen, und ChatAsync gibt ab Delphi 2010 ein IsgcFuture<string> zurück.