求一个Socket接收端口数据的例子

rmb8u8

由于使用易语言自带的    服务器1.取回数据( )    功能监听接收本地TCP端口虚拟打印机的打印数据，处理十来二十兆的文件数据时还行，稍大的文件就会导致窗口卡顿，窗口就没办法进行其它操作，听说使用HP-Socket的ITcpPack也可以实现同样的功能但速度快不卡顿，所以希望大神们给个取代自带的服务器取回数据功能，谢谢

147888123

https://125.confly.eu.org/thread-14717925-1-1.html 再搜搜坛子里的教程，这半个月也一直玩这个HP-Socket ,做了一个简单的个人网盘玩玩

rmb8u8

147888123 发表于 2024-1-18 15:59
https://125.confly.eu.org/thread-14717925-1-1.html 再搜搜坛子里的教程，这半个月也一直玩这个HP-Socket ,做了 ...

论坛里都是些客户Duan和服务端相互传输数据信息的内容，跟我说的这个功能不太一样呢

rmb8u8

请大家帮我看下为何我将监听的TCP商品数据写到文件没成功呢，下面是代码及相关文件
TCP数据监听.rar (2.09 MB, 下载次数: 11)

2024-1-25 14:18 上传

点击文件名下载附件
下载积分: 精币 -2 枚

  

全局变量名	类 型	数组	公开	备 注
TCP服务器	ITcpPackServer

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
句柄	整数型

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

句柄 ＝ TCP服务器.Create (假)
TCP服务器.OnAccept (&客户进入)
TCP服务器.OnReceive (&数据到达)
TCP服务器.OnClose (&连接断开)
TCP服务器.Start (句柄, “127.0.0.1”, 9100)

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

变量名	类 型	静态	数组	备 注
局_接受数据	字节集
局_json	类_json
局_类型	文本型

局_接受数据 ＝ 指针到字节集 (数据指针, 数据长度)
写到文件 (“C:\YYY.PRN”, 局_接受数据)

子程序名	返回值类型	公开	备 注
连接断开
参数名	类 型	参考	可空	数组	备 注
通信句柄	整数型
连接ID	整数型

子程序名	返回值类型	公开	备 注
客户进入
参数名	类 型	参考	可空	数组	备 注
通信句柄	整数型
连接ID	整数型
客户Duan口	整数型

.版本 2<br /> <br /> .全局变量 TCP服务器, ITcpPackServer<br /> <br /> .版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 句柄, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 句柄 ＝ TCP服务器.Create (假)<br /> TCP服务器.OnAccept (&客户进入)<br /> TCP服务器.OnReceive (&数据到达)<br /> TCP服务器.OnClose (&连接断开)<br /> TCP服务器.Start (句柄, “127.0.0.1”, 9100)<br /> <br /> <br /> .子程序 数据到达<br /> .参数 通信句柄, 整数型<br /> .参数 连接ID, 整数型<br /> .参数 数据指针, 整数型<br /> .参数 数据长度, 整数型<br /> .局部变量 局_接受数据, 字节集<br /> .局部变量 局_json, 类_json<br /> .局部变量 局_类型, 文本型<br /> <br /> 局_接受数据 ＝ 指针到字节集 (数据指针, 数据长度)<br /> 写到文件 (“C:\YYY.PRN”, 局_接受数据)<br /> <br /> .子程序 连接断开<br /> .参数 通信句柄, 整数型<br /> .参数 连接ID, 整数型<br /> <br /> <br /> <br /> .子程序 客户进入<br /> .参数 通信句柄, 整数型<br /> .参数 连接ID, 整数型<br /> .参数 客户Duan口, 整数型