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

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

效果图例如以下：


Test Get:


Test Post:


Test Post Binary:


Test Post JSON: