sgcWebSockets ve TMS Software karşılaştırması

TMS FNC WebSocket

TMS Software · Ticari

Tek bir üründe, RFC 6455'i uygulayan WebSocket istemcisi ve sunucusu bileşenleri. Belgeleri dört bileşen listeliyor: TTMSFNCWebSocketClient, TTMSFNCWebSocketServer, TTMSFNCWhatsAppServer ve TTMSFNCWhatsAppReceiver; ayrıca Win32 ile Win64 üzerinde VCL, Win32, Win64, macOS, iOS, Linux ve Android üzerinde FMX belirtiyor. RAD Studio 10.1 Berlin'den 13 Florence'a.

Resmi sayfa

TMS Sparkle

TMS Software · Ticari

Hem istemci hem de sunucu uygulamaları için sınıflar içeren, ağ ve internet programlama çatısı. HTTP sunucusu Windows'ta http.sys yığını üzerinde, Linux'ta bir WebBroker Apache modülü olarak ya da Linux ve Windows'ta kendi kendine yeten bir soket sunucusu üzerinden çalışır. Ayrıca Delphi XE8 ve sonrası için IWebSocketUpgrader ile sunucu tarafında WebSocket yükseltmesi sağlar. Sparkle, TMS XData ve TMS RemoteDB'nin altındaki çatıdır.

Resmi sayfa

TMS MQTT

TMS Software · Ticari

Çok platformlu bir mesajlaşma istemci kütüphanesi. Ürün sayfası onu, MQTT v3.1.1 ve v5 belirtiminin tamamını uygulayan; bloke etmeyen çok iş parçacıklı bir bileşen mimarisi, görsel olmayan bir günlükleyici bileşeni ve Windows, macOS, Linux, iOS, Android ile Raspberry Pi üzerinde VCL, FMX ve LCL uygulamalarında kullanım sunan bir ürün olarak anlatıyor. Desteklenen IDE listesi RAD Studio XE3'ten 13 Florence'a uzanıyor.

Resmi sayfa

TMS AI Studio

TMS Software · Ticari

Delphi ve C++ Builder için LLM ve ajan bileşenleri. Ürün sayfası OpenAI, Google Gemini, xAI Grok, DeepSeek, Anthropic Claude, Perplexity Labs, Ollama ve Mistral AI sağlayıcılarını; özelleştirilebilir araçlarla fonksiyon çağırmayı, geri getirmeyle zenginleştirilmiş üretimi, görselleri, PDF'leri ve ses dosyalarını kapsayan çok kipli girdiyi ve tam bir MCP istemci ve sunucu protokolü üzerinden ajanları listeliyor. Delphi 11 Alexandria'dan 13 Florence'a.

Resmi sayfa

TMS FNC Cloud Pack

TMS Software · Ticari

Bulut servisleri için bileşenler; kendi sayfasında Google, Microsoft, PayPal ve daha birçok bulut servisine sorunsuz erişim için evrensel bileşenler olarak anlatılıyor. Liste dosya depolama, ödemeler, çeviri, takvim ve kişiler, günlükleme, mesajlaşma ve yapay zeka servislerini kapsıyor. VCL, FireMonkey ve TMS WEB Core ile tam uyumluluk belirtiliyor, dolayısıyla aynı bileşen kümesi Object Pascal'dan derlenmiş bir tarayıcı uygulamasına da açık.

Resmi sayfa

Tek üründe istemci ve sunucu

TMS FNC WebSocket, TTMSFNCWebSocketClient ve TTMSFNCWebSocketServer bileşenlerini tek üründe ve tek fiyatla verir. sgcWebSockets ikisini sürümler arasında ayırır. TsgcWebSocketClient Standard sürümünde derlenir, buna karşılık her sunucu bileşeni, TsgcWebSocketServer, TsgcWebSocketHTTPServer, TsgcWebSocketProxyServer ve TsgcWebSocketLoadBalancerServer, sgcWebSocket.pas içinde {$IFDEF SGC_EDT_PRO} içinde yer alır, dolayısıyla bir sgcWebSockets sunucusu Professional sürümü ya da üstünü ister.

Tarayıcıda Object Pascal

TMS WEB Core, Object Pascal'ı JavaScript'e derler ve tarayıcıya HostName, Port, Connect, Send ve bir OnDataReceived olayı olan bir TWebSocketClient verir. TMS FNC Cloud Pack bileşenleri de orada çalışır. sgcWebSockets'in hiç tarayıcı hedefi yoktur. Bileşenleri yerel koda derlenir, dolayısıyla bir tarayıcı ön yüzü JavaScript ya da başka bir çatıyla yazılır ve bir sgcWebSockets sunucusuyla, diğer her istemci gibi, hat üzerinden konuşur.

Daha geniş TMS yelpazesi ve tek yenileme

TMS XData ve TMS RemoteDB, Sparkle üzerinde çalışır, dolayısıyla Sparkle'ın IWebSocketUpgrader bileşeni ikinci bir sunucu eklemek yerine zaten orada olan bir sunucuya itme ekler. TMS ALL-ACCESS, ağ ürünlerinin yanı sıra ızgaralar, planlayıcılar, grafikler ve raporlama dahil bütün TMS yelpazesini tek faturada yeniler. eSeGeCe All-Access ise eSeGeCe kütüphanelerini kapsar; bunlar ağ, HTTP üzerinden HTML, kriptografi ve imzalamadır, genel amaçlı arayüz denetimleri değil.

Yapay zeka sağlayıcıları ve sohbet bileşeninin nerede çalıştığı

TMS AI Studio sağlayıcıları arasında Perplexity Labs'ı listeliyor. sgcAI_Chat.pas içindeki TsgcAIChatProvider numaralandırmasında yedi girdi var: aicpOpenAI, aicpAnthropic, aicpGemini, aicpDeepSeek, aicpOllama, aicpGrok ve aicpMistral; Perplexity bunlardan biri değil. Ayrıca sgcVer.inc, SGC_AI tanımını yalnızca {$IFDEF MSWINDOWS} içinde yapar, dolayısıyla TsgcAIChat bileşeni yalnızca Windows'ta derlenir. Altta yatan sağlayıcı sınıfları ve MCP bileşenleri bu şekilde kısıtlı değildir, ama sohbet bileşeni kısıtlıdır.

Raspberry Pi üzerinde MQTT

TMS MQTT sayfası platform listesinde Raspberry Pi'yi anıyor. sgcVer.inc içindeki sgcWebSockets platform korumaları Windows, macOS, Linux, iOS ve Android'i kapsıyor ve bir Lazarus paketi var, ama kaynakta hiçbir yerde Raspberry Pi desteklenen bir hedef olarak belirtilmiyor.

Bir WebSocket istemcisi, sgcWebSockets

Sınıflar ve üyeler sgcWebSocket.pas, sgcWebSocket_Classes.pas ve sgcWebSocket_Client_Base.pas içinde bildirilmiştir

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 bir TsgcWSMessageEvent olup procedure(Connection: TsgcWSConnection; const Text: string) of object olarak bildirilmiştir. WriteData bir yordamdır, buna karşılık Connect ve Disconnect Boolean döndüren fonksiyonlardır, dolayısıyla Active değerini vermek en kısa yoldur.

Bir WebSocket istemcisi, TMS FNC WebSocket

Üyeler TTMSFNCWebSocketClient referansından alınmıştır

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

Referans, bu bileşen için bir yeniden bağlanma mekanizması, bir alt protokol müzakere API'si ya da bir sıkıştırma uzantısı belgelemiyor. Buna dayanmadan önce sayfayı kendiniz kontrol edin.

Aynı bağlantı bileşeni üzerinden MQTT

sgcWebSocket_Protocols.pas ve sgcWebSocket_Protocol_MQTT_Client.pas içinde bildirilmiştir

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;

Client alanına bunun yerine bir TsgcTCPClient atamak, başka hiçbir değişiklik olmadan aynı MQTT oturumunu WebSocket yerine düz TCP üzerinde çalıştırır. Subscribe ve Publish, paket tanımlayıcısını Word olarak döndüren fonksiyonlardır ve TwsMQTTVersion değeri (mqtt311, mqtt5) biçimindedir.

Bir LLM çağrısı

sgcAI.pas ve sgcAI_Chat.pas içinde bildirilmiştir. SGC_AI, Windows'ta Enterprise sürümünde tanımlanır

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;

Sağlayıcı değiştirmek tek bir numaralandırma atamasıdır. Chat yanıtın tamamını dize olarak döndürür, ChatStream her parça için OnChatStream olayını tetikler ve işleyicinin iptal etmesine izin verir, ChatAsync ise Delphi 2010 ve sonrasında bir IsgcFuture<string> döndürür.