delphi RS232Résolu

Question

Salut,
j&#8217;utilise le RSCOM.DLL pour construire un espion de com du port série avec delphi7. Pour la testé, j'ai envoyé par exemple un sendstring('ABC1234567890ABC') et à la suite j'ai fait un appelle de readstring(). j'ai réussi à recevoir des data mais c'est structuré. Ma question c'est : comment créer un évènement pour recevoir mes donné, trame par trame, sur une listBox.
 merci

AMOzouhir · Accepted Answer

Hi
Pour structurer vos données il vous faut un protocole de communication par exemple protocole des compteurs électroniques inspiré de la norme CEI 62056-21.

Si vous voulez ou vous pouvez m'envoyer votre programme en delphi7; j'essayerai de vous trouver une solution a votre problèmes.
a+ et bonne chance.

bsama · Answer

salut, par exemple je veux recevoir cette trame :ABC 10020001 R XYZ ma question c'est comment tester(sans perdre de donné), la fin de trame( ) et afficher ABC 10020001 R XYZ. à l'aide de mon programme je reçois : ABC 10020001 R XYZ suivit d'un caractère 't' (apparemment c'est ) voilà mon programme : unit Unit1; //Programmé par Yoann //http://delphipage.free.fr/ //DLL disponible à l'adresse suivante : http://www.b-kainka.de/ interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Timer1: TTimer; Label1: TLabel; Edit2: TEdit; ListBox1: TListBox; Button3: TButton; Label2: TLabel; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button3Click(Sender: TObject); private { Déclarations privées } SortieClgn:Integer; public { Déclarations publiques } end; var Form1: TForm1; implementation {$R *.DFM} //Importe les procédures et les fonctions de la DLL que l'on a besoin function OPENCOM(OpenString:PChar):Integer; stdcall; external 'RSCOM.DLL'; procedure CLOSECOM(); stdcall; external 'RSCOM.DLL'; procedure TXD(d:WORD); stdcall; external 'RSCOM.DLL'; procedure SENDBYTE (Dat: Integer); stdcall; external 'RSCOM.DLL'; function READBYTE(): Integer; stdcall; external 'RSCOM.DLL'; procedure SENDSTRING (Buffer: PChar); stdcall; external 'RSCOM.DLL'; function READSTRING (): PChar; stdcall; external 'RSCOM.DLL'; Procedure CLEARBUFFER (); stdcall; external 'RSCOM.DLL'; function INPUTS():Integer; stdcall; external 'RSCOM.DLL'; procedure TForm1.FormCreate(Sender: TObject); begin SortieClgn:=0; //Initialise la variable "SortieClgn" end; procedure TForm1.Button1Click(Sender: TObject); begin OpenCom('COM1: baud=9600 parity=N data=8 stop=1'); //Ouvre et paramètre la connexion sur COM1 {On peut également faire ceci : "OpenCom('COM1:9600,N,8,0');" mais la notation recommandée par l'auteur (Burkhard Kainka) de la DLL pour toutes les versions de Windows est la première} Timer1.Enabled:=True; //Active le timer Label1.Color:=clLIME; Label1.Caption:='COM..OK'; //Timer1Timer(Sender); end; procedure TForm1.Button2Click(Sender: TObject); begin Timer1.Enabled:=False; //Désactive le timer CloseCOM; //Libère le port Label1.Color:=clRED; Label1.Caption:='COM..BAD'; end; procedure TForm1.Timer1Timer(Sender: TObject); Var i,a:integer; aa,bb: string; TAB : array[0..1000]of string; b,d:byte; begin bb:=readstring(); if bb<>'' then //on ajoute à liste box que si on reçoit des données listBox1.AddItem(bb, sender); Label1.Visible:=True; //Affiche le label end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin if Timer1.Enabled=true then //Si le Timer n'est pas arrêter alors on se déconnecte avant de quitter le programme Button2Click(Sender) end; procedure TForm1.Button3Click(Sender: TObject); begin ListBox1.Clear; end; end.

Francky23012301 · Answer

Salut

Essaye ce code et conclue sur ton hypothèse ^^ :


procedure TForm1.Button1Click(Sender: TObject);
begin
  listBox1.Items.Add('ABC 10020001 R XYZ');
  listBox1.Items.Add('ABC 10020001 R XYZ'#13#10);
end;


citation de wikipedia sur la norme RS-232


Pour établir une communication effective via RS-232, il est nécessaire de définir le protocole utilisé : notamment, le débit de la transmission, le codage utilisé, le découpage en trame, etc. La norme RS-232 laisse ces points libres, mais en pratique on utilise souvent des UART qui découpent le flux en trames d'un caractère ainsi constituées :

    * 1 bit de départ ;
    * 7 à 8 bit de données ;
    * 1 bit de parité optionnel ;
    * 1 ou plusieurs bit d'arrêt.

Le bit de départ a un niveau logique "0" tandis que le bit d'arrêt est de niveau logique "1". Le bit de donnée de poids faible est envoyé en premier suivi des autres.

La spécification RS-232 prescrit des débits inférieurs à 20 000 bit/s. Cependant, les débits utilisés en pratique entre 75 bit/s et 115 200 bit/s.


La string "ABC 10020001 R XYZ" correspond à 18 caractères soit 18*8=144 bits. Sympa ta frame

bsama · Answer

salut FRANCKY23012301,

je sais que cr et lf ont les code hexa #13 et #10, qui sont in-affichables.
normalement je dois recevoir : ABC 10020001 R XYZ (le cas quand je me connecte avec hyper terminal ). mais mon interface delphie je reçois :
ABC 10020001 R XYZ 
+ ==> c'est un caractère bizarre  :?? c'est qu'oit ? et pour quoi je l'ai pas sous hyper terminal ?
et comment tester la fin du trame si ce caractère indique la fin du trame?

je pose beaucoup de question 

merci

Delphi RS232

4 réponses

Votre réponse

Discussions similaires