君杰大佬的HPSocket模块内事件回调与控件获取焦点问题

烟花易冷心易碎

rt，使用回调事件下，不能使用获取焦点方法，有什么解决方案吗？
回调子程序指针内再次套用子程序，在套用的子程序内写控件获取焦点也解决不了这个问题
希望大佬们支招，测试代码如下：
.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 服务端, 类_TCP_服务端
.程序集变量 服务句柄, 整数型
.程序集变量 客户Duan, 类_TCP_客户Duan
.程序集变量 客户句柄

.子程序 __启动窗口_创建完毕

服务句柄 ＝ 服务端.创建 (假)
服务端.启动 (服务句柄, , 6666)
服务端.事件_数据到达 (&服务_数据到达)
客户句柄 ＝ 客户Duan.创建 (假)
客户Duan.启动 (客户句柄, “127.0.0.1”, 6666)


.子程序 服务_数据到达
.参数 Sender, 整数型
.参数 ID, 整数型
.参数 data, 整数型
.参数 length, 整数型

编辑框2.内容 ＝ 到文本 (指针到字节集 (data, length))
编辑框2.获取焦点 ()


.子程序 _编辑框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.局部变量 字节集, 字节集

.如果真 (键代码 ＝ #回车键)
    字节集 ＝ 到字节集 (编辑框1.内容)
    客户Duan.发送 (客户句柄, _HP_取字节集指针 (字节集), _HP_取字节集长度 (字节集))
.如果真结束

chenboss

hp数据到达是多线程回调，线程执行获取焦点无效，解决办法用一个标签回调

  

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

服务句柄 ＝ 服务端.创建 (假)
服务端.启动 (服务句柄, , 6666)
服务端.事件_数据到达 (&服务_数据到达)
客户句柄 ＝ 客户Duan.创建 (假)
客户Duan.启动 (客户句柄, “127.0.0.1”, 6666)

子程序名	返回值类型	公开	备 注
服务_数据到达
参数名	类 型	参考	可空	数组	备 注
Sender	整数型
ID	整数型
data	整数型
length	整数型

编辑框2.内容 ＝ 到文本 (指针到字节集 (data, length))
标签1.调用反馈事件 (0, 0, )

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

编辑框2.获取焦点 ()

子程序名	返回值类型	公开	备 注
_编辑框1_按下某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
字节集	字节集

如果真 (键代码 ＝ #回车键 )
字节集 ＝ 到字节集 (编辑框1.内容)
客户Duan.发送 (客户句柄, _HP_取字节集指针 (字节集), _HP_取字节集长度 (字节集))

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 服务句柄 ＝ 服务端.创建 (假)<br /> 服务端.启动 (服务句柄, , 6666)<br /> 服务端.事件_数据到达 (&服务_数据到达)<br /> 客户句柄 ＝ 客户Duan.创建 (假)<br /> 客户Duan.启动 (客户句柄, “127.0.0.1”, 6666)<br /> <br /> .子程序 服务_数据到达<br /> .参数 Sender, 整数型<br /> .参数 ID, 整数型<br /> .参数 data, 整数型<br /> .参数 length, 整数型<br /> <br /> 编辑框2.内容 ＝ 到文本 (指针到字节集 (data, length))<br /> 标签1.调用反馈事件 (0, 0, )<br /> <br /> .子程序 _标签1_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> <br /> 编辑框2.获取焦点 ()<br /> <br /> .子程序 _编辑框1_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 字节集, 字节集<br /> <br /> .如果真 (键代码 ＝ #回车键)<br />     字节集 ＝ 到字节集 (编辑框1.内容)<br />     客户Duan.发送 (客户句柄, _HP_取字节集指针 (字节集), _HP_取字节集长度 (字节集))<br /> .如果真结束

烟花易冷心易碎

[JavaScript] 纯文本查看 复制代码

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 服务端, 类_TCP_服务端
.程序集变量 服务句柄, 整数型
.程序集变量 客户Duan, 类_TCP_客户Duan
.程序集变量 客户句柄

.子程序 __启动窗口_创建完毕

服务句柄 ＝ 服务端.创建 (假)
服务端.启动 (服务句柄, , 6666)
服务端.事件_数据到达 (&服务_数据到达)
客户句柄 ＝ 客户Duan.创建 (假)
客户Duan.启动 (客户句柄, “127.0.0.1”, 6666)


.子程序 服务_数据到达
.参数 Sender, 整数型
.参数 ID, 整数型
.参数 data, 整数型
.参数 length, 整数型

编辑框2.内容 ＝ 到文本 (指针到字节集 (data, length))
编辑框2.获取焦点 ()


.子程序 _编辑框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.局部变量 字节集, 字节集

.如果真 (键代码 ＝ #回车键)
    字节集 ＝ 到字节集 (编辑框1.内容)
    客户Duan.发送 (客户句柄, _HP_取字节集指针 (字节集), _HP_取字节集长度 (字节集))
.如果真结束

烟花易冷心易碎

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
服务端	类_TCP_服务端
服务句柄	整数型
客户Duan	类_TCP_客户Duan
客户句柄

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

服务句柄 ＝ 服务端.创建 (假)
服务端.启动 (服务句柄, , 6666)
服务端.事件_数据到达 (&服务_数据到达)
客户句柄 ＝ 客户Duan.创建 (假)
客户Duan.启动 (客户句柄, “127.0.0.1”, 6666)

子程序名	返回值类型	公开	备 注
服务_数据到达
参数名	类 型	参考	可空	数组	备 注
Sender	整数型
ID	整数型
data	整数型
length	整数型

编辑框2.内容 ＝ 到文本 (指针到字节集 (data, length))
编辑框2.获取焦点 ()

子程序名	返回值类型	公开	备 注
_编辑框1_按下某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
字节集	字节集

如果真 (键代码 ＝ #回车键 )
字节集 ＝ 到字节集 (编辑框1.内容)
客户Duan.发送 (客户句柄, _HP_取字节集指针 (字节集), _HP_取字节集长度 (字节集))

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 服务端, 类_TCP_服务端<br /> .程序集变量 服务句柄, 整数型<br /> .程序集变量 客户Duan, 类_TCP_客户Duan<br /> .程序集变量 客户句柄<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 服务句柄 ＝ 服务端.创建 (假)<br /> 服务端.启动 (服务句柄, , 6666)<br /> 服务端.事件_数据到达 (&服务_数据到达)<br /> 客户句柄 ＝ 客户Duan.创建 (假)<br /> 客户Duan.启动 (客户句柄, “127.0.0.1”, 6666)<br /> <br /> <br /> .子程序 服务_数据到达<br /> .参数 Sender, 整数型<br /> .参数 ID, 整数型<br /> .参数 data, 整数型<br /> .参数 length, 整数型<br /> <br /> 编辑框2.内容 ＝ 到文本 (指针到字节集 (data, length))<br /> 编辑框2.获取焦点 ()<br /> <br /> <br /> .子程序 _编辑框1_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 字节集, 字节集<br /> <br /> .如果真 (键代码 ＝ #回车键)<br />     字节集 ＝ 到字节集 (编辑框1.内容)<br />     客户Duan.发送 (客户句柄, _HP_取字节集指针 (字节集), _HP_取字节集长度 (字节集))<br /> .如果真结束

烟花易冷心易碎

模块版本是5.9.3

chenboss

烟花易冷心易碎 发表于 2025-1-27 21:33

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

[/quote]
hp数据到达是多线程回调，线程执行获取焦点无效，解决办法用一个标签回调
[e=0].版本 2
标签1.调用反馈事件 (0, 0, )

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

编辑框1.获取焦点 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口</blockquote></div><br /> hp数据到达是多线程回调，线程执行获取焦点无效，解决办法用一个标签回调<br /> [e=0].版本 2<br /> <br /> 标签1.调用反馈事件 (0, 0, )<br /> <br /> .子程序 _标签1_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> <br /> 编辑框1.获取焦点 ()

编程阿狸

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 服务端, 类_TCP_服务端
.程序集变量 服务句柄, 整数型
.程序集变量 客户Duan, 类_TCP_客户Duan
.程序集变量 客户句柄

.子程序 __启动窗口_创建完毕

服务句柄 ＝ 服务端.创建 (假)
服务端.启动 (服务句柄, , 6666)
服务端.事件_数据到达 (&服务_数据到达)
客户句柄 ＝ 客户Duan.创建 (假)
客户Duan.启动 (客户句柄, “127.0.0.1”, 6666)


.子程序 服务_数据到达
.参数 Sender, 整数型
.参数 ID, 整数型
.参数 data, 整数型
.参数 length, 整数型

编辑框2.内容 ＝ 到文本 (指针到字节集 (data, length))
编辑框2.获取焦点 ()


.子程序 _编辑框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.局部变量 字节集, 字节集

.如果真 (键代码 ＝ #回车键)
    字节集 ＝ 到字节集 (编辑框1.内容)
    客户Duan.发送 (客户句柄, _HP_取字节集指针 (字节集), _HP_取字节集长度 (字节集))
.如果真结束