SGC プロトコル

uses
  sgcWebSocket, sgcWebSocket_Server, sgcWebSocket_Protocol_sgc_Server,
  sgcWebSocket_Protocol_sgc_Client, sgcWebSocket_Types;

var
  WSServer: TsgcWebSocketServer;
  ServerProto: TsgcWSPServer_sgc;
  WSClient: TsgcWebSocketClient;
  ClientProto: TsgcWSPClient_sgc;
begin
  // --- server side -----
  WSServer := TsgcWebSocketServer.Create(nil);
  WSServer.Port := 80;
  ServerProto := TsgcWSPServer_sgc.Create(nil);
  ServerProto.Server := WSServer;
  WSServer.Active := True;

  // --- client side -----
  WSClient := TsgcWebSocketClient.Create(nil);
  WSClient.Host := '127.0.0.1';
  WSClient.Port := 80;
  ClientProto := TsgcWSPClient_sgc.Create(nil);
  ClientProto.Client := WSClient;
  WSClient.Active := True;

  // publish / subscribe through a named channel
  ClientProto.Subscribe('orders');
  ClientProto.Publish('{"id":42}', 'orders', '', queueLevel0);
  ClientProto.RPC('call-1', 'getQuote', 'AAPL');
end;