tcp客户Duan如何把事件挂接到另一个窗口？

Hello树哥

tcp客户Duan在启动窗口创建，网络验证成功后创建另一个功能窗口，如何把接收数据事件和发送数据那些功能移植到另一个窗口？

2224848

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_TCP客户Duan	客户Duan
集_服务器IP	文本型
集_服务器端口	整数型
集_验证状态	逻辑型

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

按钮_连接.标题 ＝ "连接服务器"
按钮_打开功能.标题 ＝ "打开功能窗口"
按钮_打开功能.禁止 ＝ 真  ' 初始禁用

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

.局部变量 IP, 文本型
.局部变量 端口, 文本型

IP ＝ 编辑框_IP.内容
端口 ＝ 编辑框_端口.内容

如果 (IP ＝ "" 或 端口 ＝ "")
信息框 ("请输入服务器IP和端口", 0, "提示", )
返回 ()

如果 (集_TCP客户Duan.连接 (IP, 到整数 (端口)))
集_服务器IP ＝ IP
集_服务器端口 ＝ 到整数 (端口)
按钮_连接.标题 ＝ "连接中..."
按钮_连接.禁止 ＝ 真
线程_启动 (&验证线程, , )
信息框 ("连接服务器失败", 0, "错误", )

子程序名	返回值类型	公开	备 注
验证线程

.局部变量 验证数据, 文本型
.局部变量 接收数据, 文本型

' 发送验证请求
验证数据 ＝ "AUTH|" ＋ 编辑框_用户名.内容 ＋ "|" ＋ 编辑框_密码.内容
集_TCP客户Duan.发送数据 (到字节集 (验证数据), )

' 等待验证响应
.局部变量 超时计数, 整数型
判断循环首 (超时计数 < 30)  ' 3秒超时
程序_延时 (100)
接收数据 ＝ 到文本 (集_TCP客户Duan.取回数据 ())

如果 (寻找文本 (接收数据, "AUTH_SUCCESS", , 假) > 0)
集_验证状态 ＝ 真
跳出循环 ()
如果 (寻找文本 (接收数据, "AUTH_FAIL", , 假) > 0)
集_验证状态 ＝ 假
跳出循环 ()


超时计数 ＝ 超时计数 + 1
判断循环尾 ()

如果 (集_验证状态)
按钮_打开功能.禁止 ＝ 假
标签_状态.标题 ＝ "验证成功"
按钮_连接.禁止 ＝ 假
按钮_连接.标题 ＝ "重新连接"
标签_状态.标题 ＝ "验证失败"

子程序名	返回值类型	公开	备 注
_按钮_打开功能_被单击

.局部变量 功能窗口, 窗口_功能

功能窗口.创建 ()
功能窗口.初始化TCP (集_TCP客户Duan, 集_服务器IP, 集_服务器端口)
功能窗口.显示 ()
隐藏 ()  ' 隐藏主窗口

i支持库列表	支持库注释
EThread	多线程支持库
sock	网络通讯支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 sock<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_TCP客户Duan, 客户Duan<br /> .程序集变量 集_服务器IP, 文本型<br /> .程序集变量 集_服务器端口, 整数型<br /> .程序集变量 集_验证状态, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br />     按钮_连接.标题 ＝ "连接服务器"<br />     按钮_打开功能.标题 ＝ "打开功能窗口"<br />     按钮_打开功能.禁止 ＝ 真  ' 初始禁用<br /> <br /> .子程序 _按钮_连接_被单击<br />     .局部变量 IP, 文本型<br />     .局部变量 端口, 文本型<br />     <br />     IP ＝ 编辑框_IP.内容<br />     端口 ＝ 编辑框_端口.内容<br />     <br />     .如果 (IP ＝ "" 或 端口 ＝ "")<br />         信息框 ("请输入服务器IP和端口", 0, "提示", )<br />         返回 ()<br />     .如果结束<br />     <br />     .如果 (集_TCP客户Duan.连接 (IP, 到整数 (端口)))<br />         集_服务器IP ＝ IP<br />         集_服务器端口 ＝ 到整数 (端口)<br />         按钮_连接.标题 ＝ "连接中..."<br />         按钮_连接.禁止 ＝ 真<br />         线程_启动 (&验证线程, , )<br />     .否则<br />         信息框 ("连接服务器失败", 0, "错误", )<br />     .如果结束<br /> <br /> .子程序 验证线程<br />     .局部变量 验证数据, 文本型<br />     .局部变量 接收数据, 文本型<br />     <br />     ' 发送验证请求<br />     验证数据 ＝ "AUTH|" ＋ 编辑框_用户名.内容 ＋ "|" ＋ 编辑框_密码.内容<br />     集_TCP客户Duan.发送数据 (到字节集 (验证数据), )<br />     <br />     ' 等待验证响应<br />     .局部变量 超时计数, 整数型<br />     .判断循环首 (超时计数 < 30)  ' 3秒超时<br />         程序_延时 (100)<br />         接收数据 ＝ 到文本 (集_TCP客户Duan.取回数据 ())<br />         <br />         .如果 (寻找文本 (接收数据, "AUTH_SUCCESS", , 假) > 0)<br />             集_验证状态 ＝ 真<br />             跳出循环 ()<br />         .否则<br />             .如果 (寻找文本 (接收数据, "AUTH_FAIL", , 假) > 0)<br />                 集_验证状态 ＝ 假<br />                 跳出循环 ()<br />             .如果结束<br />         .如果结束<br />         <br />         超时计数 ＝ 超时计数 + 1<br />     .判断循环尾 ()<br />     <br />     .如果 (集_验证状态)<br />         按钮_打开功能.禁止 ＝ 假<br />         标签_状态.标题 ＝ "验证成功"<br />     .否则<br />         按钮_连接.禁止 ＝ 假<br />         按钮_连接.标题 ＝ "重新连接"<br />         标签_状态.标题 ＝ "验证失败"<br />     .如果结束<br /> <br /> .子程序 _按钮_打开功能_被单击<br />     .局部变量 功能窗口, 窗口_功能<br />     <br />     功能窗口.创建 ()<br />     功能窗口.初始化TCP (集_TCP客户Duan, 集_服务器IP, 集_服务器端口)<br />     功能窗口.显示 ()<br />     隐藏 ()  ' 隐藏主窗口

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_功能窗口
变量名	类 型	数组	备 注
集_TCP客户Duan	客户Duan
集_服务器IP	文本型
集_服务器端口	整数型

子程序名	返回值类型	公开	备 注
初始化TCP
参数名	类 型	参考	可空	数组	备 注
客户Duan对象	客户Duan
服务器IP	文本型
服务器端口	整数型

集_TCP客户Duan ＝ 客户Duan对象
集_服务器IP ＝ 服务器IP
集_服务器端口 ＝ 服务器端口
' 设置事件处理
集_TCP客户Duan.置数据到达事件 (&功能窗口_数据到达)
集_TCP客户Duan.置连接断开事件 (&功能窗口_连接断开)

子程序名	返回值类型	公开	备 注
功能窗口_数据到达

变量名	类 型	静态	数组	备 注
接收数据	字节集
文本数据	文本型

接收数据 ＝ 集_TCP客户Duan.取回数据 ()
文本数据 ＝ 到文本 (接收数据)
' 在功能窗口显示接收数据
编辑框_接收.加入文本 (文本数据 ＋ #换行符 )
' 处理特定协议
如果 (寻找文本 (文本数据, "CMD|", , 假) > 0)
处理命令 (文本数据)

子程序名	返回值类型	公开	备 注
功能窗口_连接断开

信息框 ("与服务器连接已断开", 0, "提示", )
关闭 ()

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

变量名	类 型	静态	数组	备 注
发送内容	文本型

发送内容 ＝ 编辑框_发送.内容
如果 (发送内容 ≠ "")
集_TCP客户Duan.发送数据 (到字节集 (发送内容), )
编辑框_发送.内容 ＝ ""
信息框 ("请输入要发送的内容", 0, "提示", )

子程序名	返回值类型	公开	备 注
_功能窗口_将被销毁

集_TCP客户Duan.断开连接 ()

i支持库列表	支持库注释
sock	网络通讯支持库

.版本 2<br /> .支持库 sock<br /> <br /> .程序集 窗口程序集_功能窗口<br /> .程序集变量 集_TCP客户Duan, 客户Duan<br /> .程序集变量 集_服务器IP, 文本型<br /> .程序集变量 集_服务器端口, 整数型<br /> <br /> .子程序 初始化TCP<br /> .参数 客户Duan对象, 客户Duan<br /> .参数 服务器IP, 文本型<br /> .参数 服务器端口, 整数型<br /> <br /> 集_TCP客户Duan ＝ 客户Duan对象<br /> 集_服务器IP ＝ 服务器IP<br /> 集_服务器端口 ＝ 服务器端口<br /> <br /> ' 设置事件处理<br /> 集_TCP客户Duan.置数据到达事件 (&功能窗口_数据到达)<br /> 集_TCP客户Duan.置连接断开事件 (&功能窗口_连接断开)<br /> <br /> .子程序 功能窗口_数据到达<br /> .局部变量 接收数据, 字节集<br /> .局部变量 文本数据, 文本型<br /> <br /> 接收数据 ＝ 集_TCP客户Duan.取回数据 ()<br /> 文本数据 ＝ 到文本 (接收数据)<br /> <br /> ' 在功能窗口显示接收数据<br /> 编辑框_接收.加入文本 (文本数据 ＋ #换行符)<br /> <br /> ' 处理特定协议<br /> .如果 (寻找文本 (文本数据, "CMD|", , 假) > 0)<br />     处理命令 (文本数据)<br /> .如果结束<br /> <br /> .子程序 功能窗口_连接断开<br /> 信息框 ("与服务器连接已断开", 0, "提示", )<br /> 关闭 ()<br /> <br /> .子程序 _按钮_发送_被单击<br /> .局部变量 发送内容, 文本型<br /> <br /> 发送内容 ＝ 编辑框_发送.内容<br /> .如果 (发送内容 ≠ "")<br />     集_TCP客户Duan.发送数据 (到字节集 (发送内容), )<br />     编辑框_发送.内容 ＝ ""<br /> .否则<br />     信息框 ("请输入要发送的内容", 0, "提示", )<br /> .如果结束<br /> <br /> .子程序 _功能窗口_将被销毁<br /> 集_TCP客户Duan.断开连接 ()

  

.类 客户Duan
.成员变量 套接字, 整数型
.成员变量 服务器IP, 文本型
.成员变量 服务器端口, 整数型
.成员变量 数据到达事件, 子程序指针
.成员变量 连接断开事件, 子程序指针
.方法 连接, 逻辑型

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
IP	文本型
端口	整数型

.局部变量 地址, sockaddr_in

套接字 ＝ socket ( #AF_INET, #SOCK_STREAM, 0)
如果 (套接字 ＝ -1)
返回 (假)

地址.sin_family ＝ #AF_INET
地址.sin_port ＝ 端口反转序 (端口)
地址.sin_addr.S_addr ＝ inet_addr (IP)

如果 (connect (套接字, 地址, 取结构大小 (地址)) ＝ 0)
服务器IP ＝ IP
服务器端口 ＝ 端口
线程_启动 (&接收线程, , )
返回 (真)
返回 (假)

.方法 断开连接
如果 (套接字 ≠ -1)
closesocket (套接字)
套接字 ＝ -1

.方法 发送数据, 逻辑型

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
数据	字节集

.局部变量 发送长度, 整数型

发送长度 ＝ send (套接字, 数据, 取字节集长度 (数据), 0)
返回 (发送长度 ＝ 取字节集长度 (数据))
.方法 取回数据, 字节集
.局部变量 缓冲区, 字节集
.局部变量 接收长度, 整数型

缓冲区 ＝ 取空白字节集 (4096)
接收长度 ＝ recv (套接字, 缓冲区, 4096, 0)

如果 (接收长度 > 0)
返回 (取字节集左边 (缓冲区, 接收长度))
返回 ({ })

.方法 置数据到达事件

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
事件处理	子程序指针

数据到达事件 ＝ 事件处理
.方法 置连接断开事件

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
事件处理	子程序指针

连接断开事件 ＝ 事件处理
.方法 接收线程
判断循环首 (真)
.局部变量 数据, 字节集
数据 ＝ 取回数据 ()

如果 (取字节集长度 (数据) > 0)
如果 (数据到达事件 ≠ 0)
调用子程序 (数据到达事件, , , 数据)
如果 (连接断开事件 ≠ 0)
调用子程序 (连接断开事件, , )
跳出循环 ()

判断循环尾 ()
.结束 类

.类 客户Duan<br />     .成员变量 套接字, 整数型<br />     .成员变量 服务器IP, 文本型<br />     .成员变量 服务器端口, 整数型<br />     .成员变量 数据到达事件, 子程序指针<br />     .成员变量 连接断开事件, 子程序指针<br /> <br />     .方法 连接, 逻辑型<br />     .参数 IP, 文本型<br />     .参数 端口, 整数型<br />     <br />     .局部变量 地址, sockaddr_in<br />     <br />     套接字 ＝ socket(#AF_INET, #SOCK_STREAM, 0)<br />     .如果 (套接字 ＝ -1)<br />         返回 (假)<br />     .如果结束<br />     <br />     地址.sin_family ＝ #AF_INET<br />     地址.sin_port ＝ 端口反转序 (端口)<br />     地址.sin_addr.S_addr ＝ inet_addr (IP)<br />     <br />     .如果 (connect(套接字, 地址, 取结构大小(地址)) ＝ 0)<br />         服务器IP ＝ IP<br />         服务器端口 ＝ 端口<br />         线程_启动 (&接收线程, , )<br />         返回 (真)<br />     .否则<br />         返回 (假)<br />     .如果结束<br /> <br />     .方法 断开连接<br />     .如果 (套接字 ≠ -1)<br />         closesocket (套接字)<br />         套接字 ＝ -1<br />     .如果结束<br /> <br />     .方法 发送数据, 逻辑型<br />     .参数 数据, 字节集<br />     .局部变量 发送长度, 整数型<br />     <br />     发送长度 ＝ send(套接字, 数据, 取字节集长度(数据), 0)<br />     返回 (发送长度 ＝ 取字节集长度(数据))<br /> <br />     .方法 取回数据, 字节集<br />     .局部变量 缓冲区, 字节集<br />     .局部变量 接收长度, 整数型<br />     <br />     缓冲区 ＝ 取空白字节集 (4096)<br />     接收长度 ＝ recv(套接字, 缓冲区, 4096, 0)<br />     <br />     .如果 (接收长度 > 0)<br />         返回 (取字节集左边 (缓冲区, 接收长度))<br />     .否则<br />         返回 ({ })<br />     .如果结束<br /> <br />     .方法 置数据到达事件<br />     .参数 事件处理, 子程序指针<br />     数据到达事件 ＝ 事件处理<br /> <br />     .方法 置连接断开事件<br />     .参数 事件处理, 子程序指针<br />     连接断开事件 ＝ 事件处理<br /> <br />     .方法 接收线程<br />     .判断循环首 (真)<br />         .局部变量 数据, 字节集<br />         数据 ＝ 取回数据 ()<br />         <br />         .如果 (取字节集长度 (数据) > 0)<br />             .如果 (数据到达事件 ≠ 0)<br />                 调用子程序 (数据到达事件, , , 数据)<br />             .如果结束<br />         .否则<br />             .如果 (连接断开事件 ≠ 0)<br />                 调用子程序 (连接断开事件, , )<br />             .如果结束<br />             跳出循环 ()<br />         .如果结束<br />     .判断循环尾 ()<br /> .结束 类

编辑框_IP：输入服务器IP
编辑框_端口：输入服务器端口
编辑框_用户名：验证用户名
编辑框_密码：验证密码
按钮_连接：连接服务器并验证
按钮_打开功能：打开功能窗口
标签_状态：显示连接状态

冬夏

  

变量名	类 型	静态	数组	备 注
a	请求客户Duan

' 把这个 请求客户Duan 放在 全局变量 那边就行了，它实际是个TCP请求客户Duan
a.连接 (, , , )
a.同步发送文本 (, , )

i支持库列表	支持库注释
Exmlrpc	远程服务支持库

.版本 2<br /> .支持库 Exmlrpc<br /> <br /> .局部变量 a, 请求客户Duan<br /> ' 把这个 请求客户Duan 放在 全局变量 那边就行了，它实际是个TCP请求客户Duan<br /> a.连接 (, , , )<br /> a.同步发送文本 (, , )

Hello树哥

冬夏 发表于 2025-7-25 15:06
[e=1]
.版本 2
.支持库 Exmlrpc

研究了一下午还是没搞懂，能不能写详细点？或者留个联系方式？

21岁的天空

把客户Duan设成全局变量，该怎么用就怎么用呀。还是说你这个客户Duan是一个组件？那就用_启动窗口.客户Duan.连接()这种方法来使用。

Hello树哥

21岁的天空 发表于 2025-7-25 18:44
把客户Duan设成全局变量，该怎么用就怎么用呀。还是说你这个客户Duan是一个组件？那就用_启动窗口.客户Duan ...

启动窗口创建的tcp用全局变量，另一个功能窗口引用tcp发送消息，没效果

信仰_

什么意思？vx不回消息了

Hello树哥

信仰_ 发表于 2025-7-25 20:12
什么意思？vx不回消息了

咋跑这来了，哈哈