HP-Socket 6.01版写的WebSocket客户Duan与服务器问题

凮残あ凌度ツ

凮残あ凌度ツ 发表于 2024-8-8 23:21
我莫名其妙又好了，我服了，如果协议头那边没问题的话可以试试这个代码能不能通。
https://wwd.lanzouj.c ...

或者这一段。

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

.版本 2

.子程序 HandleFun, , , 处理函数,所有逻辑在这处理
.参数 pTask, 整数型
.局部变量 Body, 文本型
.局部变量 bSkipBody, 整数型
.局部变量 Method, 文本型
.局部变量 lpszReqSequence, 文本型
.局部变量 dwSeq, 整数型
.局部变量 header, TNVPair, , "5"
.局部变量 task, TSocketTask
.局部变量 pE, 整数型
.局部变量 pBuffer, IBufferPtr
.局部变量 urlPath, 文本型
.局部变量 bin, 字节集, , , 比如POST的数据存放在此

.如果真 (m_Pool.Ptr2Task (pTask, task) ＝ 假)
    LogMsg (“转换任务对象失败”)
    返回 ()
.如果真结束

.如果真 (m_HttpServer.GetConnectionExtra (task.pSender, task.dwConnID, pE))
    .如果真 (pE ≠ 0)
        pBuffer.Attach (pE)
        bin ＝ 指针到字节集 (pBuffer.Get (), pBuffer.Size ())  ' 取出数据
        pBuffer.Free ()  ' 释放掉内存数据

    .如果真结束

.如果真结束

.如果真 (m_HttpServer.IsUpgrade (task.pSender, task.dwConnID))
    返回 ()
.如果真结束

bSkipBody ＝ 0
Method ＝ m_HttpServer.GetMethod (task.pSender, task.dwConnID)
urlPath ＝ m_HttpServer.GetUrlField (task.pSender, task.dwConnID, #HUF_PATH)
header [1].name ＝ “Accept”
header [1].value ＝ “text/plain, text/html”
header [2].name ＝ “Access-Control-Allow-Origin”
header [2].value ＝ “*”
header [3].name ＝ “Access-Control-Allow-Headers”
header [3].value ＝ “*”
header [4].name ＝ “Access-Control-Allow-Method”
header [4].value ＝ “*”
header [5].name ＝ “Server”
header [5].value ＝ “DaenHttpApi”



.判断开始 (Method ＝ “GET”)
    bSkipBody ＝ 0
    Body ＝ Method ＋ “:” ＋ urlPath
.判断 (Method ＝ “POST”)
    bSkipBody ＝ 0
    Body ＝ Method ＋ “:” ＋ _HP_Utf8ToGbk (到文本 (bin))
.默认
    bSkipBody ＝ 0

yangyzyy

凮残あ凌度ツ 发表于 2024-8-8 23:21
我莫名其妙又好了，我服了，如果协议头那边没问题的话可以试试这个代码能不能通。
https://wwd.lanzouj.c ...

你这是用了别人的现成模块。我不喜欢用别人没有没有开源的模块。我已经自己解决了，整理好后准备开源分享，供需要的人参考

329424313

66666666666666666666666666666

yangyzyy

我自己已经解决得差不多了，而且已经开源了，所以准备撤了。开源网址：https://bbs.125.la/forum.php?mod ... 14831163&extra=