【tcp—聊天工具的开发】

源码下载： 客户端 服务器.zip (541.13 KB, 下载次数: 1)

2023-5-22 02:53 上传

点击文件名下载附件

前面我们已经学习了tcp的相关应用，024：【tcp—留言功能】，在前面的课程中并没有讲服务器如何给客户端发送数据

本节要来写一个聊天工具，相当于客服系统，由于考虑到代码难度，本节讲解的是单人的，也就是服务器系统只允许同时与一个人聊天

这也是我们的第2个课程设计，第一个是044：【店铺会员系统设计】   


这是一个大概的效果图，接下里大家下载源码开始学习


客户端代码：

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
逻辑值	逻辑型

逻辑值 ＝ 客户1.连接 (“127.0.0.1”, 19730)
判断 (逻辑值 ＝ 真)
_启动窗口.标题 ＝ “连接成功”

_启动窗口.标题 ＝ “连接失败，请重新连接”

子程序名	返回值类型	公开	备 注
_客户1_连接断开

_启动窗口.标题 ＝ “连接失败，请重新连接”

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 逻辑值, 逻辑型<br /> <br /> 逻辑值 ＝ 客户1.连接 (“127.0.0.1”, 19730)<br /> .判断开始 (逻辑值 ＝ 真)<br />     _启动窗口.标题 ＝ “连接成功”<br /> <br /> .默认<br />     _启动窗口.标题 ＝ “连接失败，请重新连接”<br /> <br /> <br /> .子程序 _客户1_连接断开<br /> <br /> _启动窗口.标题 ＝ “连接失败，请重新连接”

窗口创建完毕就连接服务器，客户1组件和服务器断开连接了_启动窗口.标题有响应告知使用者

  

子程序名	返回值类型	公开	备 注
_编辑框_收信框_鼠标右键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

弹出菜单 (功能, , )

子程序名	返回值类型	公开	备 注
_连接_被选择

变量名	类 型	静态	数组	备 注
逻辑值	逻辑型

逻辑值 ＝ 客户1.连接 (“127.0.0.1”, 19730)
判断 (逻辑值 ＝ 真)
_启动窗口.标题 ＝ “连接成功”

_启动窗口.标题 ＝ “连接失败，请重新打开软件”

.版本 2<br /> <br /> .子程序 _编辑框_收信框_鼠标右键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 弹出菜单 (功能, , )<br /> <br /> .子程序 _连接_被选择<br /> .局部变量 逻辑值, 逻辑型<br /> <br /> 逻辑值 ＝ 客户1.连接 (“127.0.0.1”, 19730)<br /> .判断开始 (逻辑值 ＝ 真)<br />     _启动窗口.标题 ＝ “连接成功”<br /> <br /> .默认<br />     _启动窗口.标题 ＝ “连接失败，请重新打开软件”<br /> .判断结束

这里绑定了一个菜单事件，可以重新发起连接

  

子程序名	返回值类型	公开	备 注
_按钮_发送_被单击

变量名	类 型	静态	数组	备 注
逻辑值	逻辑型

时间 ＝ “（” ＋ 时间_格式化EX (取现行时间 (), , , 3) ＋ “）”
逻辑值 ＝ 客户1.发送数据 (编辑框_发信框.内容)
判断 (逻辑值 ＝ 真)
编辑框_收信框.内容 ＝ 编辑框_收信框.内容 ＋ “自己” ＋ 时间 ＋ “：” ＋ #换行符 ＋ 编辑框_发信框.内容 ＋ #换行符 ＋ #换行符



编辑框_收信框.内容 ＝ 编辑框_收信框.内容 ＋ “自己” ＋ 时间 ＋ “：” ＋ #换行符 ＋ “发送失败” ＋ #换行符 ＋ #换行符

子程序名	返回值类型	公开	备 注
_客户1_数据到达

变量名	类 型	静态	数组	备 注
数据	文本型

数据 ＝ 到文本 (客户1.取回数据 ())
时间 ＝ “（” ＋ 时间_格式化EX (取现行时间 (), , , 3) ＋ “）”
编辑框_收信框.内容 ＝ 编辑框_收信框.内容 ＋ “服务器” ＋ 时间 ＋ “：” ＋ #换行符 ＋ 数据 ＋ #换行符 ＋ #换行符

.版本 2<br /> <br /> .子程序 _按钮_发送_被单击<br /> .局部变量 逻辑值, 逻辑型<br /> <br /> <br /> 时间 ＝ “（” ＋ 时间_格式化EX (取现行时间 (), , , 3) ＋ “）”<br /> 逻辑值 ＝ 客户1.发送数据 (编辑框_发信框.内容)<br /> .判断开始 (逻辑值 ＝ 真)<br />     编辑框_收信框.内容 ＝ 编辑框_收信框.内容 ＋ “自己” ＋ 时间 ＋ “：” ＋ #换行符 ＋ 编辑框_发信框.内容 ＋ #换行符 ＋ #换行符<br /> <br /> <br /> .默认<br /> <br />     编辑框_收信框.内容 ＝ 编辑框_收信框.内容 ＋ “自己” ＋ 时间 ＋ “：” ＋ #换行符 ＋ “发送失败” ＋ #换行符 ＋ #换行符<br /> .判断结束<br /> <br /> <br /> .子程序 _客户1_数据到达<br /> .局部变量 数据, 文本型<br /> <br /> 数据 ＝ 到文本 (客户1.取回数据 ())<br /> 时间 ＝ “（” ＋ 时间_格式化EX (取现行时间 (), , , 3) ＋ “）”<br /> 编辑框_收信框.内容 ＝ 编辑框_收信框.内容 ＋ “服务器” ＋ 时间 ＋ “：” ＋ #换行符 ＋ 数据 ＋ #换行符 ＋ #换行符

这个是发送和接收代码，所谓接收就是当服务器给客户端发送数据的时候，会触发_客户1_数据到达这个子程序

服务器端代码

  

子程序名	返回值类型	公开	备 注
_服务器1_客户进入

客户ip ＝ 服务器1.取回客户 ()
_启动窗口.标题 ＝ “服务器   连接客户：” ＋ 客户ip

.版本 2<br /> <br /> .子程序 _服务器1_客户进入<br /> <br /> 客户ip ＝ 服务器1.取回客户 ()<br /> _启动窗口.标题 ＝ “服务器   连接客户：” ＋ 客户ip

当客户连接进来的时候，取出连接客户的ip，格式为ip:端口，这个端口不是19730服务器设置的端口，是客户端设备上的端口，这个问题先不讨论

至于发送和接收代码，和客户端的发送接收差不多，没什么特别好讲的

重点：

我们消息记录的部分来源于2部分，一个是当我们按下发送按钮的时候，一个是接收到数据的时候

这就是需要聊天工具的底层框架了，在此基础上慢慢扩展出多人聊天，发送图片，群聊等功能


（点击返回课程目录：https://www.52hb.com/thread-58658-1-1.html）

感谢分亨！！！！！！！！