mirror of
https://gitlab.com/Syping/luaengineapp.git
synced 2024-11-05 13:36:55 +01:00
32 lines
984 B
Lua
32 lines
984 B
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 /luaenginetest.html 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, "<!DOCTYPE html>" .. readData)
|
||
|
|
end
|