Utilisation de TComPort sous Delphi 2005 (Win 32)

Ouvrir le paquet CPortLib.dpk. À l'ouverture de ce paquet, Delphi vous propose le choix de la conversion. Choisissez Delphi pour Win32 :

Compilez le projet, ceci se passe sans aucun problème.

Puis à l'aide d'un clic droit dans le gestionnaire de projet, choisissez Installer.

Delphi va automatiquement placer le paquet d'exécution dans un répertoire accessible par toutes les applications.

Ouvrir le paquet DsgnPortLib.dpk. À l'ouverture de ce paquet, Delphi vous propose le choix de la conversion. Choisissez de même Delphi pour Win32.

Si vous essayez de compiler le paquet tel quel, Delphi va sortir une erreur sur l'unité DsgnIntf. Ceci vient du fait que la version 2005 n'est pas reconnue dans la compilation conditionnelle.

Ouvrez le fichier source\CPort.inc et ajoutez à la fin le code suivant :

{$IFDEF VER170}     { Delphi 2005 }
  {$DEFINE DELPHI_4_OR_HIGHER}
  {$DEFINE DELPHI_5_OR_HIGHER}
  {$DEFINE DELPHI_6_OR_HIGHER}
  {$DEFINE DELPHI_7_OR_HIGHER}
  {$DEFINE DELPHI_2005_OR_HIGHER}
  {$DEFINE DELPHI_2005}
  {$IFDEF BCBNOTDELPHI}
    {$ObjExportAll On}
  {$ENDIF}
  {$WARN UNSAFE_TYPE OFF}
  {$WARN UNSAFE_CODE OFF}
  {$WARN UNSAFE_CAST OFF}
{$ENDIF}

Vous pouvez maintenant compiler et installer le paquet comme précédemment. Delphi va alors recenser les composants du paquet :

Afin que Delphi puisse compiler vos futurs projets avec ComPort, il faut définir le chemin dans les options de Delphi.
Allez dans Outils->options, puis Options D'environnement->Options Delphi->Bibliothèque Win32.
Et enfin, ajoutez le chemin d'accès aux sources du paquet :

C'est le composant principal de ce paquet. C'est lui qui va permettre de configurer et de gérer le port série.

Ce composant comporte toutes les propriétés de configuration de la liaison série. Je ne vais pas toutes les présenter dans le détail, mais seulement les plus importantes et surtout celles que l'on modifie le plus souvent dans la pratique.

• Propriété Port
  Cette propriété définit le port à utiliser sur le PC. Dans la liste déroulante, seuls les ports existant physiquement apparaissent.
  Notez que ComPort est basé sur les API Windows, donc il supporte parfaitement les drivers passerelle, style USB--RS232.
• Propriété BaudRate
  Définit la vitesse de la liaison série en Bauds.
• Propriété DataBits
  Définit le nombre de bits de chaque caractère émis/reçu sur la liaison série.
• Propriété Parity
  Définit la type de bit de parité de chaque caractère. Il est possible ici de définir si le contrôle de parité doit être effectué en lecture, et dans le cas où il est effectué de remplacer dans la trame reçue les caractères ayant un défaut de parité par un caractère spécifique.
  Pour les essais, je vous conseille de ne pas activer le contrôle de parité, il n'est pas indispensable au bon fonctionnement et peut facilement être ajouté par la suite si vous voulez renforcer le contrôle.
  De toute manière, dans le cas d'envoi/réception de trames il est préférable de gérer un checksum plus évolué de style CRC.
• Propriété StopsBits
  Nombre de bits de stops de chaque caractère.
• Propriété FlowControl
  Cet ensemble de propriétés permet de définir la gestion du flux de caractères sur la liaison série.
  Par expérience et dans la mesure du possible, il est préférable de ne pas utiliser le contrôle de flux, car cela ne fait que compliquer la gestion et le câblage de la liaison. Il y a cependant des exceptions, comme la gestion d'un modem ou la gestion d'un convertisseur RS232-RS485 multipoints.
  Dans les premiers exemples donnés dans ce cours, aucun contrôle de flux ne sera utilisé.
• Propriété Timeouts
  Cet ensemble de propriétés permet de définir les différents timeouts en émission et en réception. Leur utilisation dépend des applications.
• Propriété Events
  Permet de définir quels événements liés à l'activité de la liaison série sont utilisés.
  Par défaut ils sont tous activés, mais vous pouvez supprimer tous ceux qui ne vous sont pas utiles afin de ne pas surcharger le dialogue avec le TComport.
• Propriété EventChar
  Cette propriété permet de définir le caractère déclenchant OnRxChar quand il est reçu. Il faut bien sûr que l'événement soit activé dans la propriété Events.
• Propriété Connected
  Cette propriété permet d'ouvrir/fermer la liaison série et aussi d'en vérifier son état.

Ce composant permet de gérer de façon très simple la réception de trames de caractères, ou d'une certaine longueur de caractères.

• Propriété Port
  Permet de choisir à quel composant TComPort celui-ci doit être associé.
  Cette propriété doit impérativement être définie.
• Propriété Size
  Longueur de la trame à recevoir, si la longueur n'est pas fixe, positionner cette propriété à zéro.
• Propriété StartString
  chaine définissant le début de la trame.
• Propriété StopString
  chaine définissant la fin de la trame.
• Propriété CaseInsensitive
  Permet de choisir la sensibilité à la casse sur les caractères reçus.
• Propriété IncludeStrings
  Permet de définir si les chaines StartString et StopString doivent être incluses dans la trame ou non.

Ces composants permettent de configurer de façon visuelle la liaison série. Ils seront utilisés pour créer une interface de configuration du port COM en quelques clics.

La liste des propriétés est la suivante.

• Propriété ComPort
  Permet de choisir à quel composant TComPort celui-ci doit être associé.
  Cette propriété doit impérativement être définie.
• Propriété ComProperty
  Permet de définir quel paramètre de la liaison sera affecté par le composant. Par exemple la vitesse, la parité, etc.
• Propriété AutoApply
  Permet de définir si les modifications apportées dans la sélection sont automatiquement portées sur la configuration de la liaison.
  Si cette propriété est à True, tout changement sera directement reporté dans la configuration du port série du TComport associé.
  Si cette propriété est à False, il faut appeler par code la méthode ApplySettings de ce composant pour que les modifications soient effectives.

Composant permettant de réaliser une animation visuelle d'activité de la liaison série.

La liste des propriétés est la suivante.

• Propriété ComPort
  Permet de choisir à quel composant TComPort celui-ci doit être associé.
  Cette propriété doit impérativement être définie.
• Propriété King
  Permet de définir le type de dessin du composant. Dans le cas de lkCustom, vous devez donner des images pour les états ON et OFF dans les propriétés GlyphON et GlyphOFF.
• Propriété LedSignal
  Permet d'associer le composant à un état particulier de la liaison série.
• Propriété State
  Permet de définir, mais surtout de connaître l'état ON/OFF du composant. Quand la liaison est active, cette propriété est en lecture seule.

Ce composant visuel permet de définir une zone de visualisation des caractères émis/reçus sur la liaison série.
D'un intérêt limité en production, il peut être d'un grand secours lors de la mise au point d'une liaison série.
Une autre application est la simulation d'une console ASCII de type VT100 ou VT52.

La liste des propriétés est la suivante.

• Propriété ComPort
  Permet de choisir à quel composant TComPort celui-ci doit être associé.
  Cette propriété doit impérativement être définie.
• Propriété WrapLines
  Définit si le retour à la ligne est automatique en cas de dépassement sur la droite.
• Propriété LocalEcho
  Définit si les caractères tapés au clavier sont aussi affichés sur la console.
• Propriété SendLF
  Définit si l'envoi d'un retour chariot (touche entrée, caractère #13) doit être suivi d'un caractère saut de ligne (Line-Feed, #10).
• Propriété AppendLF
  Définit si la réception d'un retour chariot (caractère #13) doit être interprétée comme un caractère composé CR LF (ajout d'un LF, #10).
• Propriété Force7bit
  Force l'émission/réception de caractères sur 7 bits seulement. Tous les caractères étendus (8 bits) seront réduits à 7.
• Propriétés Columns et Rows
  Définissent la taille en caractères de la console.
• Propriété Connected
  Est équivalente à la propriété Connected du composant ComPort associé. La modification de l'une entraîne la modification de l'autre.
• Propriété Caret
  Définit la forme du caret de la console.
• Propriété Emulation
  Définit le type d'émulation de la console dans le cas de réception d'une séquence d'échappement.
  Cette propriété est surtout utile dans le cas d'utilisation de ce composant en remplacement d'une console ASCII.
• Propriété ArrowsKeys
  Définit si les touches de directions doivent être envoyées sous forme de caractère (akTerminal) ou utilisées pour déplacer le caret (akWindows).

Afin de montrer la simplicité de gestion d'un port série avec ComPort, nous allons réaliser un terminal simple comme celui d'HyperTerminal.
Bien que simpliste, ce programme pourra être régulièrement utilisé pour « écouter » un port série et en afficher les trames.

Créez une nouvelle application VCL Win32 et placez un composant Tcomport.
Placez un TPanel en haut de la fiche et placez-y cinq composants TComComboBox pour les propriétés Port, Baudrate, DataBits, Parity et Stopbits du composant ComPort. Les propriétés AutoApply seront mises à True.
Placez de même trois leds pour visualiser les états « connecté », « RX » et « TX »
Placez en dessous du panneau un TComTerminal dont la propriété Emulation sera fixée à teNone. Placez un bouton dont le code est :

  Comport1.Connected := Not Comport1.Connected;

Vous devez obtenir une fiche ressemblant à :

Voilà, c'est tout !

À l'exécution, choisissez un port et un format de données puis cliquez sur connecter.
Tous les caractères reçus seront affichés, et si la console détient le focus, tous les caractères tapés au clavier seront envoyés sur la liaison série.

Pour tester cette application vous pouvez vous servir d'HyperTerminal sur un autre port série ou un autre PC, mais vous pouvez aussi utiliser la même application lancée deux fois sur le même PC ou sur chacun des deux PC.

Le câble utilisé pour ce test sera un simple câble trois fils croisés :

Ici nous allons réaliser un programme de capture/envoi de caractères sur la liaison série. C'est un exemple simple d'utilisation du TComPort et de ses événements.

À partir du premier exemple, supprimez le TComTerminal et ajoutez les composants tels que ;

Ajoutez le code sur les événements AfterOpen et OnRxChar, ainsi que sur le bouton btnEnvoyer.

procedure TForm1.ComPort1AfterOpen(Sender: TObject);
begin
  btnEnvoyer.Enabled := True;
  btnConnecter.Enabled := False;
end;

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
Var Chaine:String;
begin
  ComPort1.ReadStr(Chaine,Count);
  Memo1.Lines.Text := Memo1.Lines.Text + Chaine;
end;

procedure TForm1.btnEnvoyerClick(Sender: TObject);
begin
  If eCRLF.Checked
    Then ComPort1.WriteStr(eEnvoi.Text+#13#10)
    Else ComPort1.WriteStr(eEnvoi.Text);
end;

Notez ici que l'événement OnRxChar est activé sur chaque réception de caractère. La valeur de Count donnée lors de l'événement est le nombre de caractères actuellement disponibles sur le port série. Il ne faut pas considérer que l'on reçoit un événement par caractère, et donc il faut traiter l'ensemble des caractères en une seule fois.

La fonction ReadStr permet ici de lire de façon simple les caractères disponibles et de les ajouter au Memo.

L'envoi d'une chaine est ici aussi assez simple à l'aide de la fonction WriteStr.

Pour essayer, vous pouvez procéder de la même manière que pour le premier exemple.

Le composant dispose de procédures d'émission/réception synchrone et asynchrone.

Les procédures Synchrones bloquent l'exécution du programme jusqu'à la fin du traitement. Ce sont les méthodes les plus simples à utiliser. Mais elles ont le gros inconvénient de laisser croire que l'application ne réagit pas bien. Surtout lors de réceptions de chaines.

Les procédures Asynchrones ne bloquent pas l'exécution du programme, mais en contrepartie leur gestion est un peu plus compliquée. Ces méthodes sont néanmoins indispensables si l'application doit gérer autre chose que la liaison série ou si vous gérez plusieurs liaisons séries simultanément.

Le troisième programme montre l'utilisation des deux méthodes en lecture et en écriture.

IV-C-1. Envoi synchrone▲

procedure TForm1.btnEnvoyerSyncClick(Sender: TObject);
begin
  btnEnvoyerSync.Enabled := False;
  ComPort1.WriteStr(eEnvoiSync.Text);
  btnEnvoyerSync.Enabled := True;
end;

IV-C-2. Envoi asynchrone▲

Var
  // Structure de trace de l'envoi
  WriteASyncPtr:PAsync = Nil;

procedure TForm1.btnEnvoyerASyncClick(Sender: TObject);
begin
  btnEnvoyerASync.Enabled := False;
  // Mise à jour de la structure d'envoi
  InitAsync(WriteAsyncPtr);
  // Envoi différé
  ComPort1.WriteStrAsync(eEnvoiSync.Text,WriteAsyncPtr);
end;

procedure TForm1.ComPort1TxEmpty(Sender: TObject);
begin
  // Quand la file d'envois est vide on teste si un envoi est en cours
  If Assigned(WriteAsyncPtr) Then
  Begin
    // On supprime la structure de trace
    DoneAsync(WriteAsyncPtr);
    btnEnvoyerASync.Enabled := True;
  End;
end;

IV-C-3. Réception synchrone▲

procedure TForm1.btnRecevoirSyncClick(Sender: TObject);
Var
  Chaine:String;
  Long:Integer;
begin
  // MAJ composants
  btnRecevoirSync.Enabled := False;
  Memo1.Lines.Add('Début envoi synchrone');
  // Mise à jour du time out demandé
  Comport1.Timeouts.ReadTotalConstant := seTimeOut.Value * 1000;
  // Supression de ce qui traine dans le buffer d'entrée
  Comport1.ClearBuffer(True,False);
  // Lecture bloquante de la longueur demandée
  Long:=Comport1.ReadStr(Chaine,seLongueur.Value);
  // MAJ composants
  Memo1.Lines.Add('Fin envoi synchrone '+IntToStr(Long)+' caractère(s) reçu(s):'+Chaine);
  btnRecevoirSync.Enabled := True;
end;

IV-C-4. Réception asynchrone▲

Var
  ReadASyncPtr:PAsync = Nil;

procedure TForm1.btnRecevoirAsyncClick(Sender: TObject);
Var
  Chaine:String;
  Long:Integer;
begin
  // MAJ composants
  btnRecevoirASync.Enabled := False;
  Memo1.Lines.Add('Début envoi asynchrone');
  // Mise à jour du time out demandé
  Comport1.Timeouts.ReadTotalConstant := seTimeOut.Value * 1000;
  // Supression de ce qui traine dans le buffer d'entrée
  Comport1.ClearBuffer(True,False);
  // Init de la structure de suivi
  InitAsync(ReadAsyncPtr);
  Try
    // Lecture non bloquante de la longueur demandée
    // Attention, la chaine doit rester accessible hors de l'événement...
    Chaine:='';
    Comport1.ReadStrAsync(Chaine,seLongueur.Value,ReadAsyncPtr);
    Repeat
      // Ici on n'est pas bloqué, on peut donc traiter les messages Windows
      Application.ProcessMessages;
      // Attente de la fin de traitement
    Until Comport1.IsAsyncCompleted(ReadAsyncPtr);
    // récupération du résultat de la lecture de la chaine
    Long:= Comport1.WaitForAsync(ReadAsyncPtr);
    SetLength(Chaine,Long);
  Finally
    DoneAsync(ReadAsyncPtr);
  End;
  // MAJ composants
  Memo1.Lines.Add('Fin envoi asynchrone '+IntToStr(Long)+' caractère(s) reçu(s):'+Chaine);
  btnRecevoirASync.Enabled := True;
end;

Dans le cas de réception de paquets, vous pouvez utiliser de façon très simple le composant TComDataPacket. Il permet de gérer de façon événementielle l'arrivée de trames particulières sur le port série.

Il suffit de le lier à un composant TComPort actif et de définir ses propriétés. L'événement principal de ce composant OnPacket sera appelé à chaque fois qu'une trame respectant les conditions sera reçue.

Il n'y a pas de code à écrire pour effectuer la gestion des paquets. Essayez l'exemple 4 donné dans le fichier joint afin de bien comprendre l'utilisation des propriétés de ce composant. Vous pouvez par exemple lancer sur un autre PC l'exemple 2 afin d'envoyer des trames et voir le résultat.

Il est possible aussi de connaître tous les caractères ignorés par le ComDataPacket. L'événement OnDiscard permet d'être averti de tous les caractères rejetés dans le tri du paquet.