向其他用户发送消息

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 许可下发布

RabbitMQ

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.