STOMP avec RabbitMQ

uses
  sgcWebSocket, sgcWebSocket_Protocol_STOMP_RabbitMQ_Client;

var
  WSClient: TsgcWebSocketClient;
  STOMP: TsgcWSPClient_STOMP_RabbitMQ;
begin
  WSClient := TsgcWebSocketClient.Create(nil);
  WSClient.Host := 'rabbit.example.com';
  WSClient.Port := 15674;
  WSClient.Options.Parameters := '/ws';

  STOMP := TsgcWSPClient_STOMP_RabbitMQ.Create(nil);
  STOMP.Client := WSClient;
  STOMP.Authentication.Enabled  := True;
  STOMP.Authentication.UserName := 'guest';
  STOMP.Authentication.Password := 'guest';

  STOMP.OnSTOMPConnected := STOMPConnected;
  STOMP.OnSTOMPMessage   := STOMPMessage;

  WSClient.Active := True;
end;