求个TCP 客服端连接多个服务端源码

a492736664

求个TCP 客服端连接多个服务端源码
服务端
127.0.0.1
端口4500  
127.0.0.1
端口4501  

127.0.0.1
端口4502  

127.0.0.1
端口4503


客服端 如何连接多个服务端   （客服端 在一个软件）

果心豆腐酱

  

窗口程序集名	保 留	保 留	备 注
TCP客户Duan
变量名	类 型	数组	备 注
集_通信句柄	整数型
客户Duan	ITcpPackClient
集_通信句柄2	整数型
客户Duan2	ITcpPackClient
服务器IP	文本型

子程序名	返回值类型	公开	备 注
启动客户Duan服务

变量名	类 型	静态	数组	备 注
状态	逻辑型
启动	整数型

启动 ＝ 取启动时间 ()
如果 (集_通信句柄 ≠ 0)
客户Duan.销毁tcppackclient (集_通信句柄, 假)


集_通信句柄 ＝ 客户Duan.创建 (假)
如果 (集_通信句柄 ≠ 0)
如果 (客户Duan.启动 (集_通信句柄, “127.0.0.1”, 到整数 (2001), , , ) ＝ 真)
客户Duan.事件_客户离开 (&客_断开连接)
客户Duan.事件_发送数据 (&客_发送事件)
客户Duan.事件_数据到达 (&客_数据到达)
_启动窗口.按钮1.标题 ＝ “重启连接”
_启动窗口.时钟3.时钟周期 ＝ 0
_启动窗口.按钮1.标题 ＝ “连接服务”
_Log客户Duan (“连接失败”, “服务器连接失败，请重启软件后再次尝试！”)

_启动窗口.按钮1.标题 ＝ “连接服务”
_Log客户Duan (“创建失败”, “创建通信组件失败，请重启软件后再次尝试！”)

子程序名	返回值类型	公开	备 注
启动客户Duan服务2

变量名	类 型	静态	数组	备 注
状态	逻辑型
启动	整数型

启动 ＝ 取启动时间 ()
如果 (集_通信句柄 ≠ 0)
客户Duan.销毁tcppackclient (集_通信句柄, 假)


集_通信句柄 ＝ 客户Duan.创建 (假)
如果 (集_通信句柄 ≠ 0)
如果 (客户Duan.启动 (集_通信句柄, “127.0.0.1”, 到整数 (2002), , , ) ＝ 真)
客户Duan.事件_客户离开 (&客_断开连接)
客户Duan.事件_发送数据 (&客_发送事件)
客户Duan.事件_数据到达 (&客_数据到达)
_启动窗口.按钮1.标题 ＝ “重启连接”
_启动窗口.时钟3.时钟周期 ＝ 0
_启动窗口.按钮1.标题 ＝ “连接服务”
_Log客户Duan (“连接失败”, “服务器连接失败，请重启软件后再次尝试！”)

_启动窗口.按钮1.标题 ＝ “连接服务”
_Log客户Duan (“创建失败”, “创建通信组件失败，请重启软件后再次尝试！”)

.版本 2<br /> <br /> .程序集 TCP客户Duan<br /> .程序集变量 集_通信句柄, 整数型<br /> .程序集变量 客户Duan, ITcpPackClient<br /> .程序集变量 集_通信句柄2, 整数型<br /> .程序集变量 客户Duan2, ITcpPackClient<br /> .程序集变量 服务器IP, 文本型<br /> <br /> .子程序 启动客户Duan服务<br /> .局部变量 状态, 逻辑型<br /> .局部变量 启动, 整数型<br /> <br /> 启动 ＝ 取启动时间 ()<br /> .如果 (集_通信句柄 ≠ 0)<br />     客户Duan.销毁tcppackclient (集_通信句柄, 假)<br /> .否则<br /> <br /> .如果结束<br /> 集_通信句柄 ＝ 客户Duan.创建 (假)<br /> .如果 (集_通信句柄 ≠ 0)<br />     .如果 (客户Duan.启动 (集_通信句柄, “127.0.0.1”, 到整数 (2001), , , ) ＝ 真)<br />         客户Duan.事件_客户离开 (&客_断开连接)<br />         客户Duan.事件_发送数据 (&客_发送事件)<br />         客户Duan.事件_数据到达 (&客_数据到达)<br />         _启动窗口.按钮1.标题 ＝ “重启连接”<br />         _启动窗口.时钟3.时钟周期 ＝ 0<br />     .否则<br />         _启动窗口.按钮1.标题 ＝ “连接服务”<br />         _Log客户Duan (“连接失败”, “服务器连接失败，请重启软件后再次尝试！”)<br />     .如果结束<br /> <br /> .否则<br />     _启动窗口.按钮1.标题 ＝ “连接服务”<br />     _Log客户Duan (“创建失败”, “创建通信组件失败，请重启软件后再次尝试！”)<br /> .如果结束<br /> <br /> <br /> .子程序 启动客户Duan服务2<br /> .局部变量 状态, 逻辑型<br /> .局部变量 启动, 整数型<br /> <br /> 启动 ＝ 取启动时间 ()<br /> .如果 (集_通信句柄 ≠ 0)<br />     客户Duan.销毁tcppackclient (集_通信句柄, 假)<br /> .否则<br /> <br /> .如果结束<br /> 集_通信句柄 ＝ 客户Duan.创建 (假)<br /> .如果 (集_通信句柄 ≠ 0)<br />     .如果 (客户Duan.启动 (集_通信句柄, “127.0.0.1”, 到整数 (2002), , , ) ＝ 真)<br />         客户Duan.事件_客户离开 (&客_断开连接)<br />         客户Duan.事件_发送数据 (&客_发送事件)<br />         客户Duan.事件_数据到达 (&客_数据到达)<br />         _启动窗口.按钮1.标题 ＝ “重启连接”<br />         _启动窗口.时钟3.时钟周期 ＝ 0<br />     .否则<br />         _启动窗口.按钮1.标题 ＝ “连接服务”<br />         _Log客户Duan (“连接失败”, “服务器连接失败，请重启软件后再次尝试！”)<br />     .如果结束<br /> <br /> .否则<br />     _启动窗口.按钮1.标题 ＝ “连接服务”<br />     _Log客户Duan (“创建失败”, “创建通信组件失败，请重启软件后再次尝试！”)

连接几个服务端，就创建几个客户Duan变量呗。多简单的事情

lufanjingyi

创建多个客户就能连接了哇

a492736664

lufanjingyi 发表于 2023-9-17 21:44
创建多个客户就能连接了哇

求个源码

lufanjingyi

a492736664 发表于 2023-9-17 21:45
求个源码

有偿给你整一个

a492736664

lufanjingyi 发表于 2023-9-17 21:51
有偿给你整一个

可以              

lufanjingyi

a492736664 发表于 2023-9-17 21:57
可以

j加我              啊

lufanjingyi

拧紧

tcp.连接("127.0.0.1|127.0.0.2|127.0.0.3|127.0.0.4")

a492736664

lufanjingyi 发表于 2023-9-17 22:31

留个联系方式