WAMP Protokolü

uses
  sgcWebSocket, sgcWebSocket_Protocol_WAMP_Client;

var
  WSClient: TsgcWebSocketClient;
  WAMP: TsgcWSPClient_WAMP;
begin
  WSClient := TsgcWebSocketClient.Create(nil);
  WSClient.Host := 'router.example.com';
  WSClient.Port := 8080;

  WAMP := TsgcWSPClient_WAMP.Create(nil);
  WAMP.Client := WSClient;

  WAMP.OnWelcome    := WAMPWelcome;
  WAMP.OnEvent      := WAMPEvent;
  WAMP.OnCallResult := WAMPCallResult;

  WSClient.Active := True;
end;

procedure TForm1.WAMPWelcome(Connection: TsgcWSConnection;
  SessionId, ProtocolVersion, ServerIdent: string);
begin
  WAMP.Prefix('app', 'http://example.com/');
  WAMP.Subscribe('app:news');
  WAMP.Publish('app:news', 'hello');
  WAMP.Call('call-1', 'app:rpc', '{"x":1}');
end;

procedure TForm1.WAMPEvent(Connection: TsgcWSConnection;
  TopicURI, Event: string);
begin
  Memo1.Lines.Add(TopicURI + ': ' + Event);
end;