Discussion :

[ptitemeuh]

Bonjour,

Je souhaite utiliser ce composant pour ma liaison série RS232 en complément de mon composant TComport. Comment dois-je faire pour récupérer dans un Edit ou autre ma trame reçue ?

D'avance merci

[ptitemeuh]

J'ai réussi à récupérer ma trame avec un ComTerminal(sans passage à la ligne automatique), le souci c'est que lorsque je veux récupérer ma trame reçu dans un Mémo, au bout du 14ème caractère, retour à la ligne automatique

J'utilise ce morceau de code pour copier ma trame reçu dans mon Mémo:

Code :

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

1
2
3
4
procedure TForm1.ComDataPacket1Packet(Sender: TObject; const Str: String);
begin
     Memo1.Lines.Add('Rec: '+Str);
end;

Merci d'avance pour vos conseils précieux

[ShaiLeTroll]

Si ta trame ne contient ni #10 ni #13, c'est WordWrap qui est à true et que ton mémo est trop petit pour afficher plus de 14 caractères sur une ligne ?
Soit agrandi le mémo, tu auras le problème plus tard
Soit passe WordWrap à false, cela sera définitivement résolu
Pense à la ScrollBar aussi !

Un petit conseil, fouille un peu plus dans l'aide ou les tutoriel TComPort avant de poser des questions !
La 1ère c'est bien, tu as trouvé la réponse, preuve qu'il n'était pas utile d'en poser une !
WordWrap est le dernier membre de TMemo, tu aurais certe passé du temps à le trouver dans l'aide mais tu aurais au passage découvert un tas de propriété !
C'est comme cela que l'on apprend !

[ptitemeuh]

Merci pour ta réponse rapide mais...
Mon WordWrap est bien à False et mon mémo est suffisamment grand. J'ai essayé avec RichEdit (même cas qu'avec le Mémo) et Edit1 (j'ai la dernière ligne)

Normalement, ma trame est de ce type:
>1D2;€2�X0=00[Dè

Mais à partir du 14ème caractères, que ce soit cette trame ou une autre: retour ligne et qui me donne:

>1D2;€2�X0=00[
Dè

[ptitemeuh]

Je pourrais rajouter que j'utilise Comport et Comterminal (celui-ci m'affiche correctement la trame) mais je ne sais pas comment récupérer la trame que j'ai envoyée. Ce qui me faciliterais la tâche tout en sachant que je dois exporter toutes trames émises et reçues dans un fichier texte.

[ShaiLeTroll]

Pense que Lines.Add ajoute un retour charriot, si tu reçois >1D2;€2�X0=00[ et Dè séparément (deux appels à OnPacket)

tu obtiens ?

Code com :

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

1
2
>1D2;€2X0=00[
Dè

ou

Code com :

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

1
2
Rec: >1D2;€2X0=00[
Dè

ou

Code com :

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

1
2
Rec: >1D2;€2X0=00[
Rec: Dè

Utilise Pos pour vérifier si tu n'as pas #13 ou #10 dans ta chaine !

Lorsque je copie colle ta chaîne, j'ai un caractère "carré" entre €2 et X0 !
C'est étrange !

Version de ton Delphi 3 à 2007 ou 2009/2010/XE
Attention avec 2009+, pense que c'est de l'Unicode pour le type String !
Je n'ai jamais utilisé le TComPort et J'ignore encore plus comment fonctionne TComPort avec l'Unicode, j'ai toujours préféré l'utilisation de array of byte, c'est tellement plus fiable qu'une string !
tu devrais utiliser OnRxChar et Read (normalement fonctionne en octet et non en char)

Sinon Windows founi "Microsoft Comm Control 6.0" de mscomm32.ocx (élement du HyperTerminal et des éléments redistribuables de Microsoft Visual Basic 6.0)
C'est le composant que l'on utilise où je travaille actuellement pour la gestion du Port COM

[ptitemeuh]

J'obtiens la troisième solution:

Rec: >1D2;€2�X0=00[
Rec: Dè

et lorsque j'utilise un label, je n'obtiens que Dè. La première partie de la trame envolée