PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 24 → View the current version that is on Google Play - Consultar a versao atual que está no Google Play
View the current version that is on Google Play - Consultar a versao atual que está no Google Play
Débuté par adrianoboller, 24 nov. 2014 12:29 - 1 réponse
Membre enregistré
3 003 messages
Popularité : +89 (91 votes)
Posté le 24 novembre 2014 - 12:29
Procedure XMLGooglePlayVersao()

// 1 2 3 4 5 6 7 8
//123456789012345678901234567890123456789012345678901234567890123456789012345678901234
//Atualizado em:</dt><dd><time itemprop="datePublished">14 de Maio de 2013</time></dd>
//Versão atual</dt><dd itemprop="softwareVersion">0.0.156.0</dd><dt itemprop=

posini, posfim is int = 0
XMLInfo, DataAtualizacao is string = ""
Link is string = "https://play.google.com/store/apps/details?id=com.boller.appmobile&hl=pt_BR"

IF HTTPRequest(Link) = True AND Link <> "" THEN

//Transfere o resultado para a variavel XMLInfo
XMLInfo = HTTPGetResult()

//Data
posini = PositionOccurrence(XMLInfo,"Atualizado em:",firstRank,IgnoreCase) + 55
posfim = PositionOccurrence(XMLInfo,"</time></dd>",firstRank,IgnoreCase)
DataAtualizacao = Middle(XMLInfo,posini,posfim-posini)

//HReadSeekFirst(T008_Config,T008_Config.codigo008,22)
//IF HFound(T008_Config) = True AND T008_Config.valor008 <> DataAtualizacao
//T008_Config.valor008 = DataAtualizacao
//HModify(T008_Config)
//Info("Existe uma versão nova do aplicativo a ser baixada")
//ExecutePresetAction(actRunInternetSite, Link)
//EndProgram()
//END

END
Membre enregistré
3 003 messages
Popularité : +89 (91 votes)
Posté le 24 novembre 2014 - 12:29
HReadSeekFirst(T008_Config,T008_Config.codigo008,22)
IF HFound(T008_Config) = True AND T008_Config.valor008 <> DataAtualizacao
T008_Config.valor008 = DataAtualizacao
HModify(T008_Config)
Info("Existe uma versão nova do aplicativo a ser baixada")
ExecutePresetAction(actRunInternetSite, Link)
EndProgram()
END