HP-SOCKET官方例程里那个Ab子程序是啥作用啊

laily · 发表于 2020-9-12 23:49:30

子程序名	返回值类型	公开	备注
Ab	整数型		取字节集指针
参数名	类型	参考	可空	数组	备注
变量	字节集

置入代码 ({ 139, 69, 8, 139, 0, 131, 192, 8, 139, 229, 93, 194, 4, 0 })
返回 (0)

置入那代码有什么具体用的。

子程序名	返回值类型	公开	备注
_Receive	整数型		通用处理数据
参数名	类型	参考	可空	数组	备注
pData	整数型
iLength	整数型

变量名	类型	静态	数组	备注
size	整数型
len	整数型
ilen2	整数型
buff	整数型

' 要实现发送文件之类的操作，需要规定双方的通信协议
' 就是要实现统一的协议，比如：
' pData = 当前数据长度+当前数据
' 当前数据=命令+参数
' 这样可以组成一个简单的协议
' 用整数来实现命令可以容纳FFFFFFFF种命令，且只占据4个固定字节，这样就比较好实现统一的解析
' 如果用文本来实现命令，则第一长度不固定会给解析带来一定的效率影响，所以我一般是用整数来充当命令
' 或者可以用json，xml等标准格式来实现协议。如JSON: {"fun":"sendfile","filename":"1.exe"},就可以通过fun来确定执行的代码
' 在常量里定义命令，请查看常量数据表
buff ＝ pData
ilen2 ＝ iLength
m_Data ＝ m_Data ＋指针到字节集 (buff, ilen2)
size ＝取字节集长度 (m_Data)

如果真 (size ＜ 8) ' 如果长度小于8，则不是标准的协议，直接放弃

返回 ( #HR_OK )
len ＝ _Hanle_Data (Ab (m_Data), size)

判断 (len ＝ 0)

m_Data ＝ { }

m_Data ＝取字节集右边 (m_Data, len)
返回 ( #HR_OK )

子程序名	返回值类型	公开	备注
_Hanle_Data	整数型		返回剩余长度
参数名	类型	参考	可空	数组	备注
data	整数型
size	整数型

变量名	类型	静态	数组	备注
pBuffer	字节集
buffsize	整数型			数组长度
len	整数型			数据长度
api	整数型			命令
inlen	整数型

判断循环首 (真) ' 考虑到粘包问题，所以一直循环去解析数据，直到解不出来未知

' 叠加数据

如果真 (size － inlen ＜ 8) ' 如果长度小于8，则不是标准的协议，跳出循环，去掉数据

跳出循环 ()

len ＝ _HP_GetDword (data ＋ inlen ＋ #数据长度 ) ' 前四个字节为数据长度，加上上一次的长度

如果真 (len ＋ 4 ＞ size － inlen) ' 如果数据长度大小剩余长度，则数据不完整，跳出循环，去掉数据

跳出循环 ()

api ＝ _HP_GetDword (data ＋ inlen ＋ #命令 ) ' 第5到8字节为命令

buffsize ＝ len － #命令

如果真 (buffsize ＞ 0) ' 判断还有没有数据

pBuffer ＝指针到字节集 (data ＋ inlen ＋ #数据, len － #命令 ) ' 取出数据

inlen ＝ inlen ＋ len ＋ 4 ' 移动游标

m_Api ＝ api

判断 (api ＝ #发送文件 ) ' 发送文件命令

m_FileName ＝到文本 (pBuffer)

_Log (“接收事件”, “收到文件请求，文件名: ” ＋ m_FileName)

CloseHandle (CreateThread (0, 0, &_Thread_API, #发送文件, 0, 0))

判断 (api ＝ #开始发送 ) ' 开发发送

_Log (“接收事件”, “开发发送，文件名: ” ＋ m_FileName)

CloseHandle (CreateThread (0, 0, &_Thread_API, #开始发送, 0, 0))

判断 (api ＝ #开始接收 ) ' 开始接收

m_filesize ＝取字节集数据 (pBuffer, #整数型, )

m_type ＝取字节集数据 (pBuffer, #整数型, 5)

_Log (“保存文件”, “开始接收: ” ＋ m_SaveFile ＋ “ 长度: ” ＋到文本 (m_filesize) ＋ “ 模式: ” ＋选择 (m_type ＝ #文件分包模式, “数据包模式”, “数据流”))

m_hFile ＝打开文件 (m_SaveFile, #重写, #禁止读写 )

如果真 (m_hFile ＝ 0)

fun_SendData (到整数 (Edit_ConnID.内容), #停止发送 )

_Log (“保存文件”, “打开文件失败: ” ＋ m_SaveFile)

判断 (api ＝ #接收文件 ) ' 接收文件

' _Log (“接收事件”, “写到文件长度3: ” ＋到文本 (到整数 (len － #命令)))

如果真 (m_hFile ＝ 0)

fun_SendData (到整数 (Edit_ConnID.内容), #停止发送 )

返回 ( #HR_OK )

m_filesize ＝ m_filesize �� (len － #命令 )

写出字节集 (m_hFile, pBuffer)

判断 (api ＝ #接收完成 ) ' 接收完成

_Log (“接收事件”, “保存文件,接收完成: ” ＋ m_SaveFile)

如果真 (m_hFile ≠ 0)

关闭文件 (m_hFile)

m_hFile ＝ 0

判断 (api ＝ #停止发送 ) ' 停止发送

判断 (api ＝ #消息 ) ' 消息

_Log (“接收事件”, “收到消息: ” ＋到文本 (pBuffer))

判断循环尾 ()
返回 (size － inlen)

.版本 2<br />
<br />
.子程序 _Hanle_Data, 整数型, , 返回剩余长度<br />
.参数 data, 整数型<br />
.参数 size, 整数型<br />
.局部变量 pBuffer, 字节集<br />
.局部变量 buffsize, 整数型, , , 数组长度<br />
.局部变量 len, 整数型, , , 数据长度<br />
.局部变量 api, 整数型, , , 命令<br />
.局部变量 inlen, 整数型<br />
<br />
.判断循环首 (真)  ' 考虑到粘包问题，所以一直循环去解析数据，直到解不出来未知<br />
    ' 叠加数据<br />
    .如果真 (size － inlen ＜ 8)  ' 如果长度小于8，则不是标准的协议，跳出循环，去掉数据<br />
        跳出循环 ()<br />
    .如果真结束<br />
    len ＝ _HP_GetDword (data ＋ inlen ＋ #数据长度)  ' 前四个字节为数据长度，加上上一次的长度<br />
<br />
    .如果真 (len ＋ 4 ＞ size － inlen)  ' 如果数据长度大小剩余长度，则数据不完整，跳出循环，去掉数据<br />
        跳出循环 ()<br />
    .如果真结束<br />
    api ＝ _HP_GetDword (data ＋ inlen ＋ #命令)  ' 第5到8字节为命令<br />
    buffsize ＝ len － #命令<br />
<br />
    .如果真 (buffsize ＞ 0)  ' 判断还有没有数据<br />
        pBuffer ＝ 指针到字节集 (data ＋ inlen ＋ #数据, len － #命令)  ' 取出数据<br />
    .如果真结束<br />
<br />
    inlen ＝ inlen ＋ len ＋ 4  ' 移动游标<br />
<br />
    m_Api ＝ api<br />
    .判断开始 (api ＝ #发送文件)  ' 发送文件命令<br />
        m_FileName ＝ 到文本 (pBuffer)<br />
        _Log (“接收事件”, “收到文件请求，文件名: ” ＋ m_FileName)<br />
        CloseHandle (CreateThread (0, 0, &_Thread_API, #发送文件, 0, 0))<br />
<br />
    .判断 (api ＝ #开始发送)  ' 开发发送<br />
        _Log (“接收事件”, “开发发送，文件名: ” ＋ m_FileName)<br />
        CloseHandle (CreateThread (0, 0, &_Thread_API, #开始发送, 0, 0))<br />
<br />
    .判断 (api ＝ #开始接收)  ' 开始接收<br />
        m_filesize ＝ 取字节集数据 (pBuffer, #整数型, )<br />
        m_type ＝ 取字节集数据 (pBuffer, #整数型, 5)<br />
        _Log (“保存文件”, “开始接收: ” ＋ m_SaveFile ＋ “ 长度: ” ＋ 到文本 (m_filesize) ＋ “ 模式: ” ＋ 选择 (m_type ＝ #文件分包模式, “数据包模式”, “数据流”))<br />
        m_hFile ＝ 打开文件 (m_SaveFile, #重写, #禁止读写)<br />
        .如果真 (m_hFile ＝ 0)<br />
            fun_SendData (到整数 (Edit_ConnID.内容), #停止发送)<br />
            _Log (“保存文件”, “打开文件失败: ” ＋ m_SaveFile)<br />
        .如果真结束<br />
<br />
    .判断 (api ＝ #接收文件)  ' 接收文件<br />
        ' _Log (“接收事件”, “写到文件长度3: ” ＋ 到文本 (到整数 (len － #命令)))<br />
        .如果真 (m_hFile ＝ 0)<br />
            fun_SendData (到整数 (Edit_ConnID.内容), #停止发送)<br />
            返回 (#HR_OK)<br />
        .如果真结束<br />
<br />
        m_filesize ＝ m_filesize － (len － #命令)<br />
<br />
<br />
        写出字节集 (m_hFile, pBuffer)<br />
<br />
    .判断 (api ＝ #接收完成)  ' 接收完成<br />
        _Log (“接收事件”, “保存文件,接收完成: ” ＋ m_SaveFile)<br />
        .如果真 (m_hFile ≠ 0)<br />
            关闭文件 (m_hFile)<br />
            m_hFile ＝ 0<br />
        .如果真结束<br />
<br />
    .判断 (api ＝ #停止发送)  ' 停止发送<br />
<br />
<br />
    .判断 (api ＝ #消息)  ' 消息<br />
        _Log (“接收事件”, “收到消息: ” ＋ 到文本 (pBuffer))<br />
<br />
    .默认<br />
<br />
    .判断结束<br />
<br />
<br />
<br />
.判断循环尾 ()<br />
返回 (size － inlen)