Discussion :

[fredo123]

Bonjour a tous...

autodidacte en delphi et cela m'amène a vous demandez de l'aide.

J'ai trouvé le moyen de dialoguer avec le port serie via TCOMPORT mais j'ai un problème de temporisation.

est il possible via le composant TCOMPORT d'attendre la réponse a une instruction envoyé afin de pouvoir faire une suite d'envoi et de lecture de reponse de façon suivi et non mélangé

merci d'avance

[philnext]

Je ne connais pas le TCOMPORT mais, oui c'est bien évidemment possible.
SI tu mets dans ton post ton code tu auras surement des réponses.

[fredo123]

j'ai un bonton qui envoi les données

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  // initialisation dialogue
  ComPort.WriteStr(Chr(144));
  ComPort.SetRTS(true);
  ComPort.SetRTS(false);
  ComPort.SetRTS(true);
  // envoie données ligne par ligne 
  ComPort.WriteStr(chr($A1));
  ComPort.WriteStr(chr($07)+chr($10)+chr($0E)+chr($07)+chr($01)+chr($8f)+chr($00)+chr($00));
  ComPort.WriteStr(chr($A0));
end;

et j'ai mis la reperation des donné dans l'evement RxChar

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  // recuperation des données sur le port serie 
  ComPort.ReadStr(Str, Count);
  // affichage dans memo
  Memo.Text := Memo.Text + Str;
end;

mais je n'arrive pas a arreter l'envoi avant chaque recuperation de reponse

il faut peut etre utiliser une autre methode mais laquelle ??

merci de votre aide !!!!

[philnext]

Tu veux arrêter l'envoi de donnée dès que tu reçois une réponse ??
Je ne vois pas à quoi ça sert mais bon...
Une idée :
*Tu mets un boolean en variable globale qui indique quand tu reçois.
*Tu mets un timer avec un déclenchement toutes les 100 ms. et enable à false sur ton appli.
*En fait quand tu clic sur ton bouton tu mets ce que tu as à envoyer dans une string puis tu déclenches le Timer.
*Dans l'event du timer tu dépile ta string si ton boolean est à false sinon tu sors.
*Dans l'event de reception de données tu commences par mettre le boolean à true puis tu récupères tes données. (à la fin tu peux remettre le boolean à false si tu veux redémarer l'envoi)

[edam]

j'ai un bonton qui envoi les données

Code :

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

svp

mais je n'arrive pas a arreter l'envoi avant chaque recuperation de reponse

explique un peut plus

[Linkin]

Pour chaque ligne envoyée tu dois avoir une réponse?

[fredo123]

desolé mais j'ai été pris par le boulot...

je veux recevoir une réponse pour chaque envoi...

apres l'octet final je veux arreter les envois des demandes pour recevoir la reponse

ensuite je reprend la suite des demandes

merci a tous

[Linkin]

Un envoi synchrone suivi d'une réception synchrone conviendrait-elle?

http://nono40.developpez.com/tutorie...mport/#LIV-C-3