Discussion :

[mIch°°]

bonjour à tous,
voila, je suis en train de créer une interface pour recuperer les infos d'un lecteur RFID qui est branché sur un port serie. Tout fonctionne pour le mieux jusqu'a maintenant.
Malheureusement, je desire réaliser une lecture en boucle. Dans un premier temps, je lancais ma fonction lecture dans une boucle, un petit refresh sur l'affichage du resultat et voila. Le seul probleme, c'est que je n'arrive pas arreter la boucle. J'ai essayé d'utiliser un click sur un bouton pour commander la fin de la boucle, mais le programme garde toujours la main (ce qui me semble normal).
Donc, ma question est dans un premier temps: est ce qu'utiliser un thread est utile?
si oui, alors comment faire pour passer des variables de mon unit principale a mon thread et inversement?
merci a vous.
ps: je peux mettre le code si besoin

[ShaiLeTroll]

tu peux faire appel a "application.processmessage()" régulièrement dans la boucle, et gérer une variable booléene globale pour arrêter la boucle

sinon, tu peux faire un thread, cela éviterait les lenteurs de ton programme par contre, ne manipule pas les forms à partir du thread, et communique entre le thread principale et le thread RFID via une TThreadList (manipulé via LockList/UnLockList) contenant des pointeurs sur des record ... après faut que tu sois à l'aise avec les pointeurs, tu peux utiliser une structure variable (un case dans le record voir Windows.PLDTEntry comme exemple) pour stocker des données différentes selon l'occasion

j'ai failli entré chez IER, il font du RFID, mais je n'aurais pas bossé dessus mais un progiciel de gestion logistique, ils avaient l'air trop obsédé par le TransacSQL, vu que je n'aime pas spécialement la BD, je n'ai pas eu besoin de refuser le poste, mon absence de niveau et de motivation concernant Transac m'a exclu direct

[mIch°°]

ok merci, je pense que je vais tenter le thread. ca me semble mieux.

[edam]

comment tu accéd au port série?? avec composant (comport,..)?

[mIch°°]

Non, pour le port com. J'utilise la dll fournie par le constructeur du lecteur.

[mIch°°]

ShaiLeTroll, tu n'aurais pas un exemple pour utiliser la tthreadlist... je ne trouve rien sur le net.
Merci

[ShaiLeTroll]

je n'ai pas d'exemple, je vais te mettre des extrait de codes

Code :

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

1
2
3
     // - Liste d'attente des Messages en Attente
     TreatMessageThreadLst := TThreadList.Create();
     TreatMessageThreadLst.Duplicates := dupAccept;

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
var
   PhysicalStateData : _STRUCT_RTXTOOAM_BINSTATUS;
   DataSegment : _STRUCT_SEGMENT_DATA;
   pSimMessage : ^_STRUCT_MESSAGE;
begin
... 
 
  // Remplissage de l'enveloppe
  New(pSimMessage); // Allocation de la mémoire pour un nouveau pointeur
  pSimMessage^.Envelope.cSom := START_OF_MESSAGE;
  pSimMessage^.Envelope.byClass := 0;
  ...
  pSimMessage^.Tail.byCKS := 0;
  pSimMessage^.Tail.byEOM := END_OF_MESSAGE;
 
  TreatMessageThreadLst.Add(pSimMessage); // Ajout de la Donnée à envoyer dans la liste d'attente d'envoi

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
with TreatMessageThreadLst.LockList() do begin
     try
        // La liste contient-elle un message ?
        FlagWork := Count >= 1;
        if FlagWork then begin
           // Récupération de la valeur indiquée par le pointeur dans une variable locale
           // Items[0] est le premier pointeur de la liste protégée
           // Items[0]^ est la valeur du premier pointeur
           // _STRUCT_MESSAGE(Items[0]^) est la première valeur transtypée sous la forme d'un _STRUCT_MESSAGE
           CurrentMessage := _STRUCT_MESSAGE(Items[0]^);
           try
              SetLength(_STRUCT_MESSAGE(Items[0]^).Datas, 0);
           except
                 FichierLog('EXCEPT', 'SetLength à Zéro', Exception(ExceptObject()).Message);
           end;
           // Le Message est ENTIEREMENT recopié en Memoire dans CurrentMessage
           // On peut libérer le pointeur
           Dispose(Items[0]);
           // On peut supprimer le pointeur de la File d'Attente
           Delete(0);
        end;
     finally
            TreatMessageThreadLst.UnlockList();
     end;
end; // with

[mIch°°]

merci