祝愿大家身体健康!

 站点注册  找回密码
 站点注册

QQ登录

只需一步,快速开始

查看: 4441|回复: 1

[学习笔记] PB 发送消息到Rabbit MQ

[复制链接]

[学习笔记] PB 发送消息到Rabbit MQ

[复制链接]
yushisx

主题

0

回帖

620

积分

高级会员

积分
620
贡献
在线时间
小时
2019-10-21 14:55:10 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?站点注册

×
PB 发送消息到Rabbit MQ
然后找了下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)

转自:https://blog.csdn.net/phker/article/details/83184361


共享共进共赢Sharing And Win-win Results
SYBASEBBS - 免责申明1、欢迎访问“SYBASEBBS.COM”,本文内容及相关资源来源于网络,版权归版权方所有!本站原创内容版权归本站所有,请勿转载!
2、本文内容仅代表作者观点,不代表本站立场,作者自负,本站资源仅供学习研究,请勿非法使用,否则后果自负!请下载后24小时内删除!
3、本文内容,包括但不限于源码、文字、图片等,仅供参考。本站不对其安全性,正确性等作出保证。但本站会尽量审核会员发表的内容。
4、如本帖侵犯到任何版权问题,请立即告知本站 ,本站将及时删除并致以最深的歉意!客服邮箱:admin@sybasebbs.com
bczhan

主题

0

回帖

1386

积分

金牌会员

积分
1386
贡献
在线时间
小时
2019-12-24 19:23:08 | 显示全部楼层
感谢,最近刚好需要用到,找了很久了
共享共进共赢Sharing And Win-win Results
您需要登录后才可以回帖 登录 | 站点注册

本版积分规则

免责声明:
本站所发布的一切破解补丁、注册机和注册信息及软件的解密分析文章仅限用于学习和研究目的;不得将上述内容用于商业或者非法用途,否则,一切后果请用户自负。本站信息来自网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。如果您喜欢该程序,请支持正版软件,购买注册,得到更好的正版服务。如有侵权请邮件与我们联系处理。

Mail To:Admin@SybaseBbs.com

QQ|Archiver|PowerBuilder(PB)BBS社区 ( 鲁ICP备2021027222号-1 )

GMT+8, 2024-3-29 20:41 , Processed in 0.028860 second(s), 8 queries , MemCached On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表