Discussion :

[Tophe59]

Bonjours à tous !

Alors voila, je travail sur une communication série entre un microcontroleur 68HC11 et un PC.
Lorsque j'utilise le 68hc11 avec Hyperterminal tout va bien en emission et reception.
Lorceque j'utilise l'application avec Hyperterminal tout va bien en emission (depuis appli)

Pc branché sur HC11
Mon probleme se pose en reception je met un point d'arret à l'endroit ou le HC11 a du envoyer une valeur vers le pc mais lorce que je point sur la variable "recu" ca ne correspond à rien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
          ComPort1.Open; // open serial port
          InitAsync(Operation1);// mode asynchrone
          ComPort1.ClearBuffer(true,true);
          ComPort1.WriteStrAsync('p', Operation1); //Demande pret ?
          ComPort1.WaitForAsync(Operation1);
          ComPort1.ReadStrAsync(recu,3, Operation1);
          ComPort1.WaitForAsync(Operation1);
          Application.MessageBox('recu','test');

point d'arret sur derniere ligne

Z'avez une idée :

[cmen76]

Je suis pas expert en la matière, et j'ignore ce que tu utilises pour gérer ta liaison série, mais peut-être ce set de composants te sera utile (il est gratuit, en plus il est bien documenté)
http://sourceforge.net/projects/tpapro/
Un excellent travail de feue l'excellente société TurboPower (snif)

[Tophe59]

Je suis pas expert en la matière, et j'ignore ce que tu utilises pour gérer ta liaison série, mais peut-être ce set de composants te sera utile (il est gratuit, en plus il est bien documenté)
http://sourceforge.net/projects/tpapro/
Un excellent travail de feue l'excellente société TurboPower (snif)

Merci pour ton aide ca me fait penser que j'ai oublié de préciser que j'utilise le fameux TcomPort derniere version.

Le probleme reste posé. Le composant fonctionne c'est le programmeur qui déconne

[lil_jam63]

Pc branché sur HC11
Mon probleme se pose en reception je met un point d'arret à l'endroit ou le HC11 a du envoyer une valeur vers le pc mais lorce que je point sur la variable "recu" ca ne correspond à rien

Et comment tu verifie le contenu de ta variable 'recu' ??

[Tophe59]

Je met un point d'arret sur la derniere ligne et je pointe sur la variable 3eme ligne en partant du bas

[lil_jam63]

et ta variable c'est quoi, un tableau de byte ?

[Tophe59]

De quelle variable parles tu ?

[Pedro]

Salut

Je pense qu'il parle de "recu"...

[lil_jam63]

Aucune, c'est une erreur de ma part, j'ai jamais utilisé ces fonctions et je pensais que tu réceptionnais dans un buffer, désolé. Par contre, je pige pas trop ce que tu veux faire.

[Tophe59]

Salut

Je pense qu'il parle de "recu"...

oups scusez moi recu est de type "String Ficelle"

[Tophe59]

je veux juste faire un échange de données entre PC et carte microcontroleur par HC11. Lorsque le pc envoie 'p' le micro doit répondre avec 'o'. Le programme du micro fonctionne bien avec hyperterm

[lil_jam63]

ok, alors excuse moi mais dans le code que tu presente, si je comprend bien, tu envoie 'p' au micro et tu essayes de lire la chaine 'recu', c'est bien ça?

Peut tu expliquer la fonction readStrAsync, j'ai rien trouvé dessus, a quoi sert le deuxième argument (3)?

[corwin_d_ambre]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ComPort1.ReadStrAsync(recu,3, Operation1);

ici recu est une variable -> OK

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.MessageBox('recu','test');

ici 'recu' est une chaine de caracteres : Est ce normal (genre messagebox fait lui meme le mapping) ? ou bien la boulette est ici ?

[Tophe59]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ReadStrAsync

c'est la reception d'une chaine en mode asynchrone 3 est le nombre d'octet a recevoir il me semble

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.MessageBox('recu','test');

cette ligne ne sert à rien pour le moment je m'en sert juste pour placer mon point d'arret

Merci de votre aide précieuse

[Tophe59]

je comprends pas

[Tophe59]

J'ai un peu avancé. Lorsque j'utilise la procédure OnRxEvent j'obtien bien la reception

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
begin
          ComPort1.ReadStrAsync(Rx,1, Operation1);
end;

Mon probleme maintenant est qu'il faut attendre cet évenement avec le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ComPort1.WaitForEvent(Reception, nil, WaitInfinite);

J'ai un message à la compilation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[Erreur] fichier.pas(369): Les types des paramètres VAR originaux et formels doivent être identiques

Une idée ?

[Tophe59]

[Tophe59]

[cmen76]

un message à la compilation
Les types des paramètres VAR originaux et formels doivent être identiques

Le message est explicite : les paramètres passés doivent être des variables déclarées dans le type où elles sont attendues. 8)

[Tophe59]

Merci de m'aider.

Qu'est ce que cette histoire de parametre "originaux" et "formel" ?