Echat实时聊天Demo源码免自建服务器

模块特点:

免自建服务器, 连接的是国际聊天中继服务器;

服务器连接稳定, 从我公开发布到现在稳定运行中

支持自建聊天室, 随便更改昵称

DEMO里面自带外国聊天室(ubuntu), 可以跟外国人实时交流咯

实时消息传输, 实现了基本功能

.判断开始 (事件类型 ＝ #事件_消息到达)
    ' 加入文本 (到文本 (指针到字节集 (数据地址, 数据长度)))
.判断 (事件类型 ＝ #事件_连接断开)
    加入文本 (“连接断开”)
.判断 (事件类型 ＝ #事件_用户列表)
    加入文本 (“更新用户列表成功!”)
    irchat.取用户列表 (UserList)
    更新列表 (UserList, 真)
.判断 (事件类型 ＝ #事件_成员进入)
    加入文本 (到文本 (指针到字节集 (数据地址, 数据长度)) ＋ “ 进入”)
    UserArr [1] ＝ 到文本 (指针到字节集 (数据地址, 数据长度))
    更新列表 (UserArr, 真)
.判断 (事件类型 ＝ #事件_成员离开)
    加入文本 (到文本 (指针到字节集 (数据地址, 数据长度)) ＋ “ 离开”)
    UserArr [1] ＝ 到文本 (指针到字节集 (数据地址, 数据长度))
    更新列表 (UserArr, 假)
.判断 (事件类型 ＝ #事件_成员退出)
    加入文本 (到文本 (指针到字节集 (数据地址, 数据长度)) ＋ “ 退出”)
    UserArr [1] ＝ 到文本 (指针到字节集 (数据地址, 数据长度))
    更新列表 (UserArr, 假)
.判断 (事件类型 ＝ #事件_信息到达)
    加入文本 (到文本 (指针到字节集 (数据地址, 数据长度)))
.默认

.判断结束
' 标题 ＝ “在线人数 ” ＋ 到文本 (irchat.取用户列表 (UserList)) ＋ “ 人”
状态条1.置文本 (0, “在线人数 ” ＋ 到文本 (irchat.取用户列表 (UserList)) ＋ “ 人”)