Connects to a message broker instance with default port and credentials, and sends a text message.

    Factory: IConnectionFactory
    ...
    Factory := TBTConnectionFactory.Create('stomp://example.com');
    ...
    procedure SendHelloWorld;
    var
      Ctx: IMQContext;
      Destination: IDestination;
    begin
      Ctx := Factory.CreateContext;
      try
        Destination := Ctx.CreateQueue('hello_world');
        Ctx.CreateProducer.Send(Destination, 'Hello, World!');
      finally
        Ctx.Close;
      end;
    end;

Connects to a message broker instance with default port and credentials, and receives a text message.

    Factory: IConnectionFactory
    ...
    Factory := TBTConnectionFactory.Create('stomp://example.com');
    ...
    procedure ReceiveHelloWorld;
    var
      Ctx: IMQContext;
      Destination: IDestination;
      Consumer: IMQConsumer;
      TextMessage: ITextMessage;
    begin
      Ctx := Factory.CreateContext;
      try
        Destination := Ctx.CreateQueue('hello_world');
        Consumer := Ctx.CreateConsumer(Destination);
        TextMessage := Consumer.Receive(2500) as ITextMessage;
        if Assigned(TextMessage) then 
          ShowMessage(TextMessage.Text);
      finally
        Ctx.Close;
      end;
    end;