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