Discussion :

[MaTHieU_]

Bonjour,

J'ai réalisé ce petit bout de code :

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
 
        TList *ListeThread = IdIRCServer1->Threads->LockList();
        for( int i=0; i<ListeThread->Count; i++ )
        {
                try
                {
                        TIdPeerThread *Thread = (TIdPeerThread*)ListeThread->Items[i];
                        Thread->Connection->WriteLn( "PING MaTHieU" );
                }
                catch( ... )
                {
                        TIdPeerThread *Thread = (TIdPeerThread*)ListeThread->Items[i];
                        Thread->Stop();
                }
        }
        IdIRCServer1->Threads->UnlockList();

J'ai un access violation à la première ligne dans ntdll.dll mais je ne comprend pas pourquoi...

erci d'avance,
Mathieu

[Neilos]

Regarde voir la valeur de retour de

Code :

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

IdIRCServer1->Threads->LockList();

Je ne connais pas cette fonction mais peut être que LockList ne te retourne pas un pointeur sur la liste mais qu'il se contente de la bloquer.

Dans tous les cas essaye ceci :

Code :

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

1
2
3
4
 
IdIRCServer1->Threads->LockList();
ListeThread = IdIRCServer1->Threads;
// Ou bien avec Assign si ça existe

[MaTHieU_]

Salut,

Voici ce que j'ai dans l'aide :

TIdTCPServer.Threads
TIdTCPServer, See Also
Container for peer threads connecting to the server.
property Threads: TThreadList;
Description
Threads is a read-only TThreadList property that acts as a container for TIdPeerThread items created in the listener thread.

J'avais pas pensé à cette éventualité

Je regarde ce midi à la maison et vous tien au courant !

Merci,
Mathieu

[DjmSoftware]

bonjour,

la méthode LockList() descend de la classe TThreadList
cette méthode empêche q'un autre thread utilise cette liste et elle te retourne un ptr sur sur une TList

Code :

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

TList* __fastcall LockList(void);

mais si comme je le suppose la threadList est vide (valeur NULL) l'appel a LockList va provoquer forcément un Access Violation

pour le tester modifie ton code de la manière suivante

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
 
try
  {
   TList *ListeThread = IdIRCServer1->Threads->LockList();
   for( int i=0; i<ListeThread->Count; i++ )
    {
      try
      {
              TIdPeerThread *Thread = (TIdPeerThread*)ListeThread->Items[i];
              Thread->Connection->WriteLn( "PING MaTHieU" );
      }
      catch( ... )
      {
              TIdPeerThread *Thread = (TIdPeerThread*)ListeThread->Items[i];
              Thread->Stop();
      }
    }
    IdIRCServer1->Threads->UnlockList();
  }
  catch(EAccessViolation &E)
  {
   MessageBox(Handle,E.Message, "Exception Occurs", MB_OK + MB_ICONSTOP);
  }

Cordialement

[MaTHieU_]

Salut,

Je vais regarder tout ça ce midi cependant, je peux déjà affirmer que ma ThreadListe n'est pas vide car j'ai une connection sur le serveur (détectée avec OnConnect et OnDisconnect)

Merci,
Mathieu

[Seb des Monts]

et pourquoi pas plus simplement,

Code :

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

1
2
3
4
5
TList *ListeThread = IdIRCServer1->Threads->LockList(); 
if(ListeThread != NULL)
{
   // ton traitement
}

[MaTHieU_]

Salut,

Moi, j'ai l'exception à cette ligne :

Code :

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

1
2
 
TList *ListeThread = IdIRCServer1->Threads->LockList();

Cordialement,
Mathieu

[Neilos]

Vu le nom, ça m'a l'air d'être un composant Indy.
Tu as la dernière mise à jour des composants Indy ?

[MaTHieU_]

Salut,

C'est en effet un composant Indy v9.0.17. Je n'ai pas réussi à compiler la version 9.0.18 et la v10 n'est pas encore compatible C++ Builder 6.

Merci,
Mathieu

[DjmSoftware]

bonjour,
la liste Threads existe elle fait partie du component en tant que property,mais comme je l'ai déclaré dans un précédent Post

ce n'est pas une simple TList mais une Liste adaptée au Thread (ThreadList)
l'execption proviend au moment ou un veut faire un locckList

le fait d'assigner a un ptr TList une autre liste ne provoque pas d'access violation

par contre si la ThreadList est vide ou NULL --> AccessViolation

un petit test avant le locker la list serait le bienvenu du style

Code :

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

1
2
3
4
5
 
 if(IdIRCServer1->Threads)
{
   ..traitement
}

Cordialement

[MaTHieU_]

Salut,

Merci pour votre aide, cependant, même cette ligne seule provoque une exception :

Code :

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

1
2
 
IdIRCServer1->Threads->LockList();

Et, il y a une connection sur le serveur donc la liste de thread n'est pas vide.

Merci d'avance,

Cordialement,
Mathieu

[DjmSoftware]

observe le composant au debugger avant l'appel a LockList
cordialement