[Interface utilisateurs] Effet visuel non immédiat

**femtosa** · 18/04/2007, 16h07

Hello

J'ai un problème avec mes composants visuels de mon application.

Je travaille avec des TEdit et TStatusBar entre autres, et lorsque je fais une modification de ceux-ci, je ne vois pas directement le résultat. Je doit attendre une réponse TCP pour que les changements aient lieu.

Un bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  EdCommandRetour.Text := '';
  EdMotorCommandRetour.Text := '';
  EdTurretCommandRetour.Text := '';
  StatusBar.Panels[3].Text := 'Envoie...';
...
  try
    TCPClient.WriteBuffer(WriteBuffer, TRAME_LENGTH);
    StatusBar.Panels[3].Text := 'Envoie...OK!';
  except
  ...
  {Ensuite, réception}

Ce n'est qu'une fois la réception de la réponse via TCP que mes champs textes sont effacés ...

Une idée du pourquoi cela n'est pas fait instantanément ...

**Lung** · 18/04/2007, 16h54

Ajoute un Application.ProcessMessages; après avoir modifié tes Edit et ton StatusBar.

**ShaiLeTroll** · 18/04/2007, 17h01

C'est simple, le traitement du message WM_PAINT ne doit pas être géré, il suffit de rajouter des Applications.ProcessMessages (à banir si c'est un thread, de toute façon, manipuler une form depuis un Thread sans synchronize, sectioncritique, ... est à bannir en règle général)

il semble logique que WriteBuffer (TIdTCPClient ?) lance des écoutes des messages ... si l'on étudie le code ... on tombe sur AntiFreeze ...

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
{$IFDEF MSWINDOWS}
procedure TIdAntiFreeze.Process;
var
  Msg: TMsg;
begin
  if ApplicationHasPriority then begin
    Application.ProcessMessages;
  end else begin
    // This guarantees it will not ever call Application.Idle
    if PeekMessage(Msg, 0, 0, 0, PM_NOREMOVE) then begin
      Application.HandleMessage;
    end;
  end;
end;
{$ENDIF}

Je n'ai jamais utilisé les compos indy en Thread mais ceux de D6 (ScktComp) ou D7 (Sockets) ... ça passe bien ? avec ce application.process ?
Edit : C'est bon, j'ai ma réponse, ce compo n'est utilisé que dans le Thread Main sinon il sort ... dans toujours pas de application.processmessages dans un thread, ça confirme mes observations ...

par contre, femtosa, en as tu posé un sur ta forme ? car il semble que cela doit être volontaire ... car normalement ça devrait bloqué sur le message, en le rafraichissement des labels serait effectué qu'à la sortie de la fonction d'Ecriture\Lecture ... et non pas la "réception" comme tu le décrivais dans ton post ...

**femtosa** · 18/04/2007, 17h36

Tip top, avec l'ajout de 'Application.ProcessMessages;' ça marche nickel !

Envoyé par ShaiLeTroll

par contre, femtosa, en as tu posé un sur ta forme ? car il semble que cela doit être volontaire ... car normalement ça devrait bloqué sur le message, en le rafraichissement des labels serait effectué qu'à la sortie de la fonction d'Ecriture\Lecture ... et non pas la "réception" comme tu le décrivais dans ton post ...

Un quoi, un composant Indy ... ? J'utilise le TidTCPClient ... (ainsi que le TFtpClient de François Piette ...)

Oui donc en fait, je ne sais pas exactement quand le rafraichissement avait lieu, mais mon code était :

Code :

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

1
2
3
4
5
6
7
8
9
procedure MonProjet.BtSendCommandClick(Sender: TObject);
begin
  if(TCPClient.Connected) then
  begin
    SendCommand(CBCommands.ItemIndex + 1, 'C');
    ReceiveCommand()
  end
  else MessageDlg('Mon message d''erreur', mtInformation, [mbOk], 0);
end;

L'effacement de mes TEdit était la première instruction de 'SendCommand()' et le rafraichissement n'était réalisé qu'une fois la commande reçue en retour (à quel moment exactement j'en sais trop rien, c'est peut-être à la fin de la méthode Click ... Ca va trop vite

)

Mais c'est ok maintenant !