luaengineapp/tests/network/https.lua

53 lines
1.7 KiB
Lua
Raw Normal View History

2020-07-06 06:19:08 +02:00
#!/usr/bin/env luaengine
--[[
******************************************************************************
* luaEngine Lua Engine for Qt
* Copyright (C) 2020 Syping
*
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
******************************************************************************
--]]
2020-07-04 19:36:03 +02:00
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")
2020-07-06 06:15:30 +02:00
socketConnect(socket, "syping.de:443")
2020-07-04 19:36:03 +02:00
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>")
2020-07-06 06:15:30 +02:00
tcpSocketStartTLS(socket)
eIOWrite(socket, "GET / HTTP/1.1\r\nHost: www.syping.de\r\nUser-Agent: LuaEngine\r\nConnection: close\r\n\r\n")
2020-07-04 19:36:03 +02:00
socketFlush(socket)
end
function socketReadyRead(socket)
setObjectText(globalLabel, "<b>Reading...</b>")
local readData = eIOReadAll(socket)
2020-07-06 06:15:30 +02:00
setObjectText(globalLabel, readData)
2020-07-04 19:36:03 +02:00
end