Discussion :

[elecpic]

Bonjour a tous,

Voila mon probleme :

J'ai un fichier texte (*.txt) qui a la struture suivante :
00001111
11110000 (example)

Bref, une suite de chiffre binaire sous forme d'octet.

Je cherche a envoyer ces octets sur le port Com (composant TComPort), mais j'hésite sur la méthode a employer. En fait comment code windows, est-ce en ASCII, ou je doit coder les octets sous forme hexa ?

Je precise que la réception des octets est décode par un microprocesseur.

Un dernier details, TComPort transmet des données sous forme de string.


Merci pour votre aide

cordialement,

elecpic

[Mac LAK]

Personnellement, j'utilisais la librairie CPort (pour la vitesse de réactivité) ou AsyncFree (pour la simplicité d'utilisation, hélas peu réactive si l'on est sur un protocole série rapide).

Aucune des deux n'impose l'envoi de chaînes exclusivement, même si elles le supportent bien entendu. L'utilisation de buffers d'octets reste la méthode primaire d'envoi.

Dans ton cas, ton fichier contient sur chaque ligne un octet encodé en binaire : il te suffit de lire les 8 bits correspondants, puis de le traduire en un Byte utilisable par les librairies de gestion du port série.

[elecpic]

bonjour Mac Lak,

Bon, si j'ai tout bien compris, j'envoie l'octet au format texte sur le port,
et je recupere les bits sur ma platine electronique. J'ai donc pas besoin de traduire les octets.

Si je me trompe, merci de me le signaler.

Merci de ta reponse et te souhaite une bonne fin de journée.

cordialement,

elecpic

[Mac LAK]

Bon, si j'ai tout bien compris, j'envoie l'octet au format texte sur le port,
et je recupere les bits sur ma platine electronique. J'ai donc pas besoin de traduire les octets.

Hein ?? Si, faut les traduire en Delphi depuis le fichier texte !!

Si tu envoie la chaîne "01101001" sur le port série, ton contrôleur va péter une durite, car tu vas en réalité lui envoyer HUIT octets valant soit 48, soit 49 !

Tu lis la chaîne (8 caractères) depuis le fichier, tu la convertis de sa représentation texte binaire vers un format numérique interne (un Byte, donc), puis tu envoie UN Byte par le port série.

[elecpic]

Donc, si je te suis, si j'envoie un '0 ou un '1', le pc envoie le code ascii corespondant (soit 1 byte).

POur envoyer un octet binaire (ex :0000 1111), je doit faire corespondre les bytes 1 par 1:

soit sur 1 byte (je reprend mon example):

0+65 = 65 = A
0+65 = 65 = A
0+65 = 65 = A
0+65 = 65 = A
1+65 = 66 = B
1+65 = 66 = B
1+65 = 66 = B
1+65 = 66 = B

j'envoie donc 8 bytes qui corespondent apres decodage par le microprocesseur à mes 8 bits.

Ca me parait un peu long pour atteindre des bonnes vitesses ...

j'ai peut etre raté un train

ai'je bien tout compris ?

cordialement

elecpic

[Mac LAK]

Non, "00001111" vaut 15 en décimal, c'est ce "15" stocké dans un Byte que tu envoie au µC... Si t'essaie de programmer un µC sans connaître la base de l'encodage binaire, t'es pas rendu, tu sais ?

Il te faut une fonction de ce genre :

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
Function BinToDec ( BinString : String) : Byte ;
Begin
     If Length(BinString)<>8 Then
        Raise Exception.Create("Invalid binary string") ;
     Result:=0 ;
     For I:=1 To 8 Do
         Begin
         // Identification du chiffre : 0, 1 ou erreur.
         Case BinString[I] Of
              Case '0' : V:=0 ;
              Case '1' : V:=1 ;
              Else Raise Exception.Create("Invalid binary digit") ;
         End ;
         // Ajout du chiffre binaire, par décalage et ajouts successifs.
         Result := (Result Shl 1) + V ;
         End;
     // Retour du résultat.
End;

Pas testée, mais le principe est là.