Porównanie sgcWebSockets i TMS Software

TMS FNC WebSocket

TMS Software · Komercyjny

Komponenty klienta i serwera WebSocket implementujące RFC 6455, w jednym produkcie. Jego dokumentacja wymienia cztery komponenty, TTMSFNCWebSocketClient, TTMSFNCWebSocketServer, TTMSFNCWhatsAppServer i TTMSFNCWhatsAppReceiver, oraz podaje VCL na Win32 i Win64 oraz FMX na Win32, Win64, macOS, iOS, Linux i Android. RAD Studio od 10.1 Berlin do 13 Florence.

Strona oficjalna

TMS Sparkle

TMS Software · Komercyjny

Framework do programowania sieciowego i internetowego, z klasami zarówno dla aplikacji klienckich, jak i serwerowych. Jego serwer HTTP działa na stosie http.sys w Windows, jako moduł WebBroker dla Apache w Linuksie albo przez samodzielny serwer gniazd w Linuksie i Windows. Udostępnia też przełączenie na WebSocket po stronie serwera przez IWebSocketUpgrader, dostępne dla Delphi XE8 lub nowszego. Sparkle jest frameworkiem leżącym pod TMS XData i TMS RemoteDB.

Strona oficjalna

TMS MQTT

TMS Software · Komercyjny

Wieloplatformowa biblioteka klienta wiadomości. Jej strona produktu opisuje ją jako implementującą pełną specyfikację MQTT v3.1.1 i v5, z nieblokującą, wielowątkową architekturą komponentów, niewizualnym komponentem logowania oraz zastosowaniem w aplikacjach VCL, FMX i LCL na Windows, macOS, Linuksie, iOS, Androidzie i Raspberry Pi. Lista obsługiwanych środowisk IDE sięga od RAD Studio XE3 do 13 Florence.

Strona oficjalna

TMS AI Studio

TMS Software · Komercyjny

Komponenty LLM i agentów dla Delphi i C++ Builder. Jego strona produktu wymienia OpenAI, Google Gemini, xAI Grok, DeepSeek, Anthropic Claude, Perplexity Labs, Ollama i Mistral AI, wywoływanie funkcji z konfigurowalnymi narzędziami, generowanie wspomagane wyszukiwaniem, wejście multimodalne obejmujące obrazy, pliki PDF i pliki audio oraz agentów przez pełny protokół klienta i serwera MCP. Delphi od 11 Alexandria do 13 Florence.

Strona oficjalna

TMS FNC Cloud Pack

TMS Software · Komercyjny

Komponenty do usług chmurowych, opisane na jego stronie jako uniwersalne komponenty do płynnego dostępu do Google, Microsoft, PayPal i wielu innych usług chmurowych. Wykaz obejmuje przechowywanie plików, płatności, tłumaczenie, kalendarz i kontakty, logowanie zdarzeń, wiadomości oraz usługi AI. Podaje pełną zgodność z VCL, FireMonkey i TMS WEB Core, więc ten sam zestaw komponentów jest dostępny dla aplikacji przeglądarkowej skompilowanej z Object Pascala.

Strona oficjalna

Klient i serwer w jednym produkcie

TMS FNC WebSocket dostarcza TTMSFNCWebSocketClient i TTMSFNCWebSocketServer w jednym produkcie za jedną cenę. sgcWebSockets rozdziela je między edycje. TsgcWebSocketClient kompiluje się w edycji Standard, natomiast każdy komponent serwera, TsgcWebSocketServer, TsgcWebSocketHTTPServer, TsgcWebSocketProxyServer i TsgcWebSocketLoadBalancerServer, znajduje się wewnątrz {$IFDEF SGC_EDT_PRO} w sgcWebSocket.pas, więc serwer sgcWebSockets wymaga edycji Professional lub wyższej.

Object Pascal w przeglądarce

TMS WEB Core kompiluje Object Pascal do JavaScriptu i daje przeglądarce TWebSocketClient z HostName, Port, Connect, Send oraz zdarzeniem OnDataReceived. Komponenty TMS FNC Cloud Pack również tam działają. sgcWebSockets nie ma celu przeglądarkowego w ogóle. Jego komponenty kompilują się do kodu natywnego, więc frontend przeglądarkowy pisze się w JavaScripcie albo w innym frameworku, a rozmawia on z serwerem sgcWebSockets po sieci jak każdy inny klient.

Szersza oferta TMS i jedno odnowienie

TMS XData i TMS RemoteDB działają na Sparkle, więc IWebSocketUpgrader z Sparkle dokłada push do hosta, który już istnieje, zamiast dokładać drugiego. TMS ALL-ACCESS odnawia całą ofertę TMS, łącznie z siatkami, planerami, wykresami i raportowaniem, obok produktów sieciowych na jednej fakturze. eSeGeCe All-Access obejmuje biblioteki eSeGeCe, czyli sieć, HTML przez HTTP, kryptografię i podpisywanie, a nie kontrolki interfejsu ogólnego przeznaczenia.

Dostawcy AI i to, gdzie działa komponent czatu

TMS AI Studio wymienia wśród swoich dostawców Perplexity Labs. Typ wyliczeniowy TsgcAIChatProvider w sgcAI_Chat.pas ma siedem pozycji, aicpOpenAI, aicpAnthropic, aicpGemini, aicpDeepSeek, aicpOllama, aicpGrok i aicpMistral, a Perplexity nie jest jedną z nich. Osobno, sgcVer.inc definiuje SGC_AI wyłącznie wewnątrz {$IFDEF MSWINDOWS}, więc komponent TsgcAIChat kompiluje się tylko na Windows. Klasy dostawców leżące pod spodem i komponenty MCP nie są w ten sposób ograniczone, ale komponent czatu jest.

MQTT na Raspberry Pi

Strona TMS MQTT wymienia Raspberry Pi na swojej liście platform. Zabezpieczenia platformowe sgcWebSockets w sgcVer.inc obejmują Windows, macOS, Linuksa, iOS i Androida, jest też pakiet dla Lazarusa, ale Raspberry Pi nie jest nigdzie w kodzie wskazane jako obsługiwany cel.

Klient WebSocket, sgcWebSockets

Klasy i składowe zadeklarowane w sgcWebSocket.pas, sgcWebSocket_Classes.pas i 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 to TsgcWSMessageEvent, zadeklarowane jako procedure(Connection: TsgcWSConnection; const Text: string) of object. WriteData jest procedurą, natomiast Connect i Disconnect są funkcjami zwracającymi Boolean, więc ustawienie Active to najkrótsza droga.

Klient WebSocket, TMS FNC WebSocket

Składowe zaczerpnięte z dokumentacji 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');

Dokumentacja nie opisuje dla tego komponentu mechanizmu ponownego łączenia, API negocjacji podprotokołu ani rozszerzenia kompresji. Sprawdź tę stronę samodzielnie, zanim się na tym oprzesz.

MQTT przez ten sam komponent połączenia

Zadeklarowane w sgcWebSocket_Protocols.pas i 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;

Przypisanie do Client obiektu TsgcTCPClient prowadzi tę samą sesję MQTT po zwykłym TCP zamiast po WebSocket, bez żadnej innej zmiany. Subscribe i Publish są funkcjami zwracającymi identyfikator pakietu jako Word, a TwsMQTTVersion to (mqtt311, mqtt5).

Wywołanie LLM

Zadeklarowane w sgcAI.pas i sgcAI_Chat.pas. SGC_AI jest zdefiniowane w edycji Enterprise na 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;

Zmiana dostawcy to jedno przypisanie wartości wyliczeniowej. Chat zwraca całą odpowiedź jako łańcuch znaków, ChatStream zgłasza OnChatStream dla każdego fragmentu i pozwala procedurze obsługi przerwać, a ChatAsync zwraca IsgcFuture<string> w Delphi 2010 i nowszych.