Exemple programme de mise à jour

Version imprimable

18/06/2008, 11h32
ddrmax

Exemple programme de mise à jour

Bonjour, j'ai fait mon propre programme de mise à jour qui verifie si une mise à jour est dsiponible et telecharge en consequence les fichiers à jours dans un serveur ftp mais quand je telecharge je presente une nouvelle form avec deux progressbar mais pendant le telechargement il est imposible d'afficher correctement la form, car celle ci s'affiche bien qu'après le telechargent, donc à la fin du traitement de la fonction executée. donc je cherche une source de programme de mise à jour en ligne fonctionnelle qui soit à la sauce live update ou windows update ou non car j'ai rien trouver dans mes recherches. même si le prog et en delphi, pas de pb, je fais d portage. le sujet sera aussi posté en section delphi.
merci pour votre aide
18/06/2008, 12h16
pottiez

Il faut que tu ajoute des Application->ProcessMessage() dans tes boucles de traitement, cela va rafraichir ta fenêtre a chaque appelle

je l'ai fait mais c'a na pas l'air de changer grand chose

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
void __fastcall TForm2::Button3Click(TObject *Sender)
{
int x=0,z=0;
do
{
		do
		{
                          Application->ProcessMessages();
		/*Code telechargement fichier*/
                          Application->ProcessMessages();
		Form2->ProgressBar2->Position=x;
		}while(x!=100);
Sleep(100);//Attente entre chaque fichier ;
Form2->ProgressBar1->Position=z;
x=0;
 
//i=0;
}while(z!=100);
Form1->Label3->Caption=Form1->Label5->Caption;
Form1->Label4->Caption=Form1->Label6->Caption;
Form1->Button2->Enabled=false;
Form1->Button3->Enabled=false;
Form2->Button1->Enabled=true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::FormShow(TObject *Sender)
{
Form2->Refresh();
Application->ProcessMessages();
Sleep(100);
Form2->Button3Click(Sender);
Application->ProcessMessages();
}

Code:

1
2
 
Form2->Refresh();

sa rafraichira la form

Application->ProcessMessage permetra juste de pouvoir cliquer quelque part et qu'il le prenne en compte

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
void __fastcall TForm2::Button3Click(TObject *Sender)
{
int x=0,z=0;
do
{
		do
		{
		/*Code telechargement fichier*/
		Form2->ProgressBar2->Position=x;
                          Form2->Refresh();
                          Application->ProcessMessages();
		}while(x!=100);
Sleep(100);//Attente entre chaque fichier ;
Form2->ProgressBar1->Position=z;
x=0;
 
//i=0;
}while(z!=100);
Form1->Label3->Caption=Form1->Label5->Caption;
Form1->Label4->Caption=Form1->Label6->Caption;
Form1->Button2->Enabled=false;
Form1->Button3->Enabled=false;
Form2->Button1->Enabled=true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::FormShow(TObject *Sender)
{
Form2->Refresh();
Sleep(100);
Form2->Button3Click(Sender);
}

voila essai comme sa
sa devrai aller
Cordialement Baxter