Discussion :

[steph_1]

Bonjour à tous,

j'ai un pb d'"indice de grille hors limite" sur l'utilisation de ma KStringGrid.
J'affiche des lignes ds ma KStringGrid et lorsque j'arrive à un nb fixé de lignes (par ex. 200), je fais un RAZ de ma KStringGrid et je continue d'afficher des lignes.

RAZ :

Code :

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

1
2
3
 
   KStringGrid1.RowCount := 1;
   KStringGrid1.Row := 0;

à noter que lors de la réception des lignes, je me positionne tj sur la dernière ligne reçue :

Code :

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

1
2
 
   KStringGrid1.Row := KStringGrid1.RowCount - 1;

Cette opération marche très bien sur XP (que delphi soit installé ou pas), par contre j'ai une erreur d'"indice de grille hors limite" sur certain poste en Win2000 (pas tous ; sans delphi installé dessus)

Que dois-je faire pour résoudre ce pb ? Où dois-je chercher ?

Merci bcp

[MD Software]

ça marche TOUJOURS sour Windows XP ?
C'est bien étrange !

Eventuellement, mets des points de repère dans ton code pour savoir où ça plante et montre nous, si tu peux, le code qui pose problème.

[steph_1]

Voilà le code de mon thread :

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
21
22
23
24
25
26
27
28
29
30
31
 
   while (not stop_thread) do
    begin
       while(condition1) do
        begin
           if(condition2)then
              inc(nb_ligne);
 
           // RAZ de la StringGrid
           if(nb_ligne> Depth_choisie)then
            begin
              KStringGrid1.RowCount := 1;
              KStringGrid1.Row := 0;
              nb_ligne:= 1;
            end;
 
            // Affichage du message ds la StringGrid
            Gestion_affichage(msg);
        end;
 
        // Sélection de la dernière ligne
        if(OnLineUpdate1.Checked)then
         begin
             if(KStringGrid1.RowCount > 2)then
                KStringGrid1.Row := KStringGrid1.RowCount - 2;
             KStringGrid1.Refresh;
         end;
       end;
 
       sleep(50);
    end;

sous XP ça a tj marché, les Win2000 que j'ai ici ne plante pas, par contre sous un autre Win2000 (que je n'ai pas sous la main) là ça plante...
Je pensais que celà venait du KStringGrid1.Row qui avait une valeur à 200 alors que le KStringGrid1.RowCount valait 0 mais non....

[MD Software]

J'amagine que ton KStringGrid est sur une fiche à côté.
Dans ce cas, as-tu bien appelé la méthode que tu montres par un synchronize ?

[steph_1]

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
 
constructor thread_debug.Create();
begin
   FreeOnTerminate := true;
   inherited create (false);  // exécution immédiate
   stop_thread := False;
end;
 
procedure thread_debug.execute;
begin
//    mon code de tte à l'heure
end;
 
//et j'appelle mon thread like that :
 
// lancement du thread principal de l'application
    thread_debug.create;

[MD Software]

ouais, mais comme tu accède à un objet de la VCL, il faut que tu synchrnise.
Place tout ton code dans une méthode et dans la méthode Execute appelle là méthode grâce à synchronize.

[steph_1]

ok
je viens de le faire, dc je ne peux pas dire si celà corrige mon pb car je n'ai pas le PC Win2000 qui plante sous la main, par contre le fait de faire comme ça m'enlève certaines choses que je pouvais faire avant (accèder aux menus, cliquer sur la fenêtre, etc etc etc) dc pas bon pour mon application.....

[MD Software]

ok
je viens de le faire, dc je ne peux pas dire si celà corrige mon pb car je n'ai pas le PC Win2000 qui plante sous la main, par contre le fait de faire comme ça m'enlève certaines choses que je pouvais faire avant (accèder aux menus, cliquer sur la fenêtre, etc etc etc) dc pas bon pour mon application.....

Fait attention, tu n'as pas le choix. Si tu accède à des éléments de la VCL depuis un thread, il faut OBLIGATOIREMENT utiliser synchronize

[steph_1]

mais qd je rajoute une ligne je fais bien un accès à mon élément de la VCL, alors pq qd je veux changer le rowcount il me plante ? qu'elle est la différence entre les 2 accès ?

[MD Software]

Un accès à la VCL signifie que tu accèdes à un élément graphique posé sur une TForm.

[steph_1]

oui comme une KStringGrid posée sur une TForm...
par contre est-ce normal qu'avec un synchronise, je n'ai plus la main sur l'appli ?

[MD Software]

oui comme une KStringGrid posée sur une TForm...
par contre est-ce normal qu'avec un synchronise, je n'ai plus la main sur l'appli ?

Oui, c'est normal, le synchronize te fait passer aux yeux de l'application comme le thread principal.

[edam]

salut, j'ai une petit question
que fait exactement ton thréad?
les données que tu affiche dans kSG vien d'où?