Salut à tous

Je fais une petite application qui en pilote une autre via une connexion TCP/IP

Dans le OnAccept de mon TCPServer j'ai mis ça

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
void __fastcall TForm1::TcpServer1Accept(TObject *Sender, TCustomIpClient *ClientSocket)
 
{
	 Memo1->Lines->Add("Accepte");
	 char buff[32];
	 sprintf(buff,"CONNEXIONOK");
	 g_pClientSocket=ClientSocket;
	 g_pClientSocket->SendBuf(buff, strlen(buff), 0);
}
Lorsque j'appuis sur un bouton je veux envoyer le mot TRIGGER à mon client
mais hélas ce dernier ne reçoit rien. Alors qu'il a bien reçu le message envoyé dans OnAccept

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
void __fastcall TForm1::BtnTriggerClick(TObject *Sender)
{
	char buff[32];
	if (g_pClientSocket != NULL)
	{
	 sprintf(buff,"TRIGGER");
	 g_pClientSocket->SendBuf(buff, strlen(buff), 0);	 
	}
}
J'ai l'impression que g_pClientSocket n'est plus valide ou alors je n'ai rien compris