说起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)