message-queue - 向其他用户发送消息

Question

我想知道如何使用 Progress 4gl 向另一个用户发送消息。我们正在尝试减少我工作的 PA 扬声器，我想要某种方式来通知某些用户/用户一些预定义的消息。我不确定 Progress 是否可以做到这一点，或者是否有可以使用的消息队列。如果有人有任何样品、想法或以前做过，请告诉我。谢谢！！

Answer 1

您可能会发现这很有帮助：

继在波士顿和芬兰的演讲之后，dot.r 很高兴地宣布开源 Stomp 项目立即可用。

从http://www.dotr.com或 https://bitbucket.org/jmls/stomp下载，dot.r stomp 程序允许您将进度会话连接到连接到相同的任何其他应用程序或服务消息代理。

支持 Stomp 的开源免费消息代理是：

保险丝(http://fusesource.com/products/fuse-mq-enterprise/)

[现在归红帽公司所有的 Progress 公司] Fuse MQ Enterprise 是一个基于标准的开源消息传递平台，其部署占用空间非常小。无需支付许可费用，再加上可与任何开发环境一起使用的高性能、可靠消息传递，提供了一种支持随处集成的解决方案

ActiveMQ (http://activemq.apache.org/)

Apache ActiveMQ (tm) 是最流行和最强大的开源消息传递和集成模式服务器。Apache ActiveMQ 速度快，支持许多跨语言客户端和协议，带有易于使用的企业集成模式和许多高级特性，同时完全支持 JMS 1.1 和 J2EE 1.4。

Apache ActiveMQ 在 Apache 2.0 许可下发布

兔MQ

RabbitMQ 是一个消息代理。主要思想非常简单：它接受和转发消息。您可以将其视为邮局：当您将邮件发送到邮箱时，您很确定邮递员先生最终会将邮件递送给您的收件人。使用这个比喻 RabbitMQ 是一个邮箱、一个邮局和一个邮递员。

RabbitMQ 和邮局之间的主要区别在于它不处理纸张，而是接受、存储和转发二进制数据块 - 消息。

---

请随时在 https://bitbucket.org/jmls/stomp问题系统上记录任何问题，并 fork 项目以提交您要添加的所有新功能......

dot.r Stomp 使用宽松的 MIT 许可证 (http://en.wikipedia.org/wiki/MIT_License)

玩得开心，享受！

朱利安

我试过了——安装和运行代码非常简单。窥视源头是一种乐趣。

ApacheMQ 上手非常轻松。这是一种非常非常简单的消息传递方式。

如果您是一个基于字符的旧化石（例如我自己），您可能希望跳过 GUI 示例。您可以通过以下方式发送消息：

/* stompQOut.p
 *
 */

dotr.Stomp.Helper.SendMessage:ToQueue("myQueue","a test message")

并通过以下方式接收消息：

/* stompQIn.p
 *
 */

define variable stompClient as dotr.Stomp.StompClient no-undo.

define variable msgTxt as character no-undo format "x(60)".

stompClient = new dotr.Stomp.StompClient().

stompClient:Subscribe( this-procedure ).
stompClient:SubscribeToQueue( "myQueue" ).

pause 0 before-hide.

wait-for close of this-procedure.

procedure NewStompMessage:
  define input parameter stompMessage as dotr.Stomp.StompMessage no-undo.
  message string( stompMessage:Body ).
end.