lecture port serie tcomport

Version imprimable

11/09/2006, 11h25
STEPH42160

lecture port serie tcomport

Salut amis développeurs,
Je voudrais vous poser une question a propos du composant tcomport.
J'arrive a envoyer des trames en hexa mais je n'arrive pas a recevoir de donnees.
J'ai suivis le tuteuriel sur le site avec la fonction onrxchar mais l evenement ne se declenche pas.
Est ce qu il faut configurer un parametre du compsant?
Qu est ce qu il faut mettre dans le parametre eventchar?
Merci d'avance.
11/09/2006, 11h35
cfdev

lut,

verifier si l'event dans les propriétés du Tcomport "evRxChar" est à true

sinon rien d'autre de particulié

++
11/09/2006, 14h25
bandit boy

Es tu sûr qu'il n'y a rien sur le Rx du port COM?
C'est bizarre que tu arrives à écrire mais pas à lire.
8O
13/09/2006, 14h59
STEPH42160

pb tcomport
En faites c'est surtout que je n'arrive pas a savoir ou est ce qu il met la trame que le variateur ou le pc me renvoie.
J'ai éssayé avec hyperterminal mais ca ne marche que dans un sens je peux envoyé et pas recevoir.
Est ce que tu as au cas ou bout de programme permettant de recuperer les donnes car je suis pas sur que je les récupère bien.
Voila ce que j ai mis dans la fonction onrxchar:
Code:

1 2 3 4 5 6 7 void __fastcall TForm1::ComPort1RxChar(TObject *Sender, int Count) { AnsiString Str; ComPort1->ReadStr(Str, Count); Memo1->Text = Memo1->Text + Str; }
13/09/2006, 15h18
cfdev

Re,
deja si ca ne marche pas avec l'hyperTerminal c'est qu'il y a un soucis!!!

es-tu sur que l'appareil connecté fonctionne correctement??

++
13/09/2006, 15h25
STEPH42160

oui il fonctionne correctement.
J'ai éssayé de communiquer avec hyper terminal entre 2 PC l'un avec hyperterminal et l'autre avec mon programme. J'arrivais bien a envoyer quelque chose au pc a partir mais programme mais pas l'inverse.

Salut,
J'ai ce genre de programme:
Code:

1 2 3 4 5 6 7 int j; AnsiString Suite; ComPort1->ReadStr(Suite,Count); //lecture du portCom1 for(j=1;j<=Count;j++) Memo1->Lines->Add(IntToStr((unsigned char)Suite[j]));
Il faut penser que ce sont des octets que tu recois. Si tu mets ce bout de code dans RxChar, et que rien ne s'affiche, rien ne passe.
Il se peut sinon que le problème vienne d'autre part, comme une configuration incorrecte: Baudrate, parité ...

14/09/2006, 09h02
bandit boy

Utilise tu un port COM physique (RS232) ou virtuel ?
S'il est physique, il se peut que tu ne recoives qu'un seul octet par "morceau détecté". Cela vient de la configuration de la pilie FIFO du port.

Met un point d'arrêt pour savoir si au moins 1 octets passe dans ta fonction RxChar.

Tcomport 3.1 en C++ builder

:oops: Bonjour la communauté Je suis nouveau sur ce forum, je bidouille pas mal en informatique et juste pour apprendre en m'amusant je teste le C++ Builder, j'ai de bonnes connaissances en Delphi 6 et j'ai voulu faire un test en c++ pour comparer les 2 environnements or autant en delphi ça marche en C++ la fonction m'en read n'a pas l'air de fonctionner
en Delphi mon programme est (dans un timer 100ms)
Code:

1 2 3 var bit:byte; bit:=strtoint('209'); comport1.Write(bit,1);
Pour la réception c'est
Code:

1 2 3 4 5 6 7 8 9 10 procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var temp,press: byte; Buff : byte; ligne:integer; begin comport1.Read(buff,1); // valeur reçue du port série if Buff >= 254 then exit; Temp:=buff; // mesure de la Température dans le buffer Statusbar1.Panels[0].text:='T° = '+inttostr(Temp); end;
comment faire en C++
si quelqu'un peut m'aider à comprendre
car en c++ malgré beaucoup d'essai ça ne marche pas
merci d'avance

18/02/2007, 21h23
thibautlelevier

erreur Composant TComPort
Bonjour à tous
je me bat en se moment avec mon projet en cours
je dois récuperer les trames envoyés par un PABX sur le Port Série d'un PC pour avoir les infos nécessaires pour concerver une trace de l'appel et le facturer.
j'utilise donc le port série en configuration 7bits de données, 1 bits de stop, impaire, et sans contrôle de flux.

j'essai d'implenter le composant de cette manière:
Code:

1 2 3 4 5 6 7 void __fastcall TForm1::ComPort1RxChar(TObject *Sender, int Count) { AnsiString Str; ComPort1->ReadStr(Str, Count); Memo1->Text=Memo1->Text + Str; }
cependant j'ai une erreur quelque part car lors de la compilation, borland C++ 6 me dis
Code:

1 2 [C++ Error] Unit1.cpp(20): E2316 '_fastcall TForm1::ComPort1RxChar(TObject *,int)' is not a member of 'TForm1'
est-ce que quelqu'un pourrai m'en dire plus?
merci
19/02/2007, 09h06
bandit boy

Il semblerait que ta fonction ComPort1RxChar ne soit pas déclaré dans la class TForm1 dans ton .h.
Comment as tu fais cette fonction?
As tu généré l'évennement, ou l'as tu écrite toi même?
19/02/2007, 12h02
thibautlelevier

en effet je l'ai ajouté à la mains et celà ne dois pas être d'éclarer dans le .h

quelle est la bonne méthode pour l'ajouter?
merci
19/02/2007, 13h06
bandit boy

Dans l'ispecteur d'objet, tu as un onglet "Evennements". Il te suffit de double cliquer dans la colonne de droite, en face de l'évennement choisi.

La déclaration de la fonction et sont en-tête se fait automatiquement. Il te suffit de coder dans la zone indiquée.
19/02/2007, 16h16
thibautlelevier

tout de suite ça marche mieu :D

maintenant j'ai un autre probleme:
les trames que je récupére sont en 5 bloc
le premier contient le numéro de l'appel (conteur du PABX) la date et l'heure.
le 2ème contient le numéro du poste appelant, une série de chiffres et le numéro appelé
les 3ème contien la durée de l'appel
et je ne me sert pas des 2 dernier blocs

j'ai besoin de récupérer une varible qui contienne la liste compléte
hors lorsque je fait afficher la variable dans un Edit, je n'ai que le dernier bloc..

la taille des lignes peut elle aussi variée (avec le numéro appelé)

coment faire pour avoirs ma ligne compléte et pouvoir l'exploitée?

merci
tibo
19/02/2007, 19h09
thibautlelevier

Mon problème se résoud avant même la réponce ;)

mon nouveau problème est tout autre, et il n'a rien a voir avec le port com mais je ne vois pas l'interet de poster dans un nouveau sujet.:aie:

alors question simple: une trame de PABX resemble à ça:
153014-02173847 403100100F10619181428 00'12" 3B0040101 00023084

et voici les infos qu'il faut que je récupére:
-la date (14-02 dans la première trame)
-l'heure (173847 toujours dans la première trame)
-le poste appelant (403 dans la 2ème trame)
-le numéro appelé (0619181428 dans la 2ème trame)
-et la durée de l'appel (00'12")

ma question est sans doute simple mais je ne vois pas commen faire:
comment séparer la variable correspondant à la trame en plusieurs variable
par exemple pour le numéro appelé?

merci
tibo
19/02/2007, 19h40
blondelle

Salut thibautlelevier:
Si tes chaines sont de longueur constantes peut etre en utilisant "MidStr", sinon il y a aussi "RightStr" et "LeftStr" avec ces trois fonctions tu devrais pouvoir t'en tirer.
19/02/2007, 21h09
bandit boy
De même que si tu mets tout ca dans une AnsiString, tu peux travailler cette chaine avec les fonction Substring, Delete ... il te suffit de faire:
Code:

1 2 3 AnsiString chaine = trame; AnsiString date = chaine.SubString(5,5);//du 5eme caracteres sur 5 caracteres
Si tu veux plus d'explications, hésites pas ;)
19/02/2007, 21h15
thibautlelevier

Merci les gars pour les conseils

Bandit Boy, quand tu dis

Citation:

AnsiString date = chaine.SubString(5,5);//du 5eme caracteres sur 5 caracteres

comment faire pour prendre une série de caractéres?
par exemple de 5 à 6 le jour?
19/02/2007, 22h27
thibautlelevier

SubString
J'ai cherché un peut et ça ne me donne rien.
Str est la variable AnsiString de ma trame que je peut sans problème affiché dans un Edit1
j'ai donc fait un Edit2 pour afficher le jour du moi.:
Code:

1 2 AnsiString jour=Str.SubString(5,2); Edit2->Text=jour;
seulement ma variable est vide (la case est ou devient vide)

le debut de ma trame est
_ _ _ _ J J - M M H H M M S S

J J est le jour du mois, M M le numéro du mois
H H l'heure, M M les minutes et S S les secondes

je ne pourrai pas utiliser ce système à chaque fois car par exemple si la communication dure plus d'une heure... la partie de la trame qui correspond à la durée va passer de 6 à 9 caractères...
19/02/2007, 22h49
thibautlelevier

retour au problème de trames
c'est encore moi
je revient avec mon histoire de définitions de trames
voici donc un exemple de trame que mon programme a à analyser:

Code:

153014-02173847 403100100F10619181428 00'12" 3B0040101 00023084

le problème est que cette trames est composée de 5 bloc et que mon programme reconnait donc 5 trames différentes...
Lorsque je fait
Code:

1 2 3 AnsiString Str; ComPort1->ReadStr(Str, Count); Edit1->Text=Edit1->Text + Str;
le programme m'affiche la trame à la suite de ce qui ce trouver déjà dans le Edit.
Normal...
maintenant si je transforme le

Code:

Edit1->Text=Edit1->Text + Str;

en

Code:

Edit1->Text=Str;

il me fait defiler les 5 bloc et s'arréte sur le dernier
encore normale mais bon... c'est pas ce que je veut moi :(

n'y a t'il donc pas moyen de faire en sorte qu'il comprenne que la trame est composée des 5 bloc?
la taille de mes trames est variables

comment faire?
avec un boucle? (ça fait un peut bricolage :? )

A+
tibo

Re,
Ta trame est affichée dans un TEdit (texte de type AnsiString), à partir de là il faut faire le découpage, voici un exemple:
Code:

1 2 3 4 5 6 7 8 9 10 11 //recopie de la trame dans le Edit1 Edit1->Text = "153014-02173847 403100100F10619181428 00\'12\" 3B0040101 00023084"; AnsiString Trame = Edit1->Text; Edit2->Text = Trame.SubString(1,4);//prend les 4 premiers caractères (le n°) Trame.Delete(1,4);//supprime les caractères lus Edit3->Text = Trame.SubString(1,5);//prend les 5 suivants (la date) Trame.Delete(1,5); Edit4->Text = Trame.SubString(1,6);//prend les 6 suivants (l'heure) Trame.Delete(1,6);
Tes bloques seront toujours de taille fixe? si oui la méthode fonctionnera tout le temps, sinon il faut savoir ce que défini la taille.

20/02/2007, 11h28
thibautlelevier

ça fonctionne... jusqu'a un certain point...
je peut sans problème récupérer la date, l'heure, le poste appelant et le numéro mais la taille des trames n'es pas fixe, donc ça ne marche pas à chaque fois...
par exemple le numéro peut être plus cour (exemple 118 218 ne fait pas 10 caractères) et la durée de l'appel peut être plus longue (si on dépasse une heure on passe alors de 6 à 9 caractères)

la taille des 2 dernière trames est fixe et je peut de toute façon les virées
car elle ne me servent pas.
y a t'il moyen de venir récuperer des données en partant de la fin?

autre problème, lors de l'émission de plusieurs appels... celà arrive à la fin du Edit1.
ce n'est pas vraiment un problème car à la fin, mon programme envera directement tout dans une bases de données
on vera à ce moment là :)

merci
tibo
20/02/2007, 13h28
bandit boy
Bien sur, on peut commencer par la fin en utilisant la méthode AnsiString.Length() qui renvoie la taille de la chaine:
Code:

1 2 AnsiString SixDernierCar = Trame.SubString(Trame.Length()-5,6);
Tu peux faire pareil pour les supprimer, sinon il existe aussi la méthode .Pos qui te permet de connaître la position d'une chaine ou d'un caractère dans ta chaine.

Je ne comprend pas "celà arrive à la fin du Edit1" ? tu affiches tout dans un seul TEdit, les trames les unes à la suite des autres ? Autant les afficher dans un TMemo, tu les stockera ligne par ligne.
20/02/2007, 14h55
thibautlelevier

Oubli l'histoire du Edit1, c'est une histoire de passage de ligne.
j'essai juste pour l'instant de récuperer mes variables, on vera la suite après.

j'ai essayer de virer les 30 dernier caractères (les 2 dernier blocs plus les espaces entre le 3 et le 4ème bloc) pour simplifier ma trame mais ça ne marche pas:

Code:

trame.Delete(trame.Length()-30,30);

mais ça me donne rien...

il y a aussi 12 espace entre le numéro et la durée de l'appel (bloc 2 et 3).
je me demande si lorsque ça passe à plus d'une heure, les 3 caractère en plus (01h) ne prennent pas sur ces espace...

n'y a t'il pas un moyen plus simple de faire en sorte qu'il reconnaisse chaque bloc sans tenir compte de la taille qu'elle font mais des données qu'elle contiennents?

A+
merci
tibo
20/02/2007, 17h00
bandit boy
sit tu fais le code suivant:
Code:

1 2 3 4 Edit1->Text = trame; trame.Delete(trame.Length()-29,30); Edit2->Text = trame;
Je pense que ca dois changer et bien supprimer les 30 derniers caractères.

Il faut se poser la bonne question pour le découpage de tes bloques: Comment sont ils définis ? dans la définition du protocole n'y a t il pas plus d'information ?
20/02/2007, 19h21
thibautlelevier

j'ai entrer ce que tu as marqué dans ton post précedant mais ça a fait l'effet inverse: ça a garder que ce que je voulais supprimer.

pour ce qui est de la trame, voiçi comment une trame ce compose:
-premier bloc
-tout d'abord 4 chiffres qui constitue le numéro de l'appel dans le compteur du PABX. ici ces données ne m'interessent pas.
-ensuite je jour en 2 chiffres, un tiré, et le mois en 2 chiffres
-puis 2 chiffres pour l'heure, 2 pour les minutes, et 2 pour les secondes

-2ème bloc
-les 3 chiffres du poste interne qui passe l'appel
-8 caratères dont je ne connait pas la signification et que je n'utilise pas
-les chiffres du numéro appel: peut varié en fonction du numéro qu'on appel

-3ème bloc
-la durée de l'appel: dans tous mes exemple mm'ss" mais je pense que celà dois augement lorsque l'ont dépasse une heure

-4ème et 5ème bloc: je ne m'en sert pas.

une trame type:

Code:

153014-02173847 403100100F10619181428 00'12" 3B0040101 00023084

A+
merci
tibo
20/02/2007, 22h59
thibautlelevier

on avance
j'ai continuer d'afficher les trames dans un Memo avec ce code:
Code:

1 2 3 4 5 6 void __fastcall TForm1::ComPort1RxChar(TObject *Sender, int Count) { AnsiString Str; ComPort1->ReadStr(Str, Count); Memo1->Text=Memo1->Text + Str; }
voyant que ça ne passé pas à la ligne j'ai transformer la dernière ligne en

Code:

Memo1->Text=Memo1->Text + Str + "\n";

grossière erreur me direz vous? pas forcement car je me suis apperçu que la trame est alors composée de 10 ligne de 9 caractères suivit d'une ligne de 5 caractères.

je me suis aussi appeçu qu'en fait, en conditions rééles, le PABX finisait sa trame par \n (car il passe à la ligne)

enfin bref est-ce que mes hypothéses son bonnes?
le système actuellement en place a encore planté aujourd'hui et j'ai vraiment besoin d'avancer

A+
tibo

strtok est ta délivrance

je te donne un exmple qui lit plusieurs lignes de données séparées par des ;
ds ton cas, le separateur peut etre un espace ou une sequence particuliere, tu peux les cumuler...
Donc lit tte ta ligne sur la RS232 puis strtok là..
Ciao

__________
1;Message pour la gloire;dummy comment
2;Message 2 pour la gloire;dummy comment2
__________

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
  ifstream ImageTxtFile( DlgSelYearCalendar->OpenDialogImages->FileName.c_str(), ios::in);
  if ( !ImageTxtFile) {
          AnsiString ss="File open error "+DlgSelYearCalendar->OpenDialogImages->FileName;
          Application->MessageBox( ss.c_str(),"Error", MB_OK+MB_ICONSTOP);
          return;
          }
  i=0;
  while ( !ImageTxtFile.eof())
   {
   if (::GetAsyncKeyState(VK_ESCAPE) & 0x8000 )  break;
            // ie sort de la boucle
   ImageTxtFile.getline( Comment, 200, '\n');
   p=strtok(Comment,";");
   ImgIndex[i]=StrToInt(p);
   p=strtok(NULL,";");
   ImageComments[i]=AnsiString(p);
   p=strtok(NULL,";");
   dummy=AnsiString(p);
   if (i++==12) break;
   }
  ImageTxtFile.close();

21/02/2007, 17h27
thibautlelevier

Salut

strtok est peut-être la solution mais je ne vois pas comment l'utiliser dans mon cas.
il n'y a pas vraiment de séparateur.

le problème n'es pas là non plus
il faudrai que mon programme reconnaisse les trames en fonction de certains paramètres autres que la taille

j'ai relancer une prise d'echantions pour voir ce que ça donne avec des communications de plus d'une heure
en attenandant, c'est dingue le nombre de personnes qui oublient de taper la fin de leur numéro :D
21/02/2007, 23h50
LotfiB

ceux qui ne tappent pas leur numeros en entier ne vont pas avoir d'appels aboutis !

tu as qd meme des "espaces" ou des sequences définies "F1..." ds ta séquences que la fonction peut repérer...

ciao
22/02/2007, 00h19
thibautlelevier

"aboutis" :D tu peut dire "abruti" :)
il s'agit d'un PABX dans une maison de retraite.
alors la mamie qui tape pas son numéro assé vite... je sais bien qu'elle ira pas loins :D

la séquence F1 dont tu parle ne se répette pas à chaque fois.

de meme pour les espaces, j'attend d'avoir plus d'échantillons pour en dire plus.

merci quand meme, cette commande va m'être tout de suite utile pour un autre programme :)

A+
tibo

Fuseau horaire GMT +2. Il est actuellement 09h14.