Discussion :

[Gouyon]

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

[ShaiLeTroll]

J'ai assez peu utiliser le TTCPServer, bien moins pratique que le TServerSocket
As-tu testé avec un Telnet ou un client de test avec un TTCPClient ou TClientSocket (regarde dans les démos comme NetChat, moi ce fut la base d'un outil de test en D5 et D6)

Si tu n'envoie que des chaines, utilise Sendln, c'est bien plus pratique !

Sinon, ta gestion des chaines peut être simplifié si tes chaines restent des constantes, tu peux directement affecté l'adresse de la constante à un char* normalement SendBuf ne fait que lire les données

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
TSockAddrIn gAddrClient = {AF_UNSPEC};
 
void __fastcall TForm1::TcpServer1Accept(TObject *Sender, TCustomIpClient *ClientSocket)
 
{
	 Memo1->Lines->Add("Accepte");
	 char* buff = "CONNEXIONOK";
	 ClientSocket->SendBuf(buff, strlen(buff), 0);
         gAddrClient = ClientSocket->GetSocketAddr(ClientSocket-> LocalHostAddr, ClientSocket->LocalPort);
}
 
void __fastcall TForm1::BtnTriggerClick(TObject *Sender)
{
	if (gAddrClient.sin_family == AF_INET)
	{
	  char* buff = "TRIGGER";
	  TcpServer1->SendTo(buff, strlen(buff), gAddrClient, 0);	 
	}
}

Pense qu'un Server peut avoir plusieurs Clients !

[Gouyon]

Ca ne fonctionne pas je crois que je vais revenir au TServerSocket
LocalHostAddr me retourne bien l'adresse de ma machine par contre LocalPort retourne NULL et si je le force à la valeur de mon port ça ne marche pas plus.

Par contre il n'y a qu'un seul client possible donc je ne me suis pas préoccupé des connexions multiples