Discussion :

[Laskar]

Salut à tous.

J'ai un bout de code qui télécharge quotidiennement un fichier disponible sur un site web. Quand le programme démarre, j'aimearis qu'il affiche une petite fenêtre avec une barre de progression et qu'il quitte en fin de téléchargement.
Si je fais une fenêtre avec un bouton qui lance le download, tout va bien.
Comment afficher une fenêtre, lancer le téléchargement avec barre de progression et quitter ensuite SANS INTERVENTOIN HUMAINE ?
Si je place le code dans le OnCreate ou le OnShow, le téléchargement se fait mais la fenêtre n'apparaît pas ! Comment faire pour l'afficher ?

Merci

[Basile le disciple]

Bonjour

Si je place le code dans le OnCreate ou le OnShow, le téléchargement se fait mais la fenêtre n'apparaît pas ! Comment faire pour l'afficher ?

Moi, je mettrais le code dans le OnActivate de la form, car si on met

Code :

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

  sleep(1000);

dans OnShow et OnCreate, la fenêtre attend 1 seconde avant de s'afficher alors que dans OnActivate, la fenêtre s'affiche puis attend 1 seconde.

Comment afficher une fenêtre, lancer le téléchargement avec barre de progression et quitter ensuite SANS INTERVENTOIN HUMAINE ?

Pour la fermer, il suffirait de mettre

Code :

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

Application.Terminate

juste après le traitement. Quant au lancement de l'application, je pense que l'on peut gérer ça avec Windows(si c'est sous Windows) comme mettre l'exe dans le dossier démarrage.

[Andnotor]

C'est toujours le problème du mono-tâche

Le but est de ne démarrer le téléchargement que lorsque l'application est chargée. Le mieux pour cela est de s'envoyer un message asynchrone (donc ajouté à la fin de la file de messages) qui ne sera interprété que lorsque l'ensemble des messages de création/affichage auront été exécutés.

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
const
  WM_DOWNLOAD = WM_USER;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure Download(var Message :TMessage); message WM_DOWNLOAD;
  end;
 
procedure TForm1.Download(var Message: TMessage);
begin
  //Téléchargement
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  PostMessage(Handle, WM_DOWNLOAD, 0, 0);
end;

On peut aussi utiliser un TTimer mais le principe reste le même (un message WM_TIMER est post-é).

Le mieux reste bien sûr de déporter le téléchargement dans un thread dédié

[sgmsg]

Le create n'est pas l'endroit idéale pour faire du travail.

Le create sert a l'initialisation. Si tu dois attendre 2 heures avant d’exécuter le téléchargement, le processus monopolise des ressource inutilement pendant tout ce temps.

Une façon de faire mieux adapter:

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
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if frac(now)<16/24 then exit;//attend 16:00:00 pour lancer le téléchargement
   timer1.Enabled:=false;
   timer1.intervall:=60000;//tentative à toutes les minutes
   form1.visible:=true;
   Button1Click(Sender);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   ...
   application.processmessages;//ça aide aussi
   ...
 
//à ajouter a la fin de la procedure
   if telechargementreussi then  application.terminate;
   timer1.enabled:=true;
end;

J'oubliais dans le répertoire démarrage tu ajoutes le chemin du programme. comme le précise "Diamant dans un corps d'athlète"

[Laskar]

Bonjour
Moi, je mettrais le code dans le OnActivate de la form.

J'ai utilisé ce truc. On imposant un Repaint de la forme dans le OnActivate, ça marche.

La méthode de sgmsg ne me plaît pas beaucoup. Mettre un bouton et le cliquer à l'aide d'un Timer me paraît drôlement bancal. Mais bon, la fin justifie les moyens.

Je vais réécrire le code en utilisant les threads pour gérer plusieurs téléchargements simultanés, ça sera plus "pro".

Merci à tous.

[sgmsg]

La méthode de sgmsg ne me plaît pas beaucoup. Mettre un bouton et le cliquer à l'aide d'un Timer me paraît drôlement bancal. Mais bon, la fin justifie les moyens.

C'est certain.

C'était pour ne pas a avoir a retranscrire tout le programme dans le timer. Code que tu n'avais pas mis...

De toute façon, c'est parfois c'est utile. Au lancement tu forces un traitement avec timer. Ensuite la propriété timer1.enable devient false donc timer1 arrête. Finalement, tu le appel le traitement manuellement en cliquant sur le bouton...