LIAISON RS232 EN DELPHI

Nous allons réaliser une liaison RS232 entre un PIC 16F628 et un programme en Delphi 5 , 6 ou 7.
Pour l'utilisation de Delphi voir  "utilisation du port parallèle en delphi".

Pour pouvoir programmer le Port Ccom (Port RS232) de l'ordinateur en Delphi , il est nécessaire de disposer de la  DLL  "RSCOM"  que l'on peut télécharger sur le NET.    Voir :    http://delphipage.free.fr/portserie.html

Quand cette  page a été ouverte cliquer sur  "librairie DLL" pour pouvoir télécharger cette DLL .
Atention! le livre de Burkhard Kainka est devenu introuvable (j'ai la chance d'en possèder un que j'ai acheté à l'époque où il a été publié ,1996).




Cette DLL doit être chargée dans le même répertoire que l'application,  par exemple  "PROJECTS".
Attention! comme je l'ai signalé à plusieurs reprises dans mon site,  cette DLL risque de ne pas fonctionner avec une version de windows supérieure à windows 98.

Les différentes procédures et fonctions de RSCOM.DLL sont les suivantes :



L'application (sans prétention) que nous allons réaliser consiste à lire sur le port com de l'ordinateur un octet envoyé par le PIC , et d'envoyer un octet vers le PIC.

Dans un premier temps on va créer la fenêtre suivante.



On dispose de deux boutons pour l'ouverture et la fermeture du Port de communication.
Dans la zône de texte Edit2 , on inscrit l'état du port série.
Dans la zône de texte Edit1 , on inscrit un texte relatif au caractère reçu.
Deux boutons vont permettre d'émettre un octet vers le PIC.
Un Timer pour créer une boucle de scrutation de manière à lire lire l'octet reçu.


Le programme est le suivant :





Explications :

On déclare les procédures et fonctions relatives à   RSCOM.DLL.
READBYTE pour lire un octet reçu.
SENDBYTE pour envoyer un octet.

Caractéristiques de la liaison RS232 :
OPENCOM(Pchar('COM1:9600,N,8,1')) permet d'ouvrir le port COM1 pour une communication à 9600 bauds, 8 bits data , 1 bit de stop et sans parité.



Aperçu de l'écran lorsque le programme tourne.







RETOUR ACCUEIL