HP-SOCKET搭建tcp服务器的问题

carrilson

下列代码运行后，返回“登陆成功”后，直接卡退，不能显示出主程序窗口，求大神帮忙看一下，谢谢噜~

  

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

时钟1.时钟周期 ＝ 0
全_通信句柄 ＝ TCP客户Duan.创建 (假)
TCP客户Duan.事件_接收 (&数据到达)
TCP客户Duan.事件_断开 (&连接断开)
全_机器码 ＝ 生成机器码 ()
如果 (TCP客户Duan.启动 (全_通信句柄, “127.0.0.1”, 3838, 假) ＝ 假)
信息框 (“连接服务器失败，请检查网络设置！”, 16, “提示”, _启动窗口)
结束 ()

子程序名	返回值类型	公开	备 注
数据到达
参数名	类 型	参考	可空	数组	备 注
通信句柄	整数型
连接ID	整数型
数据指针	整数型
数据长度	整数型

变量名	类 型	静态	数组	备 注
局_接受数据	字节集
局_json读	类_json
局_json写	类_json
局_类型	文本型
局_盐	文本型
局_注册状态	文本型
局_账号	文本型
局_机器码	文本型
局_登录状态	文本型

局_接受数据 ＝ 指针到字节集 (数据指针, 数据长度)
局_接受数据 ＝ 到字节集 (AES解密 (到文本 (局_接受数据)))
调试输出 (“接受数据”, 到文本 (局_接受数据))
局_json读.解析 (到文本 (局_接受数据))
局_类型 ＝ 局_json读.取通用属性 (“类型”)
如果 (局_类型 ＝ “登录返回”)
局_登录状态 ＝ 局_json读.取通用属性 (“返回状态”)
全_Token ＝ 局_json读.取通用属性 (“Token”)
局_账号 ＝ 局_json读.取通用属性 (“账号”)
如果 (局_登录状态 ＝ “登陆成功！”)
信息框 (局_登录状态 ＋ #换行符 ＋ “欢迎您，用户[” ＋ 局_账号 ＋ “]”, 0, , )
时钟1.时钟周期 ＝ 30000
载入 (主程序, _启动窗口, 假)
_启动窗口.可视 ＝ 假
如果 (局_登录状态 ＝ “该用户已绑定其他设备！”)
信息框 (局_登录状态 ＋ #换行符 ＋ “如需改绑，请联系作者！”, 0, , )
信息框 (局_登录状态, 0, , )

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 时钟1.时钟周期 ＝ 0<br /> 全_通信句柄 ＝ TCP客户Duan.创建 (假)<br /> TCP客户Duan.事件_接收 (&数据到达)<br /> TCP客户Duan.事件_断开 (&连接断开)<br /> 全_机器码 ＝ 生成机器码 ()<br /> <br /> .如果 (TCP客户Duan.启动 (全_通信句柄, “127.0.0.1”, 3838, 假) ＝ 假)<br />     信息框 (“连接服务器失败，请检查网络设置！”, 16, “提示”, _启动窗口)<br />     结束 ()<br /> .否则<br /> <br /> <br /> <br /> .版本 2<br /> .支持库 spec<br /> <br /> .子程序 数据到达<br /> .参数 通信句柄, 整数型<br /> .参数 连接ID, 整数型<br /> .参数 数据指针, 整数型<br /> .参数 数据长度, 整数型<br /> .局部变量 局_接受数据, 字节集<br /> .局部变量 局_json读, 类_json<br /> .局部变量 局_json写, 类_json<br /> .局部变量 局_类型, 文本型<br /> .局部变量 局_盐, 文本型<br /> .局部变量 局_注册状态, 文本型<br /> .局部变量 局_账号, 文本型<br /> .局部变量 局_机器码, 文本型<br /> .局部变量 局_登录状态, 文本型<br /> <br /> 局_接受数据 ＝ 指针到字节集 (数据指针, 数据长度)<br /> 局_接受数据 ＝ 到字节集 (AES解密 (到文本 (局_接受数据)))<br /> 调试输出 (“接受数据”, 到文本 (局_接受数据))<br /> 局_json读.解析 (到文本 (局_接受数据))<br /> 局_类型 ＝ 局_json读.取通用属性 (“类型”)<br /> .版本 2<br /> <br /> .版本 2<br /> <br /> .如果 (局_类型 ＝ “登录返回”)<br />     局_登录状态 ＝ 局_json读.取通用属性 (“返回状态”)<br />     全_Token ＝ 局_json读.取通用属性 (“Token”)<br />     局_账号 ＝ 局_json读.取通用属性 (“账号”)<br />     .如果 (局_登录状态 ＝ “登陆成功！”)<br />         信息框 (局_登录状态 ＋ #换行符 ＋ “欢迎您，用户[” ＋ 局_账号 ＋ “]”, 0, , )<br />         时钟1.时钟周期 ＝ 30000<br />         载入 (主程序, _启动窗口, 假)<br />         _启动窗口.可视 ＝ 假<br />     .否则<br />         .如果 (局_登录状态 ＝ “该用户已绑定其他设备！”)<br />             信息框 (局_登录状态 ＋ #换行符 ＋ “如需改绑，请联系作者！”, 0, , )<br />         .否则<br />             信息框 (局_登录状态, 0, , )<br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .否则

chenboss

数据接收是多线程回调，线程中是不能用载入窗口的，解决方法

  

标签1.调用反馈事件 (0, 0, )  ' _启动窗口创建个标签，回调标签去载入窗口

子程序名	返回值类型	公开	备 注
_标签1_反馈事件	整数型
参数名	类 型	参考	可空	数组	备 注
参数一	整数型
参数二	整数型

载入 (主程序, _启动窗口, 假)

.版本 2<br /> <br /> 标签1.调用反馈事件 (0, 0, )  ' _启动窗口创建个标签，回调标签去载入窗口<br /> <br /> <br /> .子程序 _标签1_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> <br /> 载入 (主程序, _启动窗口, 假)

还要有你

看着没有问题啊

yigeshenwang

我是说可能呀,时钟和载入有冲突....

carrilson

yigeshenwang 发表于 2025-1-22 15:54
我是说可能呀,时钟和载入有冲突....

时钟是用来做心跳检测的，有单独的线程，和主程序窗口无关，报错内容我放楼下了

carrilson

报错内容

carrilson

还要有你 发表于 2025-1-22 15:49
看着没有问题啊

所以感觉挺奇怪的，主程序窗口会弹出来，但是所有东西都点不动，过了没多久就闪退报错，报错内容我放楼下了，麻烦您看看{:3_59:}

carrilson

报错内容

carrilson

报错内容

yigeshenwang

carrilson 发表于 2025-1-22 16:00
时钟是用来做心跳检测的，有单独的线程，和主程序窗口无关，报错内容我放楼下了 ...

所以你把时钟关了试试