Delphi WebRTC 시그널링 서버

uses
  sgcWebSocket, sgcWebSocket_Server, sgcWebSocket_Protocols;

var
  WSServer: TsgcWebSocketHTTPServer;
  WebRTC: TsgcWSPServer_WebRTC;
begin
  WSServer := TsgcWebSocketHTTPServer.Create(nil);
  WSServer.Port := 443;
  WSServer.SSL  := True;

  WebRTC := TsgcWSPServer_WebRTC.Create(nil);
  WebRTC.Server := WSServer;

  // 완전한 JSON RTCConfiguration 객체 하나, 접속하는 모든 피어에게 전달됨
  WebRTC.WebRTC.IceServers.Add(
    '{"iceServers": [{"urls": "stun:stun.l.google.com:19302"}]}');

  WebRTC.OnSubscription   := DoJoin;
  WebRTC.OnUnSubscription := DoLeave;

  WSServer.Active := True;

  // 채널의 모든 피어에게 JSON 시그널링 페이로드를 브로드캐스트
  WebRTC.Broadcast('{"type":"offer","sdp":"..."}', 'room-42');
end;