使用satrda实现即时通讯

最新推荐文章于 2023-09-17 20:52:21 发布

pcwe2002

最新推荐文章于 2023-09-17 20:52:21 发布

阅读量3k

点赞数

分类专栏： satrda 文章标签： pb即时通讯 vb即时通讯 delphi即时通讯

本文链接：https://blog.csdn.net/pcwe2002/article/details/103762377

版权

satrda 专栏收录该内容

19 篇文章 18 订阅

订阅专栏

通过satrda的消息通讯模块，PB,VB,Delphi，JS等各种语言可以实现客户端之间或客户端与网页之间的相互通讯，消息通讯基于WebSocket协议，可用于实现即时提醒和互发消息。消息通讯单服务器可以支持数十万并发连接。

实现方法

1.下载SATRDA

最新版本和示例可在QQ群：345559891 下载

2.运行服务端

运行示例server目录下面的satserver.exe

3.源码

PB源码（参考pb示例中w_push窗口)

//连接服务端
uo_client.of_start("127.0.0.1:5555","user1;user2")

//发送消息
uo_client.of_publish( "user1", "发送消息测试")

//停止
uo_client.of_stop()

VB源码（参考vb示例中form2窗口)

//连接服务器
Client.StartClient "127.0.0.1:5555","user1;user2"

//发送消息
Call Client.Publish("user1", "发送消息测试", LenB("发送消息测试"))

//停止服务
Client.StopClient

Delphi源码（参考delphi示例中unit1窗口)

//连接服务器
PushClient_Start(_client,PAnsiChar('127.0.0.1:5555'),PAnsiChar('user1;user2'));

//发送消息
PushClient_Pulish(_client,PAnsiChar('user1'),PAnsiChar('发送消息测试'), length('发送消息测试'));

//停止服务
PushClient_Stop(_client);

易语言

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 消息通讯, 消息通讯类
.程序集变量 旧窗口回调函数, 子程序指针

.子程序 _打开_被单击

消息通讯.开启 (编辑框_服务器.内容, 编辑框_订阅主题.内容)

.子程序 _停止_被单击

消息通讯.停止 ()

.子程序 _发送_被单击

消息通讯.发送消息 (编辑框_发送主题.内容, 编辑框_消息.内容)

.子程序 __启动窗口_创建完毕

消息通讯.设置事件 (取窗口句柄 ())
附加到页面 (取窗口句柄 ())
旧窗口回调函数 ＝ 替换窗口回调 (取窗口句柄 (), -4, &新窗口回调函数)


.子程序 新窗口回调函数, 整数型
.参数 窗口句柄_, 整数型
.参数 消息, 整数型
.参数 参数1, 整数型
.参数 参数2, 整数型
.局部变量 收到消息, 文本型

.判断开始 (消息 ＝ #消息通讯_状态)
    .如果真 (参数1 ＝ #状态_正在连接)
        加入日志 (“正在连接”)
    .如果真结束
    .如果真 (参数1 ＝ #状态_正在关闭)
        加入日志 (“正在关闭”)
    .如果真结束
    .如果真 (参数1 ＝ #状态_已连接)
        加入日志 (“已连接”)
    .如果真结束
    .如果真 (参数1 ＝ #状态_已关闭)
        加入日志 (“已关闭”)
    .如果真结束

.判断 (消息 ＝ #消息通讯_事件)
    收到消息 ＝ 消息通讯.取消息 (参数1, 参数2)
    加入日志 (到文本 (收到消息))
.默认

.判断结束
' 下面调用原来的回调来处理其它消息,去掉就假死
返回 (执行原窗口回调 (旧窗口回调函数, 窗口句柄_, 消息, 参数1, 参数2))



.子程序 加入日志
.参数 日志, 文本型

编辑框_显示.内容 ＝ 编辑框_显示.内容 ＋ 日志 ＋ #换行符