sgcWebSockets en TMS Software vergeleken

TMS FNC WebSocket

TMS Software · Commercieel

WebSocket-client- en servercomponenten die RFC 6455 implementeren, in één product. De documentatie noemt vier componenten, TTMSFNCWebSocketClient, TTMSFNCWebSocketServer, TTMSFNCWhatsAppServer en TTMSFNCWhatsAppReceiver, en vermeldt VCL op Win32 en Win64, en FMX op Win32, Win64, macOS, iOS, Linux en Android. RAD Studio 10.1 Berlin tot en met 13 Florence.

Officiële pagina

TMS Sparkle

TMS Software · Commercieel

Een framework voor netwerk- en internetprogrammering, met klassen voor zowel client- als servertoepassingen. De HTTP-server draait op de Windows http.sys-stack, als WebBroker Apache-module op Linux, of via een zelfstandige socketserver op Linux en Windows. Het biedt daarnaast een WebSocket-upgrade aan de serverkant via IWebSocketUpgrader, beschikbaar voor Delphi XE8 of nieuwer. Sparkle is het framework onder TMS XData en TMS RemoteDB.

Officiële pagina

TMS MQTT

TMS Software · Commercieel

Een cross-platform messaging-clientbibliotheek. De productpagina beschrijft het als een volledige implementatie van de MQTT v3.1.1- en v5-specificatie, met een niet-blokkerende multithreaded componentarchitectuur, een niet-visueel loggercomponent, en gebruik in VCL-, FMX- en LCL-toepassingen op Windows, macOS, Linux, iOS, Android en Raspberry Pi. De lijst met ondersteunde IDE's loopt van RAD Studio XE3 tot 13 Florence.

Officiële pagina

TMS AI Studio

TMS Software · Commercieel

LLM- en agentcomponenten voor Delphi en C++ Builder. De productpagina noemt OpenAI, Google Gemini, xAI Grok, DeepSeek, Anthropic Claude, Perplexity Labs, Ollama en Mistral AI, function calling met aanpasbare tools, retrieval augmented generation, multimodale invoer met afbeeldingen, PDF's en audiobestanden, en agents via een volledig MCP-client- en serverprotocol. Delphi 11 Alexandria tot en met 13 Florence.

Officiële pagina

TMS FNC Cloud Pack

TMS Software · Commercieel

Componenten voor clouddiensten, op de eigen pagina beschreven als universele componenten voor naadloze toegang tot Google, Microsoft, PayPal en veel meer clouddiensten. De opsomming omvat bestandsopslag, betalingen, vertaling, agenda en contacten, logging, messaging en de AI-diensten. Er wordt volledige compatibiliteit met VCL, FireMonkey en TMS WEB Core vermeld, zodat dezelfde componentenset beschikbaar is voor een browsertoepassing die uit Object Pascal is gecompileerd.

Officiële pagina

Client en server in één product

TMS FNC WebSocket levert TTMSFNCWebSocketClient en TTMSFNCWebSocketServer in één product voor één prijs. sgcWebSockets verdeelt die twee over edities. TsgcWebSocketClient compileert in de editie Standard, terwijl elk servercomponent, TsgcWebSocketServer, TsgcWebSocketHTTPServer, TsgcWebSocketProxyServer en TsgcWebSocketLoadBalancerServer, in sgcWebSocket.pas binnen {$IFDEF SGC_EDT_PRO} staat, dus een sgcWebSockets-server vereist de editie Professional of hoger.

Object Pascal in de browser

TMS WEB Core compileert Object Pascal naar JavaScript en geeft de browser een TWebSocketClient met HostName, Port, Connect, Send en een OnDataReceived-gebeurtenis. Componenten van TMS FNC Cloud Pack draaien daar ook. sgcWebSockets heeft helemaal geen browsertarget. De componenten compileren naar native code, dus een browserfront-end wordt in JavaScript of in een ander framework geschreven, en praat over de lijn met een sgcWebSockets-server zoals elke andere client.

Het bredere TMS-assortiment, en één verlenging

TMS XData en TMS RemoteDB draaien op Sparkle, dus de IWebSocketUpgrader van Sparkle voegt push toe aan een host die er al staat in plaats van er een tweede naast te zetten. TMS ALL-ACCESS verlengt het hele TMS-assortiment, inclusief grids, planners, grafieken en rapportage, naast de netwerkproducten op één factuur. eSeGeCe All-Access dekt de eSeGeCe-bibliotheken, en dat zijn netwerken, HTML over HTTP, crypto en ondertekening, geen UI-controls voor algemeen gebruik.

AI-providers, en waar het chatcomponent draait

TMS AI Studio noemt Perplexity Labs onder zijn providers. De enum TsgcAIChatProvider in sgcAI_Chat.pas heeft zeven waarden, aicpOpenAI, aicpAnthropic, aicpGemini, aicpDeepSeek, aicpOllama, aicpGrok en aicpMistral, en Perplexity zit daar niet bij. Daarnaast definieert sgcVer.inc SGC_AI alleen binnen {$IFDEF MSWINDOWS}, zodat het component TsgcAIChat alleen op Windows compileert. De onderliggende providerklassen en de MCP-componenten zijn niet zo beperkt, het chatcomponent wel.

MQTT op Raspberry Pi

De pagina van TMS MQTT noemt Raspberry Pi in de platformlijst. De platformguards van sgcWebSockets in sgcVer.inc dekken Windows, macOS, Linux, iOS en Android, en er is een Lazarus-package, maar Raspberry Pi wordt nergens in de broncode als ondersteund target genoemd.

Een WebSocket-client, sgcWebSockets

Klassen en members gedeclareerd in sgcWebSocket.pas, sgcWebSocket_Classes.pas en 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 is een TsgcWSMessageEvent, gedeclareerd als procedure(Connection: TsgcWSConnection; const Text: string) of object. WriteData is een procedure, terwijl Connect en Disconnect functies zijn die een Boolean teruggeven, dus Active instellen is de kortste weg naar binnen.

Een WebSocket-client, TMS FNC WebSocket

Members overgenomen uit de referentie van 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');

De referentie documenteert voor dit component geen herverbindingsmechanisme, geen API voor subprotocolonderhandeling en geen compressie-extensie. Controleer de pagina zelf voordat je daarop vertrouwt.

MQTT over hetzelfde verbindingscomponent

Gedeclareerd in sgcWebSocket_Protocols.pas en 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;

Wijs je aan Client in plaats daarvan een TsgcTCPClient toe, dan loopt dezelfde MQTT-sessie over gewone TCP in plaats van over WebSocket, zonder verdere wijziging. Subscribe en Publish zijn functies die de packet identifier als een Word teruggeven, en TwsMQTTVersion is (mqtt311, mqtt5).

Een LLM-aanroep

Gedeclareerd in sgcAI.pas en sgcAI_Chat.pas. SGC_AI is gedefinieerd in de editie Enterprise op 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;

Van provider wisselen is één enum-toewijzing. Chat geeft het hele antwoord als string terug, ChatStream roept OnChatStream aan voor elke chunk en laat de handler annuleren, en ChatAsync geeft op Delphi 2010 en later een IsgcFuture<string> terug.