Discussion :

[vantoff]

Bonjour,
j'ai deux problèmes:
j'envois une commande a un controleur et lui doit me revoyer une trame.
Il envoit la trame mais lettre par lettre et en allant à chaque fois à la ligne.Je crois que c'est le TimeOuts du composant TComPort,le buffer doit certainement considere chaque caractère comme une trame dans l'évènement RxChar. Comment faire pour y remedier.
Mon Code

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
26
27
28
29
30
31
32
33
34
35
void __fastcall TMainForm::ComPort1RxChar(TObject *Sender, int Count)
{
//Fonction permettant la réception des trames
 
   char buffer2[255];
   char str[255];
   unsigned char *buf = new unsigned char [Count];
 
//Lecture des "Count" octet(s) présent(s) dans le buffer d'entrée et le(s) place dans TrameReception
 
   ComPort1->Read(buf,Count);  // STX,CARTE SBI232C V1,ETX
   ComPort1->ClearBuffer (false, true);
 
//buf[Count] = NULL;
 
   if(Count < 2) return;
 
   if(buf[0] != _STX_)
   {
    Terminal->Items->Add("Début de trame erronée!!!");
   }
   if(buf[Count-1] != _ETX_)
   {
    Terminal->Items->Add("Fin de trame erronée!!!");
   }
   for(int i=0;i<Count;i++)
   {
   memcpy (str,&buf[1],Count-2);
   sprintf ("%s",str);
   LedReception->Enabled=true;
   LedReception->State=lsOn;
   }
   Terminal->Items->Add(str);
   free(buffer2);
}

Aussi dans la trame "ETX,Décodeur 232 V.1.0,Cr,STX" je veux juste qu'il m'affiche sur ma ListBox juste "Décodeur 232 V.1.0", il va faloire gerer un pointeur qui va balayer mon buffer je crois.


Merci de votre aide.

[DjmSoftware]

bonjour,
comportement étonnant
petite question ? quelle est la valeur de Count
si effectivement tu ne reçois dans ton buffer qu'un caractère à la fois
pourquoi ne pas gérer ceci dans une boucle du style tant que pas <Stx> on ne fait rien, tanst que non <etx> on additionne au buffer le catactpe reçu
attention dans ton code tu ne libère pas le bon buffer
cordialement

[vantoff]

bonjour,
comportement étonnant
petite question ? quelle est la valeur de Count
si effectivement tu ne reçois dans ton buffer qu'un caractère à la fois
pourquoi ne pas gérer ceci dans une boucle du style tant que pas <Stx> on ne fait rien, tanst que non <etx> on additionne au buffer le catactpe reçu
attention dans ton code tu ne libère pas le bon buffer
cordialement

ce dont tu parle je fais là.voici mon code:
Mais il affiche n'importe quoi et toujour caractère par caractère.

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
26
27
28
29
30
31
void __fastcall TMainForm::ComPort1RxChar(TObject *Sender, int Count)
{
//Fonction permettant la réception des trames

   char buffer2[255];
   char str[255];
   unsigned char *buf = new unsigned char [Count];

//Lecture des "Count" octet(s) présent(s) dans le buffer d'entrée et le(s) place dans TrameReception

   ComPort1->Read(buf,Count);  // STX,CARTE SBI232C V1,ETX
   if(Count < 2) return;

   if(buf[0] != _STX_)
   {
    Terminal->Items->Add("Début de trame erronée!!!");
   }
   if(buf[Count-1] != _ETX_)
   {
    Terminal->Items->Add("Fin de trame erronée!!!");
   }
   for(int i=1;i<Count-2;i++)
   {
   memcpy (str,&buf[1],Count-2);
   sprintf ("%s",str);
   LedReception->Enabled=true;
   LedReception->State=lsOn;
   }
   Terminal->Items->Add(str);
   ComPort1->ClearBuffer (false, true);
}

[DjmSoftware]

bonjour
es tu certain de ta transmissiom
(Baud Rate, PArité, Bit de Stop)
je n'ai jamais eu de problèmes avec ce composant

pour tester tu peux essayer avec Hyperterminal pour contrôler la transmission
cordialement

attention

Code :

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

1
2
3
 
unsigned char *buf = new unsigned char [Count];
// ce buffer n'est jamais libéré si tu sors normalement de l'évenement RxChar ou via if(Count < 2) return;

[vantoff]

bonjour
es tu certain de ta transmissiom
(Baud Rate, PArité, Bit de Stop)
je n'ai jamais eu de problèmes avec ce composant

pour tester tu peux essayer avec Hyperterminal pour contrôler la transmission
cordialement

attention

Code :

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

1
2
3
 
unsigned char *buf = new unsigned char [Count];
// ce buffer n'est jamais libéré si tu sors normalement de l'évenement RxChar ou via if(Count < 2) return;

je ne gère pas ces protocales(Baud Rate, PArité, Bit de Stop) car je l'ai configurer ainsi.

je suis sur que c'est un problème de timeouts. Aussi je précise que je travaille à 14400bauds.

[DjmSoftware]

bonjour
je doute qu'il s'agisse d'un problème de timeouts avec les valeurs par défault de ce composant on peut travailler sans problèmes sans modifier les paramètres de Timeouts jusq'a 38400 Bauds
si tu recois n'importe quoi il s'agit certainement de paramétrisation de ta connection RS232
cordialement

[DjmSoftware]

bonjour
tu peux t'inspirer également des exemples fournis avec ce composant
ComExampleC6.zip

[vantoff]

bonjour
tu peux t'inspirer également des exemples fournis avec ce composant
ComExampleC6.zip

c'est parfait ton interface reçois parfaitement la trame de mon micro. Pourrai tu me dire alors comment du as implémenter la réception sur le ComPort

Code :

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

1
2
3
4
void __fastcall TMainForm::ComPort1RxChar(TObject *Sender, int Count)
{
 ???????????????????????
}

Sachant que tu dois afficher les trame sur une ListBox

[DjmSoftware]

bonjour
le code de l'exemple est ci-dessous
Sample.zip

[vantoff]

bonjour
le code de l'exemple est ci-dessous
Sample.zip

ça fonction si et seulement si j'utilise un Memo. Mais moi j'utilise un ListBox
j'ai modifier l'évènement suivant
votre code:

Code :

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

1
2
3
4
5
6
7
void __fastcall TForm1::ComPortRxChar(TObject *Sender, int Count)
{
  AnsiString Str;
 
  ComPort->ReadStr(Str, Count);
  Memo->Text = Memo->Text + Str;
}

Mon code pour une listBox

Code :

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

1
2
3
4
5
6
7
void __fastcall TMainForm::ComPort1RxChar(TObject *Sender, int Count)
{
//Fonction permettant la réception des trames
   AnsiString Str;
   ComPort1->ReadStr(Str, Count);
   ListBoxl->Items->Add(Str);
}

Mais l'affichage de la trame se fait caractère par caractère.

[DjmSoftware]

bonsoir
code avec les ListBox

Code :

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

1
2
3
4
5
6
7
8
 
void __fastcall TMainForm::ComPort1RxChar(TObject *Sender, int Count)
{
//Fonction permettant la réception des trames
   AnsiString Str;
   ComPort1->ReadStr(Str, Count);
   ListBoxl->Items->Text=ListBoxl->Items->Text+Str;
}

cordialement