Discussion :

[Johanboy]

Salut à tous.

Je programme actuellement un petit terminal série mais j'ai un problème qui se pose.
J'affiche les caractères reçus dans un Memo avec un assenceur, mais voilà, je ne vois pas comment faire pour ajouter des caractères dans ce Memo sans passer par Memo->Texte+="nouveau text".
Car dans ce cas précis, c'est très lent, et en plus l'affichage pointe vers le début du Memo et donc je dois sans cesse le forcer à afficher la fin du Memo... Ce qui est du plus mauvais effet...

Il y a bien une méthode pour ajouter des lignes mais ça ne me convient pas...
Quelqu'un a-t-il une solution à ce problème?[/COLOR]

Code :

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

1
2
3
WindowRx->Text += RxBuff;                                        // ajouter du texte au mémo
WindowRx->SelStart = (WindowRx->Text.Length());   // mettre le pointeur à la fin du mémo
WindowRx->Perform(EM_SCROLLCARET,0,0);       // mettre le pointeur à la fin du mémo

Johanboy

[Fbartolo]

Bonjour, si tu souhaites aller plus vite, il est aussi nécessaire de purger les lignes "enciennes", celle qui sont en haut du mémo.

Ceci dit, je n'ai pas constaté de lenteur particulière liée à cela.

Si c'est le cas tu peux toujours temponner tes datas dans un tableau ou un AnsiString et les envoyer ensuite complètement par bloc à ton mémo avec un cycle donné par un timer.

[Johanboy]

Bonjour,

merci pour ta réponse.

tu peux toujours temponner tes datas dans un tableau ou un AnsiString et les envoyer ensuite complètement par bloc à ton mémo avec un cycle donné par un timer.

WindowRx->Text += RxBuff; // ajouter du texte au mémo
WindowRx->SelStart = (WindowRx->Text.Length()); // mettre le pointeur à la fin du mémo
WindowRx->Perform(EM_SCROLLCARET,0,0); // mettre le pointeur à la fin du mémo

cette partie de code est effectivement dans un timer.

J'ai également concaténer RxBuff pour ensuite l'ajouter.

WindowRx->Text = RxBuff;

Mais le résultat et identique.

Ce qui me gène, c'est que lors de l'affectation au mémo par une ou l'autre manière, le curseur pointe au début du mémo, je dois donc lui dire à chaque fois de repointer à la fin, et il a un effet de va-et-vient désagréable et qui s'amplifie avec la longueur du mémo.

si tu souhaites aller plus vite, il est aussi nécessaire de purger les lignes "enciennes", celle qui sont en haut du mémo.

J'efface bien sûr les lignes précedentes après une certaine longueur et j'en efface 20% histoire de ne pas devoir effacer des ligne à chaque cycle du timer.

Donc ce que je voudrais, c'est juste ajouter mon AnsiString à la suite sans tout réécrire le Memo et que le curseur pointe toujours à la fin...

[Interruption13h]

Salut !

Pour ajouter une ligne dans ton memo :

Code :

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

1
2
3

WindowRx->Lines->Add(RxBuff);

et pour scroller vers la fin :

Code :

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

1
2
3
4
5
6

void __fastcall TForm1::WindowRxChange(TObject *Sender)
{
SendMessage(WindowRx->Handle, WM_VSCROLL, SB_BOTTOM, 0);        
}

Espérant t'avoir aider.


Bonne continuation !

[Johanboy]

Salut !

Pour ajouter une ligne dans ton memo :

WindowRx->Lines->Add(RxBuff);

Ben le problème, c'est que je veux pas ajouter une ligne, mais bien ajouter du text à la suite...

Je commence à me demander si je n'aurais pas facile à prendre un API windows pour remplacer le memo(composant builder).

Quel API me permettrait de remplacer le memo?

[henderson]

Salut !

Je ne comprends pas trop ce que tu cherches à obtenir.

Si par exemple on suppose n'afficher que les 16 derniers codes entrés en n'utilisant que la première ligne du TMemo :

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
int n = 0; //compteur d'entrées
 
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
//pour simuler mes entrées
AnsiString N = IntToStr(n % 256) + ",";
if(n < 16)
    {
    Chaine = Chaine + N;
    }
else
    {
    int pos = Chaine.Pos(",");
    Chaine = Chaine.SubString(pos+1, Chaine.Length()) + N;
    }
n++;
Memo1->Lines->Strings[0] = Chaine;
}

Autre exemple qui affiche 16 entrées par lignes en ajoutant une ligne lorsque c'est nécessaire (c'est sans doute dans ce sens la ... ???)

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
19
20
//Compteur de lignes
int y=0;
//Compteur d'entrées
int n=0;
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
//Pour simuler une entrée
AnsiString N = IntToStr(100) + ",";
if(n > 15)
    {
    n=1;
    Memo1->Lines->Add(N);
    y++;
    }
else
    {
    n++;
    Memo1->Lines->Strings[y] = Memo1->Lines->Strings[y] + N;
    }
}

Comme tu peux le voir, j'ai simulé cette capture à l'aide d'un TSpeedButton...

Sinon... ???

A plus !

[Johanboy]

Merci pour ta participation henderson.

Effectivement cette manière de procéder semble être intéressante.

Mais je ne peux pas travailler caractère par caractère, ça va être bcp trop lent surtout que j'utilise mon terminal à 115k bauds...

Et donc, je vais devoir gérer également les passages à la ligne éventuels qui se trouveraient dans la trame texte... (je filtre déja la trame reçu par le port série pour que tout '\r' ou '\n' donne ceci "\r\n" car sinon le memo affiche un caractère spécial (un carré).

Je vais travailler celà et je reviens quand j'ai avancé.

Merci à vous.

[Neilos]

Code :

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

MonMemo->Text += (AnsiString) "hi !";

Et ça supporte très bien les \n.