Exemplo para fazer LiveUpdate em suas aplicações, permitindo automatizar a instalação em diversos clientes ao mesmo tempo de forma automatizada e tranquila.
Pode ser usado nos aplicativos WINDEV Windows e Linux e aplicações mobile android a idéia é muito similar.
https://forum.PC SOFT.fr/fr-FR/PC SOFT.br.WINDEV/3743-WINDEV-WEBDEV-WINDEV-mobile-live-update-com-arquivo-3828/read.awp
VIDEO
https://youtu.be/NOIvCAxnDL0
Codigo Exemplo
PROCEDURE LiveUpdateGEW()
baixouok is boolean
conexaoftp is int = FTPConnect("187.95.147.138","Ocimar","@Ocimar$123456","21",ftpPassiveMode)
IF conexaoftp <> -1 //cdeu certo THEN
IF FTPGetFile(conexaoftp,"versaoserver.ini",fCurrentDir()+ fSep()) = True THEN
ToastDisplay("Conferindo versão",toastLong,vaMiddle,haCenter,RGB(0,0,255))
END
DataExecucao is string = INIRead("VPW","DataExecucao","",fCurrentDir()+ fSep()+ “versaolocal.ini”)
Versaoserver is string = INIRead ("VPW","Versao","",fCurrentDir()+ fSep()+ “versaoserver.ini”)
Versaolocal is string = INIRead ("VPW","Versao","",fCurrentDir()+ fSep()+ “versaolocal.ini”)
IF Val(Versaoserver) > Val(Versaolocal) AND DataExecucao <> DateSys()
IF FTPGetFile(conexaoftp,"Install_GEW.exe",fCurrentDir()+ fSep()) = True THEN
baixouok = True
FTPDisconnect(conexaoftp)
INIWrite("VPW","Versao",Versaoserver,fCurrentDir()+ fSep()+ “versaolocal.ini”) // ATUALIZA O INI LOCAL COM O VALOR DO SERVIDOR
INIWrite("VPW","DataExecucao",DateSys(),fCurrentDir()+ fSep()+ “versaolocal.ini”) // ATUALIZA O INI LOCAL COM O VALOR DO SERVIDOR
// INFO(fCurrentDir()+ fSep()+ “versaolocal.ini”)
ExeRun(fCurrentDir()+ fSep()+ "Install_GEW.exe")
ToastDisplay("Sua aplicação será fechada e atualizada",toastLong,vaMiddle,haCenter,RGB(0,0,255))
EndProgram
ELSE
baixouok = False
END
END
ELSE
//info("Servidor offline ou erro de confguracao")
END
FTPDisconnect(conexaoftp)
//result baixouok