Cocos2d-x 3.2 Lua示例 XMLHttpRequestTest（Http网络请求）

比眉伴天荒 2022-08-11 00:39 31阅读 0赞

**Cocos2d-x 3.2 Lua示例 XMLHttpRequestTest（Http网络请求）**

本篇博客介绍Cocos2d-x 3.2Lua示例中的XMLHttpRequestTest，这里提供GET和POST两种http请求方式，返回数据类型有以下几种：

**cc.XMLHTTPREQUEST\_RESPONSE\_STRING = 0  -- 返回字符串类型  
cc.XMLHTTPREQUEST\_RESPONSE\_ARRAY\_BUFFER = 1 -- 返回字节数组类型  
cc.XMLHTTPREQUEST\_RESPONSE\_BLOB   = 2 -- 返回二进制大对象类型  
cc.XMLHTTPREQUEST\_RESPONSE\_DOCUMENT = 3 -- 返回文档对象类型  
cc.XMLHTTPREQUEST\_RESPONSE\_JSON = 4 -- 返回JSON数据类型**

这些常量的定义可以到Cocos2dConstants.lua下找到。

示例代码：

--[[
    =================
    XMLHttpRequestTest.lua
    http请求
    =================
    ]]--
    require("json")
    
    local function XMLHttpRequestLayer()
      local layer = cc.Layer:create()-- 创建层
      local winSize = cc.Director:getInstance():getWinSize()-- 得到窗口大小
      local margin = 40-- 间距
      local space  = 35-- 宽度
    
      local function init()
        local label = cc.Label:createWithTTF("XML Http Request Test", s_arialPath, 28)-- 使用ttf文字格式的标签
        label:setAnchorPoint(cc.p(0.5, 0.5))-- 设置锚点
        label:setPosition(cc.p(winSize.width / 2, winSize.height - margin))-- 设置显示位置，宽度为屏幕的中间，高度为屏幕高度减去间距
        layer:addChild(label, 0) -- 添加标签到层中
    
        -- 显示返回码的标签
        local labelStatusCode = cc.Label:createWithTTF("HTTP Status Code", s_markerFeltFontPath, 20)
        labelStatusCode:setAnchorPoint(cc.p(0.5, 0.5))
        labelStatusCode:setPosition(cc.p(winSize.width / 2,  winSize.height - margin - 6 * space))
        layer:addChild(labelStatusCode)
    
        local menuRequest = cc.Menu:create() -- 创建菜单
        menuRequest:setPosition(cc.p(0,0))
        layer:addChild(menuRequest) -- 添加菜单
    
        --Get
        local function onMenuGetClicked()
          local xhr = cc.XMLHttpRequest:new() -- http请求
          xhr.responseType = cc.XMLHTTPREQUEST_RESPONSE_STRING -- 响应类型
          xhr:open("GET", "http://httpbin.org/get") -- 打开链接
    
          -- 状态改变时调用
          local function onReadyStateChange()
            -- 显示状态文本
            local statusString = "Http Status Code:"..xhr.statusText
            labelStatusCode:setString(statusString)
            print(xhr.response)
          end
    
          -- 注册脚本回调方法
          xhr:registerScriptHandler(onReadyStateChange)
          xhr:send() -- 发送请求
    
          labelStatusCode:setString("waiting...")
        end
    
        -- 测试Get的标签
        local labelGet  = cc.Label:createWithTTF("Test Get", s_arialPath, 22)
        labelGet:setAnchorPoint(cc.p(0.5, 0.5))
        local itemGet  =  cc.MenuItemLabel:create(labelGet) -- 菜单标签
        itemGet:registerScriptTapHandler(onMenuGetClicked) -- 菜单点击事件
        itemGet:setPosition(cc.p(winSize.width / 2, winSize.height - margin - space))
        menuRequest:addChild(itemGet) -- 添加菜单项
    
        --Post
        local function onMenuPostClicked()
          local xhr = cc.XMLHttpRequest:new() -- 新建一个XMLHttpRequest对象
          xhr.responseType = cc.XMLHTTPREQUEST_RESPONSE_STRING -- 相应类型为字符串
          xhr:open("POST", "http://httpbin.org/post")-- post方式
          local function onReadyStateChange()
            labelStatusCode:setString("Http Status Code:"..xhr.statusText)
            print(xhr.response)
          end
          -- 注册脚本方法回调
          xhr:registerScriptHandler(onReadyStateChange)
          xhr:send()-- 发送
    
          labelStatusCode:setString("waiting...")
        end
    
        -- 测试Post的标签
        local labelPost = cc.Label:createWithTTF("Test Post", s_arialPath, 22)
        labelPost:setAnchorPoint(cc.p(0.5, 0.5)) -- 设置锚点
        local itemPost =  cc.MenuItemLabel:create(labelPost) -- 设置菜单项标签
        itemPost:registerScriptTapHandler(onMenuPostClicked) -- 注册菜单项点击回调方法
        itemPost:setPosition(cc.p(winSize.width / 2, winSize.height - margin - 2 * space))
        menuRequest:addChild(itemPost)
    
        --Post Binary
        local function onMenuPostBinaryClicked()
          local xhr = cc.XMLHttpRequest:new()-- 新建一个XMLHttpRequest对象
          xhr.responseType = cc.XMLHTTPREQUEST_RESPONSE_ARRAY_BUFFER --返回数据为字节流
          xhr:open("POST", "http://httpbin.org/post") -- 打开Socket
    
          -- 状态改变时调用
          local function onReadyStateChange()
            local response   = xhr.response -- 获得返回数据
            local size     = table.getn(response) -- 获得返回数据大小
            local strInfo = ""
    
            for i = 1,size do
              if 0 == response[i] then
                strInfo = strInfo.."\'\\0\'"
              else
                strInfo = strInfo..string.char(response[i])
              end
            end
            labelStatusCode:setString("Http Status Code:"..xhr.statusText)
            print(strInfo)
          end
    
          -- 注册脚本方法回调
          xhr:registerScriptHandler(onReadyStateChange)
          xhr:send()-- 发送
    
          labelStatusCode:setString("waiting...")
        end
    
        -- 测试使用Post请求方式发送字节流
        local labelPostBinary = cc.Label:createWithTTF("Test Post Binary", s_arialPath, 22)
        labelPostBinary:setAnchorPoint(cc.p(0.5, 0.5))
        local itemPostBinary = cc.MenuItemLabel:create(labelPostBinary)
        itemPostBinary:registerScriptTapHandler(onMenuPostBinaryClicked)
        itemPostBinary:setPosition(cc.p(winSize.width / 2, winSize.height - margin - 3 * space))
        menuRequest:addChild(itemPostBinary)
    
        --Post Json
        local function onMenuPostJsonClicked()
          local xhr = cc.XMLHttpRequest:new() -- 新建一个XMLHttpRequest对象
          xhr.responseType = cc.XMLHTTPREQUEST_RESPONSE_JSON -- json数据类型
          xhr:open("POST", "http://httpbin.org/post")-- POST方式
    
          local function onReadyStateChange()
            -- 显示状态码,成功显示200
            labelStatusCode:setString("Http Status Code:"..xhr.statusText)
            local response   = xhr.response -- 获得响应数据
            local output = json.decode(response,1) -- 解析json数据
            table.foreach(output,function(i, v) print (i, v) end)
            print("headers are")
            table.foreach(output.headers,print)
          end
    
          -- 注册脚本方法回调
          xhr:registerScriptHandler(onReadyStateChange)
          xhr:send()-- 发送请求
    
          labelStatusCode:setString("waiting...")
        end
    
        -- 测试使用POST方式发送json的标签
        local labelPostJson = cc.Label:createWithTTF("Test Post Json", s_arialPath, 22)
        labelPostJson:setAnchorPoint(cc.p(0.5, 0.5)) -- 锚点
        local itemPostJson = cc.MenuItemLabel:create(labelPostJson) -- 菜单项标签
        itemPostJson:registerScriptTapHandler(onMenuPostJsonClicked) -- 注册菜单项点击
        itemPostJson:setPosition(cc.p(winSize.width / 2, winSize.height - margin - 4 * space))
        menuRequest:addChild(itemPostJson)
      end
    
    
      -- 节点回调事件
      local function onNodeEvent(eventName)
        if "enter" == eventName then
          init()
        end
      end
      
      -- 注册层的监听回调事件
      layer:registerScriptHandler(onNodeEvent)
    
      return layer
    end
    
    function XMLHttpRequestTestMain()
      local scene = cc.Scene:create() -- 创建场景
      scene:addChild(XMLHttpRequestLayer()) -- 添加层
      scene:addChild(CreateBackMenuItem()) -- 添加返回菜单项，具体实现查看helper.lua文件
      return scene
    end

效果图如下：

![20140811140025188][]

Test Get:

![20140811140107683][]

Test Post:

![20140811140001062][]

Test Post Binary:

![20140811140300689][]

Test Post JSON:

![20140811140326679][]

[20140811140025188]: /images/20220810/58b52e0fd2024e19aa60a57e48568fbb.png
[20140811140107683]: /images/20220810/fdc08cea7ba84f1daa25976b6f7845e5.png
[20140811140001062]: /images/20220810/164c5d0292f544a196886f471773cad2.png
[20140811140300689]: /images/20220810/01cb6e94c555430b8ef3d3f912540b3b.png
[20140811140326679]: /images/20220810/698e8effcf964544986f743af070f824.png