PB 发送消息到Rabbit M Q

说起PB 老古董了, 纠结了好久, PB人员说不会连接 MQ 。 这个事情拖了快一年了。
最近实在忍不过去了, 只能我这个 .net 程序员出手了。

百度了一下pb的语法和入门教程。
然后找了下RabbitMQ的手册。 发现向RabbitMQ发送消息可以通过两种方法,
一种是官方自定义的AMQP协议, 这种协议是基于Socket的, 要解析数据包,还得会Socket编程。 主要是PB俺不熟悉, 里面牵扯到一大堆的字符串解析分割,之类的操作。很麻烦。

另外一种是RabbitMQ 自带的HTTP管理客户端,对外开放了HTTP API, 研究了一下, 发现HTTPAPI 支持推送消息到RabbitMQ 这种模式比较简单无需解析Socket的AMQP协议, 虽然慢了那么一点点, 但是对于我们这种企业内部的系统来讲, 这点性能损耗完全不影响。

经过一翻的折腾, 最后搞定了。

OLEObject dom, http
String Http_Name,result,ls_args
//注意这里的%2F是  vhost为/的对应值 所以这个 %2F 代表 / 
Http_Name = "http://192.168.20.207:15672/api/exchanges/%2F/amq.topic/publish"
//Http_Name = "http://192.168.20.207:15672/api/nodes"
//dom = CREATE OLEObject
http = CREATE OLEObject
http.ConnectToNewObject("Msxml2.XMLHTTP") 

ls_args = '{"properties":{},"routing_key":"IS.Report.Received@mm.com改成自己的key","payload":"具体的消息内容,自己处理吧","payload_encoding":"string"}'
//ls_args = '' 
http.Open( "POST", Http_Name, TRUE)
http.setrequestheader("Content-type","application/json")
http.setrequestheader("Authorization","Basic TUtNUTpNS01R")  //TUtNUTpNS01R 是在 http://tool.oschina.net/encrypt?type=3 对 "用户名:密码" 进行base64加密后的字符串

http.setrequestheader("Content-Length",string( Len(ls_args) ) )
http.Send(ls_args)
do While http.readyState <> 4 // ' 查询状态,延时
yield()
Loop

result = http.responseText //这个测试用! 你可不写
messagebox( 'result ',result)
发布了265 篇原创文章 · 获赞 418 · 访问量 127万+
展开阅读全文

没有更多推荐了,返回首页

©️2019 CSDN 皮肤主题: 大白 设计师: CSDN官方博客

分享到微信朋友圈

×

扫一扫,手机浏览