Discussion :

[Invité]

Bonjour,

J'ai un problème mineur que j'ai pour l'instant "réglé" de 2 manières, à mon avis, non satisfaisantes.

La première et seule fenêtre du programme contient un Tlabel et une TProgessbar. Dans l'évènement OnShow, je crée un tidFTP (indy 10) qui charge immédiatement un fichier. Je rencontre un problème d'affichage lors de l'exécution du programme : le fond de la Form est transparent (je vois le bureau de Windows à travers ). J'ai placé une image (alClient)... pas mieux...

J'ai 2 solutions : placer le chargement dans un Thread parallèle... Inutile dans ce cas car la fenêtre ne fait que charger le fichier... Le Thread ne servirait qu'à gérer l'affichage...
ou cela

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.FormPaint(Sender: TObject);
begin
  if bDejaLance = False then begin
    bDejaLance := True;
    Application.ProcessMessages;
    FTPrun();
  end;
end;

... sachant que l'évènement Paint est ouvert de multiples fois lors d'un simple affichage de la fenêtre (d'où le bDejaLance).

Dans les 2 cas, je trouve les procédures très lourdes pour un simple problème de synchronisation des "évènements"... Y a-t-il plus simple ?

Cordialement. Gilles

[chris37]

Bonjour Gilles

C'est effectivement curieux comme méthode de travail et ton problème d'affichage d'autant plus logique....

Si je puis me permettre une autre manière de procéder basée sur mes différentes applications de gestion

Le traitement gérant la récupération de ton fichier peut très bien se placer dans une unité dédiée: soit dans une classe ou directement dans une méthode avec ou sans l'utilisation d'un Thread (Selon les besoins)

Ensuite l'ors de l'appel de la procédure de traitement, celle ci peut directement piloter une Tform pour y afficher du texte et une jauge de progression ou mieux encore appeller une procédure de call back (Cas de l'api Windows et de pleins d'autres fonctions).

Ainsi, n'importe lequel de tes programmes peut faire appel à tes outils de gestion fichiers et rester indépendant

Cela résoud également les différents problème liés à l'affichage des fenêtres car au risque de passer pour un vieux chi....... on ne lance pas de traitement dans les procédures d'affichage. Cela n'est pas fait pour cela.....

Très cordialement,
Chris

[Invité]

Bonjour Chris...

Je ne comprends pas bien la réponse... Hum, j'ai encore dû mal "encoder" ma question initiale. Je reformule.

Mon problème est de synchroniser les évènements... Il ne s'agit pas de piloter la fenêtre de l'extérieur. Elle est toute seule, lancée ainsi :

Project1.lpr

Code :

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

1
2
3
4
5
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

A partir de là, tout le code sera dans la TForm1.
La séquence de procédure d'affichage d'une Form vide semble être : Resize - Show - Active - Paint.

Le Active est tentant mais en ce qui me concerne l'affichage n'est pas complet, ni d'ailleurs le traitement du fond de la Form avec le Paint qui m'a amené à placer un TStaticText (alClient)... Ce qui me laisse supposer qu'il n'y a pas d'indicateur que le Show est terminé...

D'où ma question ?

Au plaisir de te relire.
Cordialement. Gilles

PS :

• Avec un Thread c'est comme si... mais pas vraiment : le Thread principal du programme de la Form fait sa cuisine d'affichage, ses Paint & Co,... et pendant ce temps-là, le Thread parallèle exécute sa procédure et comme elle s'effectue en parallèle, elle ne "gêne" pas le Thread principal (l'affichage). De ce fait, tout semble "bien" : l'utilisateur ne s'aperçoit de rien... Mais c'est un contournement du problème.
• Les API Windows ? J'utilise les 2 OS. Je préfère donc les codes portables Win/Nux

[Invité]

Bon, finalement, en essayant diverses combinaisons, j'en ai trouvé une en jouant avec Resize : Je change la largeur initiale de la Form dans l'évènement OnPaint de celle-ci. Le "Application.ProcessMessages" devient inutile avant le lancement de la procédure ftpRun.

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
35
36
37
38
39
40
41
type
  TForm1 = class(TForm)
     private
    { private declarations }
    FormDefaultWidth : Integer;  //Contiendra la largeur initiale de la Form
    bDejaLance : Boolean;        //Ne lancer qu'une fois la procedure ftpRun et
    procedure ftpRun();          //non à chaque Repaint 
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
[...]
 
procedure TForm1.ftpRun();
begin
 [...]  
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  FormDefaultWidth := Form1.Width; //Mémorise la largeur initiale de la Form
   bDejaLance  := False;           //Initialisation de la variable "Une seule fois"
 [...]
end;
 
procedure TForm1.FormPaint(Sender: TObject);
begin
  Form1.Width := FormDefaultWidth +1;    //Il faut changer la valeur par défaut
  if  bDejaLance  = False then begin     //...sinon sans effet
    bDejaLance  := True;
//  Application.ProcessMessages;         //...inutile 
    ftpRun();
  end;
end;
 
end.

Le problème d'affichage semble résolu sur Win et Nux même en enlevant le StaticText (alClient) qui me servait de fond de Form. Reste la question : comment sait-on que la séquence d'affichage onShow est terminée ? Je n'ai pas le temps de regarder plus avant pour l'instant. Je note dans mon carnet...

Chris, merci pour ton aide (Même si je n'ai pas bien compris ta réponse, la nécessité de reformer plus clairement la question m'a donné une réponse empirique... à défaut).
Cordialement. Gilles

[chris37]

Pour las apis de Bilou, c'etait juste un exemple, j'aurai pu citer d'autre systmem qui appels des procedures call back !

Bon je file voir X-men au cine et je reprend le manche dans la soirée

Mais je reste sur ma position de séparer affichage et traitement !

Cordialement,
Chris

[Invité]

Oui, oui... Je suis d'accord mais dans ce cas particulier je n'ai pas le temps de trouver mieux.

Bon ciné.
A bientôt. Gilles

[tourlourou]

après le OnShow, c'est OnActivate : http://www.phidels.com/php/index.php...ion.htm&id=170

[Paul TOTH]

pour lancer une évènement après affichage de tout il m'est arrivé d'ajouter un PostMessage(Handle, WM_USER, 0, 0) dans le OnCreate et de placer le traitement sur une procédure sur le message WM_USER.

En effet, le message étant placé en fin de pile, il est traité après tout le reste.

Maintenant l'idée du Thread n'est pas mauvaise, la fenêtre a beau ne faire qu'un téléchargement FTP, si tu veux qu'elle réagisse à la souris il ne faut pas qu'elle soit bloquée sur le traitement FTP...sinon elle est visible à l'écran mais ne répond plus au système.

pour cela j'utilise cette technique.

[Invité]

Bonsoir,

Merci pour toutes vos réponses :

après le OnShow, c'est OnActivate : http://www.phidels.com/php/index.php...ion.htm&id=170

Oui mais...

La séquence de procédure d'affichage d'une Form vide semble être : Resize - Show - Active - Paint.

Le Active est tentant mais en ce qui me concerne l'affichage n'est pas complet, ni d'ailleurs le traitement du fond de la Form avec le Paint qui m'a amené à placer un TStaticText (alClient)... Ce qui me laisse supposer qu'il n'y a pas d'indicateur que le Show est terminé...

pour lancer une évènement après affichage de tout il m'est arrivé d'ajouter un PostMessage(Handle, WM_USER, 0, 0) dans le OnCreate et de placer le traitement sur une procédure sur le message WM_USER.

En effet, le message étant placé en fin de pile, il est traité après tout le reste.

Oui, mais pas compatible Nux.

Maintenant l'idée du Thread n'est pas mauvaise, la fenêtre a beau ne faire qu'un téléchargement FTP, si tu veux qu'elle réagisse à la souris il ne faut pas qu'elle soit bloquée sur le traitement FTP...sinon elle est visible à l'écran mais ne répond plus au système.

Oui je procède comme cela habituellement quand j'ai du temps... mais le problème devenait trop ardu pour le temps dont je disposais aujourd'hui.

Mon bricolage suffira pour l'instant... mais la question est intéressante et reste posée... J'attends les prochaines vacances pour me repencher sur le problème.

Cordialement. Gilles