axmol/samples/Lua/TestLua/Resources/luaScript/XMLHttpRequestTest/XMLHttpRequestTest.lua

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.LabelTTF:create("XML Http Request Test", "Arial", 28)
        label:setPosition(cc.p(winSize.width / 2, winSize.height - margin))
        layer:addChild(label, 0)

        --Response Code Label
        local labelStatusCode = cc.LabelTTF:create("HTTP Status Code", "Marker Felt", 20)
        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 = XMLHttpRequest:new()
            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

        local labelGet  = cc.LabelTTF:create("Test Get", "Arial", 22)
        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 = XMLHttpRequest:new()
            xhr.responseType = cc.XMLHTTPREQUEST_RESPONSE_STRING
            xhr:open("POST", "http://httpbin.org/post")
            local function onReadyStateChange()
                labelStatusCode:setString("Http Status Code:"..xhr.statusText)
                print(xhr.response)
            end
            xhr:registerScriptHandler(onReadyStateChange)
            xhr:send()
            
            labelStatusCode:setString("waiting...")
        end

        local labelPost = cc.LabelTTF:create("Test Post", "Arial", 22)
        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 = XMLHttpRequest:new()
            xhr.responseType = cc.XMLHTTPREQUEST_RESPONSE_ARRAY_BUFFER
            xhr:open("POST", "http://httpbin.org/post")

            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

        local labelPostBinary = cc.LabelTTF:create("Test Post Binary", "Arial", 22)
        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 = XMLHttpRequest:new()
            xhr.responseType = cc.XMLHTTPREQUEST_RESPONSE_JSON
            xhr:open("POST", "http://httpbin.org/post")

            local function onReadyStateChange()
                labelStatusCode:setString("Http Status Code:"..xhr.statusText)
                local response   = xhr.response
                local output = json.decode(response,1)
                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

        local labelPostJson = cc.LabelTTF:create("Test Post Json", "Arial", 22)
        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())
    return scene
end