监听TCP端口数据无法写到文件

rmb8u8

请大家帮我看下为何我将监听的TCP端口数据写到文件没成功呢，数据一闪而过，就是文件夹下没有文件，下面是代码及相关文件

  

全局变量名	类 型	数组	公开	备 注
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口, 整数型

数据监听.rar (2.09 MB, 下载次数: 1)

2024-1-30 09:35 上传

点击文件名下载附件

654799976

你是启动了一个服务，并不是连接了打印机，没有数据传输事件

冷渣渣

你是启动了一个服务，并不是连接了打印机，没有数据传输事件

鹏书

数据到达事件底下调试输出一下看看有没有数据到达啊

rmb8u8

654799976 发表于 2024-1-30 09:48
你是启动了一个服务，并不是连接了打印机，没有数据传输事件

但是打印的数据一闪而过，如果是没连接上不是应该数据不会消失吗？

Yecate

Hp-Socket PACK模式 是需要双方都是PACK 或者自己构造PACK数据包头

yuangao

呵呵,,也是打算做USB转网络打印是吧..

rmb8u8

不是，就是想把打印机数据给拦截下来进行修改，你会吗？