HP TCP 模块如何创建多个TCPServer

TPAN898

请问: 论坛里的 HP TCP 模块如何创建多个不同的TCPServer，创建一个正常运行，创建第二个就闪退，求大侠给个例子....


补充内容 (2026-7-19 22:55):
使用这个HP模块创建多个TCPServer，给个例子，谢谢！
HP-Socket 6.0.1 rc3 源码+模块+例程
https://bbs.ijingyi.com/forum.php?mod=viewthread&tid=14832368
(出处: 精易论坛)

Marvin

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
服务器1	HP_TcpServer
服务器2	HP_TcpServer

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

服务器1.创建 (0)
服务器1.启动 (“0.0.0.0”, 10086)
调试输出 (“服务器1启动成功, 端口:10086”)
服务器2.创建 (0)
服务器2.启动 (“0.0.0.0”, 10087)
调试输出 (“服务器2启动成功, 端口:10087”)

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

如果真 (服务器1.是否启动 ())
服务器1.停止 ()
服务器1.销毁 ()
调试输出 (“服务器1已停止并销毁”)

如果真 (服务器2.是否启动 ())
服务器2.停止 ()
服务器2.销毁 ()
调试输出 (“服务器2已停止并销毁”)

子程序名	返回值类型	公开	备 注
服务器1_数据到达	整数型
参数名	类 型	参考	可空	数组	备 注
连接ID	整数型
数据	字节集

调试输出 (“服务器1收到数据, 连接ID:” ＋ 到文本 (连接ID))
返回 (0)

子程序名	返回值类型	公开	备 注
服务器2_数据到达	整数型
参数名	类 型	参考	可空	数组	备 注
连接ID	整数型
数据	字节集

调试输出 (“服务器2收到数据, 连接ID:” ＋ 到文本 (连接ID))
返回 (0)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 服务器1, HP_TcpServer<br /> .程序集变量 服务器2, HP_TcpServer<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 服务器1.创建 (0)<br /> 服务器1.启动 (“0.0.0.0”, 10086)<br /> 调试输出 (“服务器1启动成功, 端口:10086”)<br /> <br /> 服务器2.创建 (0)<br /> 服务器2.启动 (“0.0.0.0”, 10087)<br /> 调试输出 (“服务器2启动成功, 端口:10087”)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> .如果真 (服务器1.是否启动 ())<br />     服务器1.停止 ()<br />     服务器1.销毁 ()<br />     调试输出 (“服务器1已停止并销毁”)<br /> .如果真结束<br /> <br /> .如果真 (服务器2.是否启动 ())<br />     服务器2.停止 ()<br />     服务器2.销毁 ()<br />     调试输出 (“服务器2已停止并销毁”)<br /> .如果真结束<br /> <br /> .子程序 服务器1_数据到达, 整数型<br /> .参数 连接ID, 整数型<br /> .参数 数据, 字节集<br /> <br /> 调试输出 (“服务器1收到数据, 连接ID:” ＋ 到文本 (连接ID))<br /> 返回 (0)<br /> <br /> .子程序 服务器2_数据到达, 整数型<br /> .参数 连接ID, 整数型<br /> .参数 数据, 字节集<br /> <br /> 调试输出 (“服务器2收到数据, 连接ID:” ＋ 到文本 (连接ID))<br /> 返回 (0)

注意：你要先把两个HP_TcpServer组件拖到启动窗口上，分别命名为“服务器1”和“服务器2”，然后在属性面板里绑定它们各自的“数据到达”事件。两个端口不一样就不会冲突，闪退问题就能解决

TPAN898

Marvin 发表于 2026-7-19 22:47
[e=1].版本 2

.程序集 窗口程序集_启动窗口

谢谢，您的回复，我说的是用这个HP模块创建多个TCPserver    HP-Socket 6.0.1 rc3 源码+模块+例程
https://bbs.ijingyi.com/forum.php?mod=viewthread&tid=14832368
(出处: 精易论坛)

tj5523

楼上说的很清楚了，new不同的对象出来用，易语言就是定义两个数据类型出来使用

TPAN898

tj5523 发表于 2026-7-20 10:18
楼上说的很清楚了，new不同的对象出来用，易语言就是定义两个数据类型出来使用 ...

大神，用HP模块写个例子呗

祭祀雨人

一楼的就是HP-socket模块中的类型…

accet

TPAN898 发表于 2026-7-19 22:53
谢谢，您的回复，我说的是用这个HP模块创建多个TCPserver    HP-Socket 6.0.1 rc3 源码+模块+例程
https: ...

多弄几个 TcpServer 类 每个都是使用一次  不就有多个了..