Discussion :

[Pasqualini]

Bonjour,
j'ai écrit un petit logiciel mettant à l'heure le PC à partir d'Internet.
Cela a fonctionné sans problème pendant des mois.
Maintenant, de temps en temps, il y a un blocage. J'ai identifié la ligne où se
produit le blocage, mais je n'ai pas trouvé la solution :

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
32
33
34
35
36
37
38
 bool  TForm1::reception(AnsiString *recept)
try
  {
    ClientSocket->Host=asAdresseIP;
    ClientSocket->Port=13;
    ClientSocket->Address=asAdresseIP;
    ClientSocket->Open();
    ClientSocket->Active=true;
    connected=true;
  }
  catch(...)
  {

  }
  
  if(!connected) return false;
  
  bool ok=false;
  int i=0;
  try
  {
	  while(!ok && i<1000)
	  {
		*recept +=ClientSocket->Socket->ReceiveText();  // C'est ici que   
                                                                                  // tout s'arrête  

		if(recept->Length()>0)  ok=true;
		++i;
	  }
  }
  catch(...)
  {
	ShowMessage("Réception impossible");
  }
  return ok;
}
//---------------------------------------------------------------------------

Le blocage n'est pas systématique,mais lorsqu'il arrive cela dure indéfiniment.
Cela voudrait signifier que le programme ne passe pas à la ligne suivante.

Quelqu'un a-t-il une idée sur ce sujet ?

Merci

[DjmSoftware]

la méthode ReceiveText est bloquante , raison pour laquelle elle doit être employée uniquement dans le corps d'un évènement Onread.ou OnSocketEvent

cordialement

[Pasqualini]

Je vous remercie pour votre réponse.
Pouvez vous m'en dire plus, c'est à dire que devrais je ajouter
comme code pour éviter ces blocages ?

Merci encore

[DjmSoftware]

Bonjour,
dans la page évenement du composant TclientSocket doubleclick sur l'évenement Onread
une méthode sera automatiquement crée,
ensuite il ne reste plus à introduire dans le corps de la méthode le code de réception

Code :

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

1
2
 
*recept +=ClientSocket->Socket->ReceiveText();

l'aide de Borland précise
Remarque : Les sockets non bloquants ne reçoivent pas toujours d'événement OnRead pour le dernier bit de données transmis au travers de la connexion. Lors de l'utilisation d'un socket non bloquant, vérifiez toutes les données non lues dans l'événement OnDisconnect afin de vous assurez que tout est géré.

donc pour pallier a ce problème utilise également l'évenemment onDisconect avec le même code de reception des données
Cordialement


tu peux te référer à l'aide de C++ Builder

[Pasqualini]

J'ai utilisé une autre méthode, trouvée sur Internet.
J'ai utilisé un TWinSocketStream.
Cela a l'air de fonctionner.

Merci quand même, la propriété bloquante du ClientSocket m'a incité
à trouver une parade.

Merci encore

[bru-no]

Salut,

Est-ce que tu pourrais détailler cette solution, ou tout à moins, donner un lien vers celle-ci ?

Merci

[Pasqualini]

voila :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
const int CLIENTWAITTIME = 20000, BUFFERSIZE = 64;

//---------------------------------------------------------------------------

void TForm1::deconnexion()
{
  if(!connected) return;
  ClientSocket->Close();
  ClientSocket->Active=false;
  connected=false;
}
//---------------------------------------------------------------------------

void TForm1::connexion()
{
  try
  {
	  ClientSocket->Host=asAdresseIP;
	  ClientSocket->Port=13;
	  ClientSocket->Address=asAdresseIP;
	  ClientSocket->Open();
	  ClientSocket->Active=true;
	  connected=true;
  }
  catch(...)
  {

  }
}
//---------------------------------------------------------------------------

bool  TForm1::reception(AnsiString *recept)
{
  bool ok = true;
  int i=0;
  char buffer[BUFFERSIZE];
  try
  {
	  TWinSocketStream *pStream;
	  int iRead = 0;
	  pStream = new TWinSocketStream(ClientSocket->Socket, CLIENTWAITTIME);
	  while(connected)
	  {
		if(!pStream->WaitForData(CLIENTWAITTIME))
		{
		  ok = false;
		  deconnexion(); // 
		  return false;
		}
		iRead = pStream->Read(buffer, sizeof(buffer));
		if(iRead == 0)
		{
		  ok = false;
		  deconnexion();
		  return false;
		}
		*recept = AnsiString(buffer);
		ok = true;
		deconnexion();
      }
	 
  }
  catch(...)
  {

  }
  return ok;
}
//---------------------------------------------------------------------------

On peut certainement améliorer, mais il n'y a plus de blocage.