PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → WX (Windev, Webdev e Windev Mobile) - Live update com arquivo ini
WX (Windev, Webdev e Windev Mobile) - Live update com arquivo ini
Iniciado por Boller, mai., 07 2021 5:27 PM - 6 respostas
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em maio, 07 2021 - 5:27 PM
Exemplo

No servidor
[sistemax]
Versao = 2

......

URLini is string = “http://w.com/versao.ini”

Httprequest (URLini)

Versao is string = Httpgetresult()

Fsavetext(fcurrentdir()+ fsep()+ “versaoserver.ini”, Versao)

Versao is string = iniread (...

Versaolocal is string = iniread (...

If val(versao) > val(versaolocal)

Ftpconnect

If <> -1

Ftpget(URL)

End

Ftpclose

End

Execrun(file)

//Update file Ini with version server//

Iniwrite(....,versao,...)

Endprogram


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em maio, 08 2021 - 12:37 AM
EXEMPLO TESTADO

PROCEDURE LiveUpdate()

baixouok is boolean

URLini is string = “http://wxsolucoes.com.br/versaovpw.ini”

HTTPRequest (URLini)

Versao is string = HTTPGetResult()

fSaveText(fCurrentDir()+ fSep()+ “versaoserver.ini”, Versao)

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)

conexaoftp is int = FTPConnect("177.220.189.6","joao","123","21",ftpPassiveMode)

IF conexaoftp <> -1 //cdeu certo

IF FTPGetFile(conexaoftp,"/Install_VIPW.exe","c:\VIPW_Teste\Install\") = True THEN

baixouok = True

INIWrite("VPW","Versao",Versaoserver,fCurrentDir()+ fSep()+ “versaolocal.ini”)

ExeRun("c:\VIPW_Teste\Install\Install_VIPW.exe")

ToastDisplay("Sua aplicação será fechada e atualizada",toastLong,vaMiddle,haCenter,RGB(0,0,255))

EndProgram

ELSE
baixouok = False
END

ELSE

Info("Servidor offline ou erro de confguracao")

END

FTPDisconnect(conexaoftp)

END

RESULT baixouok


bY JOAO VITOR

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em maio, 08 2021 - 12:50 AM
// Summary:
// Syntax:
//LiveUpdate ()
//
// Parameters:
// None
// Automatic procedure:
// The procedure is automatically run, after the project initialization code, with a delay set to 1 second
// It will be run in a thread (without having to call ThreadExecute), without using HFSQL
// It will be repeated in loop, with a timeout set to 10 minutes between each call
//

PROCEDURE LiveUpdate()

baixouok is boolean

URLini is string = “http://wxsolucoes.com.br/versaovpw.ini”

HTTPRequest (URLini)

Versao is string = HTTPGetResult()

fSaveText(fCurrentDir()+ fSep()+ “versaoserver.ini”, Versao)

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)

conexaoftp is int = FTPConnect("177.220.189.6","joao","123","21",ftpPassiveMode)

IF conexaoftp <> -1 //cdeu certo

IF FTPGetFile(conexaoftp,"/Install_VIPW.exe","c:\VIPW_Teste\Install\") = True THEN

baixouok = True

FTPDisconnect(conexaoftp)

INIWrite("VPW","Versao",Versaoserver,fCurrentDir()+ fSep()+ “versaolocal.ini”) // ATUALIZA O INI LOCAL COM O VALOR DO SERVIDOR

ExeRun("c:\VIPW_Teste\Install\Install_VIPW.exe")

ToastDisplay("Sua aplicação será fechada e atualizada",toastLong,vaMiddle,haCenter,RGB(0,0,255))


EndProgram

ELSE
baixouok = False
END

ELSE

//info("Servidor offline ou erro de confguracao")

END

FTPDisconnect(conexaoftp)

END


//result baixouok


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em setembro, 30 2021 - 1:49 PM
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


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em setembro, 30 2021 - 6:01 PM
Video explicando a tecnica do LiveUpdate com arquivos ini e FTP
==========================================



https://repository.windev.com/resource.awp…

OK

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em novembro, 08 2022 - 3:47 PM









--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em novembro, 08 2022 - 3:48 PM
CODE PARA MOBILE

// Summary: <specify the procedure action>
// Syntax:
//LiveUpdate ()
//
// Parameters:
// None
// Example:
// <Specify a usage example>
//
// Return value:
PROCEDURE LiveUpdate()

baixouok is boolean


conexaoftp is int = FTPConnect("187.95.147.180","OcimarTeste","@Ocimar$123456$$$$","21",ftpPassiveMode)

IF conexaoftp <> -1//cdeu certo THEN

IF FTPGet(conexaoftp,"versaoserver.ini",fCurrentDir()+fSep()) =True THEN
ToastDisplay("Conferindo versão",toastLong,vaMiddle,haCenter)
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 FTPGet(conexaoftp,"Install_GEW.apk",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.apk")

ShellExecute(fCurrentDir()+fSep()+"Install_GEW.apk")

ToastDisplay("Sua aplicação será fechada e atualizada",toastLong,vaMiddle,haCenter)

EndProgram

ELSE
baixouok=False
END

END

ELSE

Info("Servidor offline ou erro de confguracao")

END

FTPDisconnect(conexaoftp)


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/