Discussion :

[ddrmax]

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

[pottiez]

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

[ddrmax]

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

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
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();
}

[Baxter67]

Code :

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

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 :

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

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