Discussion :

[elscorpio]

Bonjour,
comme je n'arrivais pas à mettre en place la mise à jour de mon application via live update http, j'ai décidé de développer moi même ce module.

Voici le code que j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
HTTPDestination(MonRépertoire+"\INSTALL.EXE")
HTTPJauge(JAUGE_Progression,10000)
SI HTTPRequete("http://MonServeur/Chemin/INSTALL.EXE") ALORS
    LanceAppli(MonRépertoire+"\INSTALLEXE")
    FinProgramme()
FIN

Ce code est utilisé dans l'initialisation d'une fenêtre qui possède un champ JAUGE. Ce code fonctionne, je télécharge bien mon exécutable et le lance une fois le téléchargement terminé.
Le problème est que si l'utilisateur clique sur la fenêtre pendant le téléchargement, elle passe en état "Ne répond plus" et la jauge ne se rempli plus bien que le téléchargement continue.

Comment je peux faire pour que ma fenêtre soit toujours active et qu'elle ne passe pas en "Ne répond plus".

Je vous remercie

[LeonCosnyd]

Il faut alterner les traitements entre thread et thread principal.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
// Dans le code de ta fenetre 
ThreadExécute("ThreadDL",threadNormal,ProcedureTelechargement)
 
BOUCLE
	SI ThreadEtat("ThreadDL") = threadInexistant ALORS
		SORTIR
	FIN
	Multitâche(-1)
FIN
 
SI fFichierExiste(MonRépertoire+"\INSTALL.EXE") ALORS
    // Traitement pour lancer la MAJ    <------------- Edit 
FIN

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
// Ta procédure de téléchargement (executée dans un thread)
PROCEDURE ProcedureTelechargement()
     HTTPDestination(MonRépertoire+"\INSTALL.EXE")
     HTTPJauge("ProcedureActualisationJauge")
     SI HTTPRequête("http://MonServeur/Chemin/INSTALL.EXE") ALORS
          HTTPDonneRésultat()
     FIN
FIN

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
// Procédure qui actualise la jauge
PROCEDURE ProcedureActualisationJauge(eNbTotal est un entier, eNbRecu est un entier)
	PROCEDURE INTERNE AffichageJauge(eNbTotalOctet est un entier, eNbRecuOctet est un entier)
		JAUGE_Progression = Val(eNbRecuOctet * 100 / eNbTotalOctet)		
		Multitâche(-1)
	FIN
 
	ExécuteThreadPrincipal(AffichageJauge,eNbTotal,eNbRecu)
FIN

[elscorpio]

Je te remercie, je teste ça tout de suite

[LeonCosnyd]

Par contre je te conseille de mettre un garde de fou dans la boucle afin de sortir et afficher un message d'échec de téléchargement si besoin. Pour cela tu peux actualiser une variable globale à la fenêtre de type DateHeure (<section critique>) dans la procédure d'actualisation de la jauge. et dans ta boucle comparer la variable dateHeure à la dateHeure système. Si pas d'actualisation en xx Min c'est qu'il y a un problème donc on sort, on kill le thread (Oo), et on affiche un message d'erreur.

[elscorpio]

Bonjour,
désolé pour la réponse tardive.

J'ai commencer à mettre en place ta solution mais je rencontre un problème, les procédures internes ne sont pas disponibles en windev 15 (seulement à partir de la 20).

Est-ce qu'il y aurait la possibilité de faire sans les procédures internes?

Je te remercie

edit:
en fait, j'ai juste retiré la procédure interne et j'ai placé le code dans la procédure d'actualisation de la jauge ce qui donne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
PROCEDURE ProcedureActualisationJauge(nNbTotal est un entier, nNbRecu est un entier)
    JAUGE_Progression = val(nNbRecu * 100 / nNbTotal)
    multitâche(-1)

et ça fonctionne.
Il ne me reste plus qu'à rajouter des indications dans ma fenêtre (taille totale du fichier, taille téléchargée et pourcentage) et ma fenêtre sera bonne mais ça ne devrait pas poser problème.

Je te remercie