Discussion :

[Vodkha]

Bonjour,

J'ai une application qui reçoit des données en permanence sur mon port série par l'évènemment OnRxchar. Pendant que je reçois, je dois afficher ces données dans leur MDIChild respective. (Chaque donnée a une entête ID qui me permet de retrouver sa fenêtre).

Pour l'instant, je fais ça en direct. Dès que je reçois une donnée sur le port, je fais le traitement. Mais je me suis rendu compte que je perdais des valeurs quand le débit était important. (Quand je ne fais pas de traitement = juste afficher dans un RichEdit je ne perds rien).

Que dois-je faire pour traiter ces données ? thread ou autre chose de plus simple ? merci de vos conseils.
a+

[ShaiLeTroll]

Le Thread serait une bonne solution mais j'ignore commet se comporte le composant TComPort en Thread, ... je ne le connais pas !
Attention manipuler une fenêtre depuis un Thread, c'est casse-gueule, et le synchronize risquerait de te poser les mêmes problèmes de perte de buffer ...

Alors avant de passer au thread, une solution, à chaque réception, tu stocke dans une TList (TStringList, TObjectList ou encore un Array of Byte comme tu préféres), les données que tu reçois, et dans le OnIdle tu appele ton traitement

Ainsi tant que tu as du débit, tu le récupéré, OnIdle est appelé lorsque l'application n'a rien à faire d'autre que de l'appeler ... cela arrive bien assez souvent ... sinon, un Timer, qui consulte toutes les secondes la liste, cela revient au même ...

Code :

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

1
2
3
4
5
6
7
TMainForm = class(TForm
private
  FComPortBuffer: TStringList; // Instanciation dans AfterConstruction et BeforeDestruction)
published
  procedure AppIdle(Sender: TObject; var Done: Boolean);
  procedure ManageIdleEvent(Sender: TObject; var Done: Boolean);
end;

Code :

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

1
2
3
4
5
6
7
procedure TMainForm.ComPortMainRxChar(Sender: TObject; Count: Integer);
Var
  Buffer: string;
begin
  ComPortMain.ReadStr(Buffer, Count);
  FComPortBuffer.Add(Buffer);
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TMainForm.AppIdle(Sender: TObject; var Done: Boolean);
var
  I: Integer;
  AddressMethod: TMethod; 
begin
  // Petit mécansime pour gérer le Idle dans toutes les fenêtres sans passer par  TApplicationEvents)
  for I := 0 to Screen.FormCount - 1 do
  begin
    AddressMethod.Code := Screen.Forms[I].MethodAddress('ManageIdleEvent');
    AddressMethod.Data := Self;
    if Assigned(AddressMethod.Code) then
      TIdleEvent(AddressMethod)(Sender, Done);
  end;
end;

Code :

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

1
2
3
4
5
6
7
8
procedure TMainForm.ManageIdleEvent(Sender: TObject; var Done: Boolean);
begin
  if FComPortBuffer.Count > 0 then
  begin
    Affiche(FComPortBuffer[0]);
    FComPortBuffer.Delete(0);
  end;
end;

Avec les Threads, on peut aller très loin dans les délires, et c'est bien fun
Je faisais cela pour le TClientSocket \ TServerSocket pour le TCP\IP, je stockais les receptions dans une FIFO (TThreadList), j'analysais le contenu des messages dans un Thread, si le message était correct il passait dans une autre ThreadList, sinon, il était loggué en erreur (gestion des erreurs différentes selon l'application), et un second thread s'occupait des traitements DB, et ajoutait dans une 4eme ThreadList les message TCP\IP est expédié vers les différents destinataires dans un pool de Thread selon le nombre de client ..., cela ajoutait dans une autre ThreadList les interactions IHM (des ordres prédéfinis, le passage de paramètre avec synchronize réclamant de la bidouille), un Timer s'occupait à afficher les interactions IHM,

[Vodkha]

Excellent je viens de tester ça marche à merveille.

Thanks a lot man !