关于 HP-Socket HTTP服务器接收POST 问题

大兵20 · 发表于 2019-3-14 10:43:48

用 HP-Socket HTTP服务器接收POST 请求时 OnBody 里可以看到POST提交的信息，只接收到两条；论坛上有大神说需要组包； OnMessageComplete 解析完成事件具体怎么实现POST完整的数据呢；最好有相关源码！！

子程序名	返回值类型	公开	备注
OnBody	整数型
参数名	类型	参考	可空	数组	备注
pSender	整数型
dwConnID	整数型
pData	整数型
iLength	整数型

变量名	类型	静态	数组	备注
buf	字节集

buf ＝指针到字节集 (pData, iLength)
buf ＝ buf ＋ { 2 }
调试消息 (“消息报文开始事件：” ＋到文本 (buf))
返回 ( #HPR_OK )

子程序名	返回值类型	公开	备注
OnMessageComplete	整数型		OnMessageComplete
参数名	类型	参考	可空	数组	备注
pSender	整数型
dwConnID	整数型

变量名	类型	静态	数组	备注
Body	文本型
bSkipBody	整数型
Method	文本型
lpszReqSequence	文本型
dwSeq	整数型
header	TNVPair		8
p_ReadFile	文本型
cookie文本	文本型
aa	整数型

调试消息 (“解析完成事件”)

如果真 (m_Server.取是否升级协yi (dwConnID))

返回 ( #HPR_OK )

bSkipBody ＝ 0
Method ＝ m_Server.取请求方法 (dwConnID)
dwSeq ＝ 1
m_Server.取Cookie (dwConnID, “__reqSequence”, lpszReqSequence)

如果真 (lpszReqSequence ≠ “”)

dwSeq ＝ dwSeq ＋到整数 (lpszReqSequence)

header [1].name ＝ “Accept”
header [1].value ＝ “text/plain, text/html”

判断 (Method ＝ “HEAD”)

bSkipBody ＝ 1

判断 (Method ＝ “GET”)

bSkipBody ＝ 2

p_ReadFile ＝子文本替换 (m_Server.取Url域值 (dwConnID, #HUF_PATH ), “/”, “\”, , , 真)

如果真 (p_ReadFile ＝ “\”)

p_ReadFile ＝ “\index.html”

Body ＝ GetHeaderSummary (pSender, dwConnID, 假, 假)

判断 (bSkipBody ＝ 0)

m_Server.回复请求 (dwConnID, #HSC_OK, 取HTTP状态码文本 ( #HSC_OK ), header, 到字节集 (Body))

判断 (bSkipBody ＝ 1)

m_Server.回复请求 (dwConnID, #HSC_OK, 取HTTP状态码文本 ( #HSC_OK ), header, )

判断 (bSkipBody ＝ 2)

m_Server.发送本地文件 (dwConnID, 取运行目录 () ＋ p_ReadFile, #HSC_OK, 取HTTP状态码文本 ( #HSC_OK ), header)

' m_Server.SendLocalFile (pSender, dwConnID, “C:\Users\Administrator\Desktop\世纪天成——1000.txt”, #HSC_OK, “HP Http Server OK”, header)

如果真 (m_Server.取是否长连接标识 (dwConnID) ＝假)

m_Server.释放连接 (dwConnID)
返回 ( #HPR_OK )

.版本 2<br />
<br />
.子程序 OnBody, 整数型<br />
.参数 pSender, 整数型<br />
.参数 dwConnID, 整数型<br />
.参数 pData, 整数型<br />
.参数 iLength, 整数型<br />
.局部变量 buf, 字节集<br />
<br />
buf ＝ 指针到字节集 (pData, iLength)<br />
buf ＝ buf ＋ { 2 }<br />
<br />
调试消息 (“消息报文开始事件：” ＋ 到文本 (buf))<br />
返回 (#HPR_OK)<br />
<br />
.版本 2<br />
<br />
.子程序 OnMessageComplete, 整数型, , OnMessageComplete<br />
.参数 pSender, 整数型<br />
.参数 dwConnID, 整数型<br />
.局部变量 Body, 文本型<br />
.局部变量 bSkipBody, 整数型<br />
.局部变量 Method, 文本型<br />
.局部变量 lpszReqSequence, 文本型<br />
.局部变量 dwSeq, 整数型<br />
.局部变量 header, TNVPair, , "8"<br />
.局部变量 p_ReadFile, 文本型<br />
.局部变量 cookie文本, 文本型<br />
.局部变量 aa, 整数型<br />
<br />
调试消息 (“解析完成事件”)<br />
.如果真 (m_Server.取是否升级协yi (dwConnID))<br />
    返回 (#HPR_OK)<br />
.如果真结束<br />
<br />
<br />
bSkipBody ＝ 0<br />
Method ＝ m_Server.取请求方法 (dwConnID)<br />
dwSeq ＝ 1<br />
m_Server.取Cookie (dwConnID, “__reqSequence”, lpszReqSequence)<br />
.如果真 (lpszReqSequence ≠ “”)<br />
    dwSeq ＝ dwSeq ＋ 到整数 (lpszReqSequence)<br />
.如果真结束<br />
<br />
header [1].name ＝ “Accept”<br />
header [1].value ＝ “text/plain, text/html”<br />
<br />
.判断开始 (Method ＝ “HEAD”)<br />
    bSkipBody ＝ 1<br />
.判断 (Method ＝ “GET”)<br />
    bSkipBody ＝ 2<br />
    p_ReadFile ＝ 子文本替换 (m_Server.取Url域值 (dwConnID, #HUF_PATH), “/”, “\”, , , 真)<br />
    .如果真 (p_ReadFile ＝ “\”)<br />
        p_ReadFile ＝ “\index.html”<br />
    .如果真结束<br />
<br />
.默认<br />
    Body ＝ GetHeaderSummary (pSender, dwConnID, 假, 假)<br />
.判断结束<br />
<br />
<br />
.判断开始 (bSkipBody ＝ 0)<br />
    m_Server.回复请求 (dwConnID, #HSC_OK, 取HTTP状态码文本 (#HSC_OK), header, 到字节集 (Body))<br />
.判断 (bSkipBody ＝ 1)<br />
    m_Server.回复请求 (dwConnID, #HSC_OK, 取HTTP状态码文本 (#HSC_OK), header, )<br />
.判断 (bSkipBody ＝ 2)<br />
    m_Server.发送本地文件 (dwConnID, 取运行目录 () ＋ p_ReadFile, #HSC_OK, 取HTTP状态码文本 (#HSC_OK), header)<br />
<br />
.默认<br />
<br />
.判断结束<br />
<br />
<br />
<br />
<br />
' m_Server.SendLocalFile (pSender, dwConnID, “C:\Users\Administrator\Desktop\世纪天成——1000.txt”, #HSC_OK, “HP Http Server OK”, header)<br />
.如果真 (m_Server.取是否长连接标识 (dwConnID) ＝ 假)<br />
    m_Server.释放连接 (dwConnID)<br />
.如果真结束<br />
返回 (#HPR_OK)