使用HP_Socket汉化模块连接服务器连接成功后闪退

七夜雪

请教大佬们 为啥已连接就闪退!

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_客户Duan	整数型
g_cli	类_TCP_客户Duan
g_cache	字节集

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

g_cache ＝ {  }
调试输出 (“窗口创建完毕”)
' 设置错误处理
' 置错误处理 (&错误处理子程序)
' 启动时自动连接（测试用）
' 时钟1.时钟周期 ＝ 1000  ' 1秒后自动连接

子程序名	返回值类型	公开	备 注
错误处理子程序

调试输出 (“发生错误，代码：” ＋ 到文本 (取错误码 ()) ＋ “，信息：” ＋ 取错误信息 ())
' 不显示信息框，避免循环错误

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

连接服务器 ()

子程序名	返回值类型	公开	备 注
连接服务器

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

调试输出 (“尝试连接服务器...”)
如果真 (集_客户Duan ≠ 0)
g_cli.关闭 (集_客户Duan)
g_cli.销毁 (集_客户Duan, 假)
集_客户Duan ＝ 0
g_cache ＝ {  }

集_客户Duan ＝ g_cli.创建 (假)  ' 使用自动管理
如果真 (集_客户Duan ＝ 0)
信息框 (“创建客户Duan失败！”, 0, , )
返回 ()

' 设置事件回调
g_cli.事件_连接 (&客户Duan_连接)
g_cli.事件_断开 (&客户Duan_断开)
g_cli.事件_数据到达 (&客户Duan_数据到达)
' 启动连接
结果 ＝ g_cli.启动 (集_客户Duan, “127.228.193.168”, 6297)
如果真 (结果 ＝ 假)
信息框 (“连接失败：” ＋ g_cli.取最后错误描述 (集_客户Duan), 0, , )
g_cli.销毁 (集_客户Duan, 假)
集_客户Duan ＝ 0

子程序名	返回值类型	公开	备 注
客户Duan_连接	整数型
参数名	类 型	参考	可空	数组	备 注
dwConnID	整数型

调试输出 (“连接成功，ConnID：” ＋ 到文本 (dwConnID))
' 更新按钮状态
按钮_连接.标题 ＝ “已连接”
按钮_连接.禁止 ＝ 真
按钮_断开.禁止 ＝ 假
返回 ( #HR_OK )

子程序名	返回值类型	公开	备 注
客户Duan_断开	整数型
参数名	类 型	参考	可空	数组	备 注
dwConnID	整数型
enOperation	整数型
iErrorCode	整数型

调试输出 (“连接断开，错误码：” ＋ 到文本 (iErrorCode))
如果真 (集_客户Duan ≠ 0)
g_cli.销毁 (集_客户Duan, 假)
集_客户Duan ＝ 0

' 更新按钮状态
按钮_连接.标题 ＝ “连接”
按钮_连接.禁止 ＝ 假
按钮_断开.禁止 ＝ 真
g_cache ＝ {  }
返回 ( #HR_OK )

子程序名	返回值类型	公开	备 注
客户Duan_数据到达	整数型
参数名	类 型	参考	可空	数组	备 注
dwConnID	整数型
pData	整数型
iLength	整数型

调试输出 (“收到数据，长度：” ＋ 到文本 (iLength))
' 最简单处理：只记录长度，不处理内容
' 避免内存操作，直接返回
返回 ( #HR_OK )

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

如果真 (集_客户Duan ≠ 0)
g_cli.关闭 (集_客户Duan)
g_cli.销毁 (集_客户Duan, 假)
集_客户Duan ＝ 0
调试输出 (“手动断开连接”)
' 更新按钮状态
按钮_连接.标题 ＝ “连接”
按钮_连接.禁止 ＝ 假
按钮_断开.禁止 ＝ 真

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

调试输出 (“窗口关闭，清理资源”)
如果真 (集_客户Duan ≠ 0)
g_cli.关闭 (集_客户Duan)
g_cli.销毁 (集_客户Duan, 假)
集_客户Duan ＝ 0

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_客户Duan, 整数型<br /> .程序集变量 g_cli, 类_TCP_客户Duan<br /> .程序集变量 g_cache, 字节集<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> g_cache ＝ {  }<br /> 调试输出 (“窗口创建完毕”)<br /> <br /> ' 设置错误处理<br /> ' 置错误处理 (&错误处理子程序)<br /> <br /> ' 启动时自动连接（测试用）<br /> ' 时钟1.时钟周期 ＝ 1000  ' 1秒后自动连接<br /> <br /> .子程序 错误处理子程序<br /> <br /> 调试输出 (“发生错误，代码：” ＋ 到文本 (取错误码 ()) ＋ “，信息：” ＋ 取错误信息 ())<br /> ' 不显示信息框，避免循环错误<br /> <br /> .子程序 _按钮_连接_被单击<br /> <br /> 连接服务器 ()<br /> <br /> .子程序 连接服务器<br /> .局部变量 结果, 逻辑型<br /> <br /> 调试输出 (“尝试连接服务器...”)<br /> <br /> .如果真 (集_客户Duan ≠ 0)<br />     g_cli.关闭 (集_客户Duan)<br />     g_cli.销毁 (集_客户Duan, 假)<br />     集_客户Duan ＝ 0<br />     g_cache ＝ {  }<br /> .如果真结束<br /> <br /> 集_客户Duan ＝ g_cli.创建 (假)  ' 使用自动管理<br /> <br /> .如果真 (集_客户Duan ＝ 0)<br />     信息框 (“创建客户Duan失败！”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> ' 设置事件回调<br /> g_cli.事件_连接 (&客户Duan_连接)<br /> g_cli.事件_断开 (&客户Duan_断开)<br /> g_cli.事件_数据到达 (&客户Duan_数据到达)<br /> <br /> ' 启动连接<br /> 结果 ＝ g_cli.启动 (集_客户Duan, “127.228.193.168”, 6297)<br /> <br /> .如果真 (结果 ＝ 假)<br />     信息框 (“连接失败：” ＋ g_cli.取最后错误描述 (集_客户Duan), 0, , )<br />     g_cli.销毁 (集_客户Duan, 假)<br />     集_客户Duan ＝ 0<br /> .如果真结束<br /> <br /> <br /> .子程序 客户Duan_连接, 整数型<br /> .参数 dwConnID, 整数型<br /> <br /> 调试输出 (“连接成功，ConnID：” ＋ 到文本 (dwConnID))<br /> <br /> ' 更新按钮状态<br /> 按钮_连接.标题 ＝ “已连接”<br /> 按钮_连接.禁止 ＝ 真<br /> 按钮_断开.禁止 ＝ 假<br /> <br /> 返回 (#HR_OK)<br /> <br /> .子程序 客户Duan_断开, 整数型<br /> .参数 dwConnID, 整数型<br /> .参数 enOperation, 整数型<br /> .参数 iErrorCode, 整数型<br /> <br /> 调试输出 (“连接断开，错误码：” ＋ 到文本 (iErrorCode))<br /> <br /> .如果真 (集_客户Duan ≠ 0)<br />     g_cli.销毁 (集_客户Duan, 假)<br />     集_客户Duan ＝ 0<br /> .如果真结束<br /> <br /> ' 更新按钮状态<br /> 按钮_连接.标题 ＝ “连接”<br /> 按钮_连接.禁止 ＝ 假<br /> 按钮_断开.禁止 ＝ 真<br /> <br /> g_cache ＝ {  }<br /> <br /> 返回 (#HR_OK)<br /> <br /> .子程序 客户Duan_数据到达, 整数型<br /> .参数 dwConnID, 整数型<br /> .参数 pData, 整数型<br /> .参数 iLength, 整数型<br /> <br /> 调试输出 (“收到数据，长度：” ＋ 到文本 (iLength))<br /> <br /> ' 最简单处理：只记录长度，不处理内容<br /> ' 避免内存操作，直接返回<br /> <br /> 返回 (#HR_OK)<br /> <br /> .子程序 _按钮_断开_被单击<br /> <br /> .如果真 (集_客户Duan ≠ 0)<br />     g_cli.关闭 (集_客户Duan)<br />     g_cli.销毁 (集_客户Duan, 假)<br />     集_客户Duan ＝ 0<br />     调试输出 (“手动断开连接”)<br /> <br />     ' 更新按钮状态<br />     按钮_连接.标题 ＝ “连接”<br />     按钮_连接.禁止 ＝ 假<br />     按钮_断开.禁止 ＝ 真<br /> .如果真结束<br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 调试输出 (“窗口关闭，清理资源”)<br /> <br /> .如果真 (集_客户Duan ≠ 0)<br />     g_cli.关闭 (集_客户Duan)<br />     g_cli.销毁 (集_客户Duan, 假)<br />     集_客户Duan ＝ 0<br /> .如果真结束

无量科技

检查下回调函数参数

ldwz

你贴出来的代码 感觉没问题

遗失的眼泪

你把绑定的事件回调都屏蔽了试试