PB 发送消息到Rabbit M Q

版权声明：本文为 走错路的程序员 原创文章，欢迎转载。 https://blog.csdn.net/phker/article/details/83184361

说起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":"[email protected]改成自己的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)