抓取数据整数型

admin

由于5.8.8之后的版本更新 更新了抓取数据这个命令导致之前的一些DEMO出现简单的用法错误 在此更新 抓取数据整数型
# E  T4 \$ p$ D2 `

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

.版本 2
.支持库 spec

.子程序 数据接收事件, 整数型
.参数 客户端句柄, 整数型
.参数 连接ID, 整数型
.参数 参_数据长度, 整数型
.局部变量 局_数据指针, 整数型
.局部变量 局_TLV, TLV解包

局_数据指针 ＝ 申请内存 (参_数据长度, )
PULL客户端.抓取数据 (全_客户端句柄, 局_数据指针, 参_数据长度)
' ----------------------------------------------
局_TLV.Type ＝ 取字节集数据 (指针到字节集 (局_数据指针, 4), #整数型, )
局_TLV.Lenggth ＝ 取字节集数据 (指针到字节集 (局_数据指针 ＋ 4, 4), #整数型, )
局_TLV.Value ＝ 指针到字节集 (局_数据指针 ＋ 8, 局_TLV.Lenggth)
' ------------------------------------------------
输出日志 (“《接收》；” ＋ 到文本 (局_TLV.Value))
释放内存 (局_数据指针)
返回 (#HR_OK)