open avec comport

Version imprimable

06/12/2003, 20h39
Goldocrack

open avec comport

Bonjour à tous !

Comment puisje faire pour savoir si un port série n'est pas déjà utilisé...

Je m'explique, j'ai une carte qui me réponds dans le cas où je fais une sorte de ping (c'est moi qui définie le protocole de réponse) donc j'aimerais ouvrir le port 1, envoyer ma trame. Si je n'ai pas de réponse je ferme et passe au port 2 etc.

Le seul problème : si je tente d'ouvrir un port qui possède déjà sa carte, le programme me renvoie une exception de type EComPort (pour tester, tentez d'ouvrir le port COM auquel est branché votre modem interne par exemple).

Merci de vos réponses.

Voilà un petit exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 AnsiString msg = "";
 
    try
     {
      ComPort1->Connected = true;
     }
    catch(EComPort &e)
     {
       switch(e.Code)
        {
         case CError_OpenFailed  : msg = "Votre port série est déjà ouvert"     ; break;
         case CError_WriteFailed : msg = "Erreur d'écriture sur le port série"  ; break;
         /* voir l'aide de TComPort sur Error codes pour continuer */
        }
      ShowMessage(msg);
     }
}

J'éspère avoir répondu à ta question.
@ bientôt
Vincent

soucis

Merci de t'être penché sur mon problème mais j'ai débuggé en mode pas à pas et le programme plante tout de suite après l'instruction qui permet de connecter le port...

Je donne le code pour être plus clair mais beaucoup ne sers à rien, seulement pour voir si ce n'est pas une exception qui passe au travers :wink:

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
void __fastcall TApplication_Form::Configuration_ComboBox_configCOMChange(
      TObject *Sender)
{
 //si le contenu de la boîte de sélection de config du port série
 //contient une info valable alors on enlève l'encadrement rouge
 if( (Configuration_ComboBox_configCOM->Text == "COM1") ||
     (Configuration_ComboBox_configCOM->Text == "COM2") ||
     (Configuration_ComboBox_configCOM->Text == "COM3") ||
     (Configuration_ComboBox_configCOM->Text == "COM4") )
 {
   AnsiString msg = "Message de départ";
 
   Configuration_Shape_configCOM->Visible = false;
   Application_ComPort->Port = Configuration_ComboBox_configCOM->Text;
   try
   {
     Application_ComPort->Close();
     Application_ComPort->Connected = true; [color=red] //le prog plante ici[/color]
   }
   catch(EComPort &e)
   {
     switch(e.WinCode)
        {
          case 1:
            msg = "Votre port série est déjà ouvert";
            break;
          case 2:
            msg = "Problème d''écriture";
            break;
          case 3:
            msg = "Problème de lecture";
            break;
          default:
            msg = "Default de WinCode";
            break;
        }
     switch(e.Code)
        {
          case 1:
            msg = "Votre port série est déjà ouvert";
            break;
          case 2:
            msg = "Problème d''écriture";
            break;
          case 3:
            msg = "Problème de lecture";
            break;
          default:
            msg = "Default de Code";
            break;
        }
   }
 }
 else
 {
   Application_ComPort->Close();
   Configuration_Shape_configCOM->Visible = true;
   Configuration_ComboBox_configCOM->Text = "Choix du port série";
 }
}

:help: je ne comprends pas pourquoi il ne cherche pas dans les exceptions (en plus je n'arrive pas à faire marcher un bloc __finally à la fin :piou:

Je n'ai pas regardé tout ton code car une chose me semble étrange :
Je ne vois pas de

Code:

ShowMessage(".....");

Comment affiches tu le message d'erreur ?

Citation:

j'ai débuggé en mode pas à pas

Dans ce cas c'est normal que l'exeption se produit et si je ne m'abuse C++ Builder te dit, dans une fenêtre :

Citation:

Le projet xxx.exe à provoqué une classe d'exception EComPort avec le message 'Unable to open port (win error code: 5)'. Processus stopé. Utilisez Pas-à-pas ou Exécuter pour continuer.

Car en mode pas à pas ou débuggage C++ Builder t'informe des exceptions déclanchés et ce, même dans un bloque try-catch ou try-__finally etc...

Pour voir ce qui se passe dans mon exemple il faut mettre un point d'arrêt sur ComPort1->Connected = true; lancer le pas à pas : bien sur on déclanche l'exception en ouvrant un port déjà ouvert. BCB montre la fenêtre d'exception et là tu refait Compiler. Mon exemple te montrera alors la fenêtre "Votre port série est déjà ouvert"

J'aurai aussi pu faire comme ça (c'est une autre solution qui évite le ShowMessage) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 try { ComPort1->Connected = true; } catch(EComPort &e) { switch(e.Code) { case CError_OpenFailed : e.Message = "Votre port série est déjà ouvert" ; break; // voir l'aide de TComPort sur "Error codes" pour continuer la gestion des erreurs } throw; }
Voilà !

09/12/2003, 00h06
Goldocrack

thx

:wow: Pardon de mon ignorance mais je ne fais pas souvent mumuse avec les exceptions :wow:

Merci de m'avoir débloqué, je pense que je devais gérer mes exceptions avant de poser cette question (qui maintenant paraît stupide :roll: )

Pour le ShowMessage je l'avais tout simplement oublié dans le copier coller :D mais c'est sur il y était dans mon code.

:hola: Longue vie à developpez :hola:
08/04/2009, 10h56
bridy224

open comport autre problème

Bonjour,

Alors moi j'ai exatement le même problème

Citation:

le seul problème : si je tente d'ouvrir un port qui possède déjà sa carte, le programme me renvoie une exception de type EComPort (pour tester, tentez d'ouvrir le port COM auquel est branché votre modem interne par exemple).

A part que moi j'ai pas une carte mais j'aimerais quand même tester que le port ne soit pas déjà utiliser.

En + moi j'ai une finesse :

Alors j'utilise BDS 2006 et j'ai fait une DLL en C++ que je dois appeler avec un programme fait en Delphi.

C'est dans la DLL que j'ai la gestion du port série. Dans la DLL je met mon try .....catch comme indiqué.

Citation:

try
{
ComPort1->Connected = true;
}
catch(EComPort &e)
{
switch(e.Code)
{
case CError_OpenFailed : e.Message = "Votre port série est déjà ouvert" ; break;
// voir l'aide de TComPort sur "Error codes" pour continuer la gestion des erreurs
}
throw;
}

Le problème qu'il y a c'est que que aprés l'erreur "Unable to open port...." j'ai une autre erreur :

Erreur d'application

Exception EComPort dans le module madll.dll dans 000

Cette erreur viendrait de l'application hôte faite en Delphi et je n'arrive pas à la "catcher" dans ma DLL.

Mais je n'arrive pad non plus à la catcher dans l'applic hôte car c'est une erreur indiquant que des Exceptin se produisent dans la DLL.

Est ce que quelqu'un a déjà essayer de faire ce genre de chose ?
Est ce que c'est possible de "catcher" cette erreur ou de la désactiver ?

Merci.
15/04/2009, 08h12
bridy224

Correction

Bonjour,

En fait c'est pas correct ce que j'ai marqué.

Citation:

Mais je n'arrive pad non plus à la catcher dans l'applic hôte car c'est une erreur indiquant que des Exceptin se produisent dans la DLL.

En réalité j'arrive à attrapper l'erreur dans l'applicaton hot Delphi avec un bloc

try
.....
exception
on E : Exception do
ShowMessage(
end;

Il m'affiche même le message défini dans la DLL.

Donc j'ai pas vraiment de problème, je m'était mal renseigner.

Voila