Discussion :

[dacid]

Bonjour,

J'ai un cas de figure assez tordu... Je vais essayer d'etre clair et concis:
J'ai un périférique avec lequel je communique en RS232 à l'aide d'une DLL (qui gère la connexion de A à Z).
J'ai envie d'automatiser la communication (au lieu de cliquer sur un bouton, lancer automatiquement la liaison).
Pour ça, j'ai besoin d'ouvrir le port COM et de lançer régulièrement une commande... S'il y réponds, on lance la DLL.

Seulement, la DLL ouvre elle même le port, je suis donc obligé de le fermer avant de la lancer... Et c'est là que ça bloque.

IMPOSSIBLE de fermer le port suite à une lecture dessus, il doit y avoir des choses qui trainent... Voici mon code:

Code :

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

1
2
3
4
5
6
7
procedure TfrmMain.cpMainRxChar(Sender: TObject; Count: Integer);
var nb: Integer;
begin
  nb := cpMain.ReadStr(ligne,maxCount); // Vide le tampon
  fermerCOM; // CA PETE ICI !!!
  lanceDLL();
end;

Qu'est ce qu'il se passe ?

[tatareau]

il est peut être préferable avant de lancer un connexion d'avoir un flag qui te dit si le port et ouvert ou pas. Sinon une boucle tant que avec qui spool avec une temporisation pour tester si le port est libre...et une gestion d'erreur? je ne sais pas quelle message d'erreur te renvoi l'appli. Voila quelques pauvres idées...
Bon code

[dacid]

Bonjour tatareau, et mercipour ta rapidité.

En fait, on ne peut pas fermer la connexion dans une procédure dépendante du tComPort... Il faut qu'elle aille à son terme (je ne sais pas trop pourquoi).

J'ai donc, dans cette procédure, lancé un timer qui fermera la connexion.

C'es dommage, c'est du bricolage et il y a un court temps de latence mais ça marche !