hp socket

wdmcxodcw

请教交流hp socket，不管是服务端还是客服端要是有多个窗口时这个数据到达怎么处理的。要是多个窗口里都要发送数据和接收数据怎么弄呢！有点没想明白，有请懂的朋友赐教！

147888123

我是用数组解决的，不知道那位大佬有更好的办法

wdmcxodcw

147888123 发表于 2025-7-22 19:12
我是用数组解决的，不知道那位大佬有更好的办法

本来启动窗口来做登陆这些要用。然后登陆成功了跳转别的窗口，或我还想有别的功能要多建窗口，不知怎么弄，难道第个窗口都单独子程序客户进入，数据到达，发送这些。

2224848

[color=rgba(0, 0, 0, 0.85)]创建一个单例类管理所有 Socket 连接

  

窗口程序集名	保 留	保 留	备 注
通信管理器
变量名	类 型	数组	备 注
服务器	HP_TcpServer  ' 服务端模式
客户Duan	HP_TcpClient  ' 客户Duan模式
窗口映射表	整数型	窗口句柄与SessionID映射
数据回调	子程序指针	数据到达回调函数

' 初始化通信管理器

子程序名	返回值类型	公开	备 注
初始化	逻辑型
参数名	类 型	参考	可空	数组	备 注
模式	整数型
回调函数	子程序指针

数据回调 = 回调函数

如果 (模式 = 0)
' 初始化服务端
服务器.创建 ()
服务器.设置事件回调 (&OnServerConnect, &OnServerReceive, &OnServerClose)
服务器.启动 ("127.0.0.1", 8888)
' 初始化客户Duan
客户Duan.创建 ()
客户Duan.设置事件回调 (&OnClientConnect, &OnClientReceive, &OnClientClose)
客户Duan.连接 ("127.0.0.1", 8888)

返回 (真)

i支持库列表	支持库注释
hpSocket	(未知支持库)

.版本 2<br /> .支持库 hpSocket<br /> <br /> .程序集 通信管理器<br /> .程序集变量 服务器, HP_TcpServer  ' 服务端模式<br /> .程序集变量 客户Duan, HP_TcpClient  ' 客户Duan模式<br /> .程序集变量 窗口映射表, 整数型, , "窗口句柄与SessionID映射"<br /> .程序集变量 数据回调, 子程序指针, , "数据到达回调函数"<br /> <br /> ' 初始化通信管理器<br /> .子程序 初始化, 逻辑型<br /> .参数 模式, 整数型, "0=服务端,1=客户Duan"<br /> .参数 回调函数, 子程序指针<br /> <br />     数据回调 = 回调函数<br />     <br />     .如果 (模式 = 0)<br />         ' 初始化服务端<br />         服务器.创建 ()<br />         服务器.设置事件回调 (&OnServerConnect, &OnServerReceive, &OnServerClose)<br />         服务器.启动 ("127.0.0.1", 8888)<br />     .否则<br />         ' 初始化客户Duan<br />         客户Duan.创建 ()<br />         客户Duan.设置事件回调 (&OnClientConnect, &OnClientReceive, &OnClientClose)<br />         客户Duan.连接 ("127.0.0.1", 8888)<br />     .如果结束<br />     <br />     返回 (真)

[color=rgba(0, 0, 0, 0.85)]窗口在创建时向管理器注册，接收数据时通过回调或消息通知：

  

' 注册窗口并获取SessionID

子程序名	返回值类型	公开	备 注
注册窗口	整数型
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型

' 生成唯一SessionID
局部_SessionID = 取数组成员数 (窗口映射表) + 1
窗口映射表 [局部_SessionID] = 窗口句柄

返回 (局部_SessionID)
' 数据到达事件处理

子程序名	返回值类型	公开	备 注
OnServerReceive	整数型
参数名	类 型	参考	可空	数组	备 注
连接ID	整数型
数据	字节集
数据长度	整数型

' 查找对应的窗口句柄
局部_窗口句柄 = 窗口映射表 [连接ID]

' 通过回调通知窗口
如果 (数据回调 != 0) 则
调用 数据回调 (局部_窗口句柄, 数据, 数据长度)
结束

返回 (0)

' 注册窗口并获取SessionID<br /> .子程序 注册窗口, 整数型<br /> .参数 窗口句柄, 整数型<br /> <br />     ' 生成唯一SessionID<br />     局部_SessionID = 取数组成员数 (窗口映射表) + 1<br />     窗口映射表 [局部_SessionID] = 窗口句柄<br />     <br />     返回 (局部_SessionID)<br /> <br /> ' 数据到达事件处理<br /> .子程序 OnServerReceive, 整数型<br /> .参数 连接ID, 整数型<br /> .参数 数据, 字节集<br /> .参数 数据长度, 整数型<br /> <br />     ' 查找对应的窗口句柄<br />     局部_窗口句柄 = 窗口映射表 [连接ID]<br />     <br />     ' 通过回调通知窗口<br />     如果 (数据回调 != 0) 则<br />         调用 数据回调 (局部_窗口句柄, 数据, 数据长度)<br />     结束<br />     <br />     返回 (0)

[color=rgba(0, 0, 0, 0.85)]窗口通过管理器发送数据，无需关心底层通信细节
[color=rgba(0, 0, 0, 0.85)]

  

' 窗口发送数据

子程序名	返回值类型	公开	备 注
发送数据
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型
数据	字节集

' 查找对应的SessionID
局部_SessionID = 0
计次循环首 (取数组成员数 (窗口映射表), i)
如果 (窗口映射表 [i] = 窗口句柄)
局部_SessionID = i
跳出循环 ()

计次循环尾 ()

' 发送数据
如果 (局部_SessionID > 0)
如果 (取数组成员数 (服务器) > 0)  ' 服务端模式
服务器.发送 (局部_SessionID, 数据, 取字节集长度 (数据))
.否则  ' 客户Duan模式
客户Duan.发送 (数据, 取字节集长度 (数据))

' 窗口发送数据<br /> .子程序 发送数据<br /> .参数 窗口句柄, 整数型<br /> .参数 数据, 字节集<br /> <br />     ' 查找对应的SessionID<br />     局部_SessionID = 0<br />     .计次循环首 (取数组成员数 (窗口映射表), i)<br />         .如果 (窗口映射表 <i> = 窗口句柄)<br />             局部_SessionID = i<br />             跳出循环 ()<br />         .如果结束<br />     .计次循环尾 ()<br />     <br />     ' 发送数据<br />     .如果 (局部_SessionID > 0)<br />         .如果 (取数组成员数 (服务器) > 0)  ' 服务端模式<br />             服务器.发送 (局部_SessionID, 数据, 取字节集长度 (数据))<br />         .否则  ' 客户Duan模式<br />             客户Duan.发送 (数据, 取字节集长度 (数据))<br />         .如果结束<br />     .如果结束

wdmcxodcw

2224848 发表于 2025-7-23 03:10
创建一个单例类管理所有 Socket 连接

[e=1].版本 2

真是高手，我不懂映射，不过感觉把通讯这些写到专门一个类里面也可以吗

wdmcxodcw

2224848 发表于 2025-7-23 03:10
创建一个单例类管理所有 Socket 连接

[e=1].版本 2

真是高手，我不懂映射，不过感觉把通讯这些写到专门一个类里面也可以吗

2224848

wdmcxodcw 发表于 2025-7-23 08:47
真是高手，我不懂映射，不过感觉把通讯这些写到专门一个类里面也可以吗 ...

可以的。

2224848

wdmcxodcw 发表于 2025-7-23 08:47
真是高手，我不懂映射，不过感觉把通讯这些写到专门一个类里面也可以吗 ...

楼主结帖率