sgcWebSockets와 TMS Software 비교

TMS FNC WebSocket

TMS Software · 상용

RFC 6455를 구현한 WebSocket 클라이언트와 서버 컴포넌트를 한 제품에 담았어요. 문서에는 TTMSFNCWebSocketClient, TTMSFNCWebSocketServer, TTMSFNCWhatsAppServer, TTMSFNCWhatsAppReceiver 네 가지 컴포넌트가 나와 있고, VCL은 Win32와 Win64에서, FMX는 Win32, Win64, macOS, iOS, Linux, Android에서 지원한다고 적혀 있어요. RAD Studio 10.1 Berlin부터 13 Florence까지예요.

공식 페이지

TMS Sparkle

TMS Software · 상용

네트워크와 인터넷 프로그래밍을 위한 프레임워크로, 클라이언트와 서버 애플리케이션 양쪽을 위한 클래스를 갖고 있어요. HTTP 서버는 Windows의 http.sys 스택 위에서, Linux에서는 WebBroker Apache 모듈로, 또는 Linux와 Windows에서 자체 소켓 서버로 동작해요. IWebSocketUpgrader를 통해 서버 쪽 WebSocket 업그레이드도 제공하고, Delphi XE8 이상에서 쓸 수 있어요. Sparkle은 TMS XData와 TMS RemoteDB의 바탕이 되는 프레임워크예요.

공식 페이지

TMS MQTT

TMS Software · 상용

크로스플랫폼 메시징 클라이언트 라이브러리예요. 제품 페이지에는 MQTT v3.1.1과 v5 사양을 완전히 구현했고, 논블로킹 멀티스레드 컴포넌트 구조와 비주얼이 아닌 로거 컴포넌트를 갖췄으며, Windows, macOS, Linux, iOS, Android, Raspberry Pi에서 VCL과 FMX, LCL 애플리케이션에 쓸 수 있다고 적혀 있어요. 지원 IDE 목록은 RAD Studio XE3부터 13 Florence까지예요.

공식 페이지

TMS AI Studio

TMS Software · 상용

Delphi와 C++ Builder를 위한 LLM 및 에이전트 컴포넌트예요. 제품 페이지에는 OpenAI, Google Gemini, xAI Grok, DeepSeek, Anthropic Claude, Perplexity Labs, Ollama, Mistral AI가 나열돼 있고, 사용자 정의 툴을 쓰는 함수 호출, 검색 증강 생성, 이미지와 PDF, 오디오 파일을 아우르는 멀티모달 입력, 그리고 완전한 MCP 클라이언트와 서버 프로토콜을 통한 에이전트가 적혀 있어요. Delphi 11 Alexandria부터 13 Florence까지예요.

공식 페이지

TMS FNC Cloud Pack

TMS Software · 상용

클라우드 서비스를 위한 컴포넌트로, 페이지에는 Google과 Microsoft, PayPal을 비롯한 여러 클라우드 서비스에 매끄럽게 접근하는 범용 컴포넌트라고 적혀 있어요. 목록에는 파일 저장소와 결제, 번역, 캘린더와 연락처, 로깅, 메시징, AI 서비스가 들어 있어요. VCL과 FireMonkey, TMS WEB Core와 완전히 호환된다고 밝히고 있어서, Object Pascal로 컴파일한 브라우저 애플리케이션에서도 같은 컴포넌트 집합을 쓸 수 있어요.

공식 페이지

한 제품에 담긴 클라이언트와 서버

TMS FNC WebSocket은 TTMSFNCWebSocketClient와 TTMSFNCWebSocketServer를 하나의 제품, 하나의 가격에 담아 제공해요. sgcWebSockets는 이 둘을 에디션으로 나눠요. TsgcWebSocketClient는 Standard 에디션에서 컴파일되지만, 서버 컴포넌트인 TsgcWebSocketServer, TsgcWebSocketHTTPServer, TsgcWebSocketProxyServer, TsgcWebSocketLoadBalancerServer는 모두 sgcWebSocket.pas의 {$IFDEF SGC_EDT_PRO} 안에 있어요. 그래서 sgcWebSockets 서버에는 Professional 에디션 이상이 필요해요.

브라우저 안의 Object Pascal

TMS WEB Core는 Object Pascal을 JavaScript로 컴파일하고, 브라우저에 HostName, Port, Connect, Send와 OnDataReceived 이벤트를 가진 TWebSocketClient를 제공해요. TMS FNC Cloud Pack 컴포넌트도 거기서 동작하고요. sgcWebSockets에는 브라우저 타깃이 아예 없어요. 컴포넌트가 네이티브 코드로 컴파일되기 때문에, 브라우저 프런트엔드는 JavaScript나 다른 프레임워크로 작성하고, 다른 클라이언트와 마찬가지로 회선을 통해 sgcWebSockets 서버와 이야기해요.

더 넓은 TMS 제품군, 그리고 하나의 갱신

TMS XData와 TMS RemoteDB는 Sparkle 위에서 동작해요. 그래서 Sparkle의 IWebSocketUpgrader는 호스트를 하나 더 두는 대신 이미 있는 호스트에 푸시를 더해줘요. TMS ALL-ACCESS는 네트워크 제품과 함께 그리드와 플래너, 차트, 리포팅까지 TMS 제품군 전체를 하나의 청구서로 갱신해요. eSeGeCe All-Access가 아우르는 건 eSeGeCe 라이브러리, 즉 네트워크와 HTTP 위의 HTML, 암호화와 서명이고, 범용 UI 컨트롤은 아니에요.

AI 공급자, 그리고 채팅 컴포넌트가 도는 곳

TMS AI Studio는 공급자 목록에 Perplexity Labs를 넣어요. sgcAI_Chat.pas의 TsgcAIChatProvider 열거형에는 aicpOpenAI, aicpAnthropic, aicpGemini, aicpDeepSeek, aicpOllama, aicpGrok, aicpMistral 일곱 항목이 있고 Perplexity는 그중에 없어요. 별개로 sgcVer.inc는 SGC_AI를 {$IFDEF MSWINDOWS} 안에서만 정의해요. 그래서 TsgcAIChat 컴포넌트는 Windows에서만 컴파일돼요. 그 아래의 공급자 클래스와 MCP 컴포넌트는 그런 제약이 없지만, 채팅 컴포넌트는 제약을 받아요.

Raspberry Pi에서의 MQTT

TMS MQTT 페이지는 플랫폼 목록에 Raspberry Pi를 넣고 있어요. sgcVer.inc의 sgcWebSockets 플랫폼 가드는 Windows와 macOS, Linux, iOS, Android를 다루고 Lazarus 패키지도 있지만, 소스 어디에도 Raspberry Pi가 지원 타깃으로 명시돼 있지는 않아요.

WebSocket 클라이언트, sgcWebSockets

sgcWebSocket.pas, sgcWebSocket_Classes.pas, 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는 TsgcWSMessageEvent이고 procedure(Connection: TsgcWSConnection; const Text: string) of object로 선언돼 있어요. WriteData는 프로시저이고 Connect와 Disconnect는 Boolean을 반환하는 함수예요. 그래서 Active를 설정하는 게 가장 짧은 진입 방법이에요.

WebSocket 클라이언트, TMS FNC WebSocket

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

이 레퍼런스에는 해당 컴포넌트의 재연결 메커니즘이나 서브프로토콜 협상 API, 압축 확장이 문서화돼 있지 않아요. 그 점에 기대기 전에 페이지를 직접 확인해 주세요.

같은 연결 컴포넌트 위의 MQTT

sgcWebSocket_Protocols.pas와 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;

Client에 TsgcTCPClient를 대신 할당하면 다른 변경 없이 같은 MQTT 세션이 WebSocket이 아니라 평범한 TCP 위에서 돌아가요. Subscribe와 Publish는 패킷 식별자를 Word로 반환하는 함수이고, TwsMQTTVersion은 (mqtt311, mqtt5)예요.

LLM 호출

sgcAI.pas와 sgcAI_Chat.pas에 선언돼 있어요. SGC_AI는 Windows의 Enterprise 에디션에서 정의돼요

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;

공급자를 바꾸는 건 열거형 대입 한 번이에요. Chat은 답변 전체를 문자열로 반환하고, ChatStream은 청크마다 OnChatStream을 발생시키며 핸들러가 취소할 수 있게 해줘요. ChatAsync는 Delphi 2010 이상에서 IsgcFuture<string>을 반환해요.