https://www.cnblogs.com/yangfengwu/p/10891908.html
视频教程:
https://www.bilibili.com/video/av55663292
请先自行补充基础内容
https://www.cnblogs.com/yangfengwu/p/6921832.html
https://www.cnblogs.com/yangfengwu/category/1383497.html1-3节
这一节的GPRS程序和https://www.cnblogs.com/yangfengwu/p/10875886.html这节的WIFI做相同的功能,整体功能也一样,单片机复位自动升级
现在测试
1,下载GPRS程序 ,主要的GPRS程序就是收到连接TCP指令就去连接TCP,然后透传...
require "socket"
module(..., package.seeall)
--串口配置
local globalSendData1 = nil
local globalSendData = nil
local UART_ID = 1 --uart1
local uartReadData = "";
local uartReadDataFlage = false;
local ip=nil
local port=nil
local asyncClient
sys.taskInit(function()
while true do
while not socket.isReady() do sys.wait(1000) end
if port~=nil and ip~=nil then
asyncClient = socket.tcp()
if asyncClient:connect(ip, port) then
uart.write(1,"{\"datemcu\":\"updata\",\"state\":\"ConnectOK\"}")--发送链接成功指令
print("{\"datemcu\":\"updata\",\"state\":\"ConnectOK\"}");
else
uart.write(1,"{\"datemcu\":\"updata\",\"state\":\"ConnectNO\"}")
end
port = nil;
ip=nil;
while asyncClient:asyncSelect(60, "ping") do end--必须有这个,负责TCP的后台运行
asyncClient:close()
end
sys.wait(1000)
end
end)
-- TCP接受到数据,发送串口
sys.subscribe("SOCKET_RECV", function(id)
if asyncClient.id == id then
local data = asyncClient:asyncRecv()
uart.write(1,data)
end
end)
local jsondata,result,errinfo;
--定时器空闲中断检测(串口空闲接收数据)
local TimerFunc4Cnt = 0;
local function TimerFunc4()
if uartReadDataFlage == true then
TimerFunc4Cnt = TimerFunc4Cnt+1;
if TimerFunc4Cnt >= 20 then
TimerFunc4Cnt=0;
uartReadDataFlage = false;
globalSendData = uartReadData;
uartReadData = "";
end
end
if globalSendData ~= nil then
jsondata,result,errinfo = json.decode(globalSendData)--判断是不是json
if result and type(jsondata)=="table" then -- 是json数据
if jsondata["datemcu"] ~= nil and jsondata["datemcu"] =="updata" then
if jsondata["cmd"] ~= nil and jsondata["cmd"] =="ConnectTCP" then
if jsondata["ip"] ~= nil and jsondata["port"] ~=nil then
ip = jsondata["ip"]
port = jsondata["port"]
end
end
end
else
if asyncClient ~=nil then
asyncClient:asyncSend(globalSendData)--TCP发送数据
end
end
globalSendData = nil;
end
end
sys.timerLoopStart(TimerFunc4,10)
--读取串口接收到的数据
local uartdata = ""
local function read()
uartdata = ""
while true do
uartdata = uart.read(UART_ID,"*l",0)
if not uartdata or string.len(uartdata) == 0 then break end
uartReadData = uartReadData..uartdata;
uartReadDataFlage = true
TimerFunc4Cnt = 0;
end
end
uart.on(UART_ID,"receive",read)
--配置并且打开串口
uart.setup(UART_ID,115200,8,uart.PAR_NONE,uart.STOP_1)
后期文章改动,根据文章标题查找
下载单片机IAP程序
云端的还是这个
测试
修改云端版本,复位下单片机
