1

Progress 4gl を使用して別のユーザーにメッセージを送信する方法を考えていました。私が働いている PA スピーカーの音量を下げようとしていますが、特定のユーザーに事前定義されたメッセージを通知する方法が必要です。これが Progress でも可能かどうか、または使用できるメッセージ キューがあるかどうかはわかりません。誰かがサンプル、アイデアを持っているか、以前にこれを行ったことがある場合は、私に知らせてください. ありがとう！！

4

1 に答える 1

1

これが役に立つかもしれません：

ボストンとフィンランドでのプレゼンテーションに続いて、dot.r はオープン ソースの Stomp プロジェクトを発表します。このプロジェクトはすぐに利用できます。

http://www.dotr.comまたは https://bitbucket.org/jmls/stompからダウンロードしてください。dot.r ストンプ プログラムを使用すると、進行状況セッションを、同じネットワークに接続されている他のアプリケーションまたはサービスに接続できます。メッセージブローカー。

Stomp をサポートするオープン ソースの無料メッセージ ブローカーは次のとおりです。

ヒューズ(http://fusesource.com/products/fuse-mq-enterprise/)

[現在は Red Hat Inc が所有する 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 と郵便局の主な違いは、RabbitMQ が紙を扱うのではなく、データのバイナリ BLOB (メッセージ) を受け入れ、保存、転送するという事実です。

https://bitbucket.org/jmls/stomp発行システムで問題を記録し、 追加するすべての新機能をコミットするためにプロジェクトをフォークしてください...

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.
于 2012-09-28T18:54:16.303 に答える