luaengineapp/tests/network/http.lua

local globalLabel

function main()
    -- Window
    mainWindow = createMainWindow("LE TCP Test")
    local mainLayout = createLayout(VerticalLayout, mainWindow)

    local socket = createTcpSocket()
    connect(socket, "connected()", "socketConnected")
    connect(socket, "readyRead()", "socketReadyRead")
    socketConnect(socket, "syping.de:80")

    globalLabel = createLabel("<b>Connecting...</b>", mainLayout)

    -- Show Window
    setWidgetSize(mainWindow, 650, 450)
    showWidget(mainWindow, ShowDefault)
    return GuiExecuted
end

function socketConnected(socket)
    setObjectText(globalLabel, "<b>Connected!</b>")
    eIOWrite(socket, "GET / HTTP/1.1\r\nHost: www.syping.de\r\nUser-Agent: LuaEngine\r\nConnection: close\r\n\r\n")
    socketFlush(socket)
end

function socketReadyRead(socket)
    setObjectText(globalLabel, "<b>Reading...</b>")
    local readData = eIOReadAll(socket)
    setObjectText(globalLabel, readData)
end