Bug avec le Tcomport

Question

Bonjour,
Voilà mon problème, j'ai réalisé une application qui fonctionne très bien. Elle utilise le composant Tcomport.

Le bug apparait quand je lance le "Clavier visuel" de windows. J'ai une erreur "Unable to open com port (win error code:5)".

Si quelqu'un a déjà rencontré ce problème, ou si quelqu'un sait comment éviter le problème (encore mieux), alors je vous écoute.

Merci d'avance pour votre aide...

esigvb · Answer

Bonjour,

Pour être plus précis, le bug arrive quand: le "Clavier visuel" de windows est déjà lancé, et que je lance mon application après.

Merci d'avance pour votre aide...

cs_jfs59 · Answer

Un petit bout du code ... sinon on est pas devin ...

Cordialement jfs.
<hr size="2" width="100%">
Tout est en tout et r&#233;ciproquement ...

esigvb · Answer

Le bug apparait des qu'il y a le composant Tcomport dans un programme, et que le "Clavier visuel" de windows est déjà lancé.
Mais voila le code, j'ai juste mis le composant Tcomport sur la form, et ouvert le comport à la création de la form, on ne peut vraiment pas faire plus simple.



unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CPort;

type
  TForm2 = class(TForm)
    ComPort1: TComPort;
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
  ComPort1.Open;
end;

end.


Merci pour votre aide

Francky23012301 · Answer

Salut,

Vu la simplicité du code il me semble évident que tu ne peux ouvrir deux fois ton clavier visuel. Alors pourquoi ne pas le fermer quand tu fermes l'application ??

A+

esigvb · Answer

Salut Francky23012301,

Je ne veux pas lancer deux fois le clavier visuel. Le code que j'ai mis cause aussi le bug comme mon programme plus complexe.

Ce que je recherche, c'est pourquoi j'ai l'erreur "Unable to open com port (win error code:5)", alors que j'ai simplement ouvert le clavier visuel de windows, et lancé ensuite un programme en delphi avec le composant Tcomport.
Et enfin comme résoudre ce problème.

Vous pouvez essayé chez vous, il suffit de :
1) lancer le clavier visuel (démarrer>Tous les programmes>Accessoires>Accessibilité>Clavier visuel)
2) lancer un programme delphi qui contient le composant Tcomport (Comme l'exemple que j'ai donné)

Et après ça vous aurez :
"Unable to open com port (win error code:5)"

Aidez moi SVP!!!

florenth · Answer

Le clavier visuel scrute les ports COM &#224; la recherche d'un eventuel p&#233;riph&#233;rique qui permettrai de selectionner une lettre.
Donc, si ma logique est bonne, c'est incopatible avec ton programme.

J'esp&#232;re juste que je me trompe.

++

Si tu ne te plantes pas ......
tu ne pousseras jamais

esigvb · Answer

Salut florenth,

Si le clavier visuel scrute les ports COM, comme faire pour fermer ce programme. Car quand je lance le clavier visuel après mon programme en delpi, il n'y a pas de problème.

Il ne reste plus qu'a trouver comment fermer le programme osk.exe(clavier visuel) qui est dans le dossier system32.

Merci pour votre aide...

florenth · Answer

Normalement, il suffit de faire ça :

var H: THandle; begin H := FindWindow(nil, 'Clavier visuel'); if H <> 0 then SendMessage(H, WM_CLOSE, 0, 0); end;

J'ai pas testé mais ça devrait être ça. ++ Si tu ne te plantes pas ...... tu ne pousseras jamais

esigvb · Answer

Merci beaucoup florenth,

Ton code marche bien, mais j'ai dû mettre un sleep, pour éviter d'avoir le problème. Voici le code:

procedure TForm2.FormCreate(Sender: TObject);
var
  H: THandle;
begin
  H := FindWindow(nil, 'Clavier visuel');
  if H <> 0 then SendMessage(H, WM_CLOSE, 0, 0);
  Sleep(100);
  ComPort1.Open;
end;


C'est bien, ça permet d'éviter l'erreur. Il y a t il quelque chose d'autre à faire, comme par exemple modifier le composant (si oui quoi?) pour éviter de bidouiller, car je ne sais pas s'il le composant bug avec d'autres logiciels.

Merci de ton aide florenth, et si il y a d'autres proposition, je suis preneur.

florenth · Answer

En gros, &#231;a bugge s'il y a un conflit entre l'utiisation du port COM.
A mon avis, chaque appli qui utilise le port COM devrait v&#233;rifier s'il n'est pas d&#233;j&#224; utilis&#233; et si et seulement si c'est le cas, alors elle peut s'en sevir.
Dans le cas contraire, elle se ferme ou ignore cette possibilit&#233; (cas je pense du clavier visuel).

++

PS: pour le sleep() c'est normal car le temps que la fenetre recoive le message Windows de fermeture (qui est sur une file donc FIFO), ton appli &#224; d&#233;j&#224; execut&#233; l'autre instruciton (c'est &#231;a le probl&#232;me de synchro entre les threads)

Si tu ne te plantes pas ......
tu ne pousseras jamais

jlen100 · Answer

salut,

en fait tu essayes d'ouvrir un port qui est d&#233;j&#224;  ouvert tu peux intercepter l'exception pour traiter le probl&#232;me 

pour remplacer le sleep tu dois pouvoir aussi faire 

while  FindWindow(nil, 'Clavier visuel')<>0 do Application.processmessages.

tu peux aussi choisir un autre port Com.



@+

jlen

esigvb · Answer

Bonjour,
Merci a tous pour votre aide. En effet le clavier visuel de windows doit utiliser le COM1, je ne sais pas pourquoi, mais il l'utilise.
Je pense que la meilleur solution est d'intercepter l'exception, comme a dit Jlen100. Mais comment le faire, et où le faire.

Merci pour votre aide.

DeltaFX · Answer

Bon ben esigvb, t'as plus qu'a coder ton propre clavier virtuel, ouala.....

:p

Bug avec le Tcomport

13 réponses

Votre réponse

Discussions similaires