Discussion :

[curt25]

Bonjour,

J'utilise l'événement "onTriggerAvail" pour lire les données reçues sur un port COM.

J'utilise une autre application pour envoyer une chaine de caractères sur le port COM que je surveille. Mais je ne reçois pas la totalité du message.

Voici le code source :

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
procedure TForm4.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
  I : Word;
  C : AnsiChar;
  S : String;
begin
  S := '';
  for I := 1 to Count do begin
    C := ApdComPort1.GetChar;
    case C of
      #0..#31 : {Don't display} ;
      else S := S + C;
    end;
  end;
  memo1.Lines.Add(S);
end;

Merci pour votre aide.

[ShaiLeTroll]

Pourquoi n'utilises-tu pas le paramètre CP ?
Il est toujours plus prudent d'utiliser le Sender d'un Event qu'un membre global !

Quel Delphi 2009, XE ? Très Important !

Utilise plutôt le TCOMPort, il est plus populaire dans la communauté Développez !

[curt25]

Je suis sous D2010.

Je ne vois pas comment je peux utiliser le paramètre CP ?

Je n'ai rien réussi à faire avec le composant "TcomPort", les exemples fournis ne fonctionnent pas.

Mon chef ma recommandé le composant "TapdComPort".

[ShaiLeTroll]

CP c'est le Sender, il est en général du type du composant !
Très utile si l'on affecte le même gestionnaire à plusieurs instances !
Dans ton cas, je pense que CP sera égale à ApdComPort1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm4.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
begin
 
  ...
  if CP is TapdComPort then
  begin
    with TapdComPort(CP) do
    begin
 
    end;
  end;
end;

Sinon "TForm4", pense à donner des noms pertinents pour les élements de ton projet !

Si ton chef connait le composant, demande le lui !
Ton code est exactement celui de la FAQ, si il ne fonctionne pas, pas de chance !
Peut-être un problème lié au Bit d'Arrêt, la parité du port COM ...

Je n'ai rien réussi à faire avec le composant "TcomPort", les exemples fournis ne fonctionnent pas.

Ah ?
Je l'ai utilise pour la première fois, il y a un mois, cela a fonctionné du 1er coup, je n'avais pas l'appareil, j'ai code à l'aveugle, j'ai file le programme à ma collègue, ça fonctionnait nickel !
Je suis passé par le TComDataPacket cela nécessite un STX\ETX !

[curt25]

Merci pour ta réponse.

Je vais explorer tes pistes !
Mon chef ne comprend pas, tout comme moi, pourquoi on a ce problème.

"Tform4", c'est normal, c'est juste un projet de test indépendant pour tester la fonction de façon isolée.

Merci pour ton aide.

[curt25]

Rien y fait, toujours le même problème.

Je continue à creuser !

je suis ouvert à vos propositions.

Merci

[curt25]

J'ai trouvé la source de mon problème.

En réalité c'est une erreur d'émission de données.

J'utilisais le composant "TzylAISreceiver" pour envoyer mes données.
Or j'avais un souci de type entre "String" et "AnsiString". Du coup mon message était entravé de caractère "#0".

Merci de votre aide ShaiLeTroll.

[ShaiLeTroll]

Ma question "Quel Delphi 2009, XE ? Très Important !"
N'était pas un hasard ! tout le monde se fait avoir avec l'Unicode !

C'était surement le même problème avec TComPort comme dans ce sujet de la semaine dernière : petit problème de configuration où je conseille d'éviter les fonctions typées string mais d'utiliser les fonctions en buffer non typé !

Ou même dans ce sujet TCP\IP : #0 obligatoire avec winsock ?


pense au bouton

[curt25]

Oui, surtout que ce n'est pas la première fois que je fait surprendre mais là j'ai mis le temps avant de m'en apercevoir !

Merci