sambuc/NodeMCU_Lua
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Toujours de gros problème de fuite mémoire avec le serveur web ;-(

Browse Source
This commit is contained in:
Christian Zufferey
2019-01-26 20:59:05 +01:00
parent 604267dbff
commit 1c003a13b6
4 changed files with 71 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ZYX-html-framework/a_test_ram.lua
View File

@@ -1,7 +1,7 @@
-- Scripts pour tester l'occupation méroire des différents modules
-- source:
print("\n a_test_ram.lua zf190126.1117 \n")
print("\n a_test_ram.lua zf190126.1845 \n")
test_ram_alarm1=tmr.create()
test_ram_alarm2=tmr.create()
@@ -32,15 +32,15 @@ tmr.alarm(test_ram_alarm2, 5*1000, tmr.ALARM_SINGLE, function()
zram1=node.heap()
-- dofile("telnet_srv2.lua")
-- dofile("web_ide2.lua")
-- dofile("web_srv.lua")
dofile("web_srv_test2.lua")
-- dofile("set_time.lua")
dofile("web_html.lua")
-- dofile("web_html.lua")
-- dofile("telnet_srv2.lc")
-- dofile("web_ide2.lc")
-- dofile("web_srv.lc")
dofile("set_time.lc")
-- dofile("set_time.lc")
zram2=node.heap()
end)

32
ZYX-html-framework/web_srv2.lua
View File

@@ -1,6 +1,6 @@
-- petit script de serveur WEB avec Active Server Page ZYX
print("\n web_srv2.lua zf190126.1837 \n")
print("\n web_srv2.lua zf190126.1844 \n")
-- send a file from memory to the client; max. line length = 1024 bytes!
function send_file(zclient, zfilename)
@@ -14,12 +14,17 @@ function send_file(zclient, zfilename)
until not line
file.close()
else
zclient:send("<html><h1>"..zfilename.." not found - 404 error.</h1><a href='index.html'>Home</a><br></html>")
zclient:send("<html><h1>"..zfilename.." not found - 404 error.</h1><a href='/'>Home</a><br></html>")
end
zfilename = nil
zclient = nil
line = nil
file = nil
end
srv = net.createServer(net.TCP)
srv = net.createServer(net.TCP,10)
srv:listen(80, function(conn)
conn:on("receive", function(client, request)
_, _, method, path, vars = string.find(request, "([A-Z]+) (.+)?(.+) HTTP")
@@ -30,6 +35,7 @@ srv:listen(80, function(conn)
print("path: ",path)
print("vars: ",vars)
--[[
if not string.find(request, "/favicon.ico") then
print("coucou")
if (method == nil) then
@@ -44,11 +50,25 @@ srv:listen(80, function(conn)
end
file_html=string.gsub(path, "/", "")
print("file_html: ",file_html)
send_file(conn, file_html)
-- send_file(conn, file_html)
-- send_file = nil
]]
conn:send("<h1> ESP8266<BR>Server is working!</h1>\n\n")
file_html = nil
k = nil
v = nil
_GET = nil
method = nil
path = nil
vars = nil
-- conn:send("<h1> ESP8266<BR>Server is working!</h1>\n\n")
end
-- end
end)
conn:on("sent", function(c) c:close() end)
end)

17
ZYX-html-framework/web_srv_test.lua Normal file
View File

@@ -0,0 +1,17 @@
-- petit script de serveur WEB pour tester les fuite mémoire
print("\n web_srv_test.lua zf190126.2014 \n")
sv = net.createServer()
function receiver(sck, data)
print(data)
sck:close()
end
sv:listen(80, function(conn)
conn:on("receive", receiver)
conn:send("<h1> ESP8266<BR>Server is working!</h1>"..tmr.now().."\n\n")
end)

24
ZYX-html-framework/web_srv_test2.lua Normal file
View File

@@ -0,0 +1,24 @@
-- petit script de serveur WEB pour tester les fuite mémoire
print("\n web_srv_test2.lua zf190126.2051 \n")
function receiver(sck, data)
print(data)
sck:close()
end
sv = net.createServer()
sv:listen(80, function(conn)
conn:on("receive", function(client, request)
print(request)
-- client:close()
conn:send("<h1> ESP8266<BR>Server is working!</h1>"..tmr.now().."\n\n")
conn:on("sent", function(c) c:close() end)
end)
-- conn:on("sent", function(c) c:close() end)
end)