Problème de communication socket (Client->Server)

Bonsoir à tous !
voilà le problème :
J'ai un composant TClientSocket et TServerSocket.
J'arrive à connecter les deux en faisant fonctionner 2 appli différentes.
Mais après lorsque j'envoie du Texte via la socket. Le texte reçu par l'événement OnClientRead du server est NULL !

Infos : J'appelle le fonction SendText(AnsiString ...) pour que la socket envoit celui-ci mais dans une fonction externe aux événements des 2 composants.

J'espère au moins avoir 1 réponse ! svp !

Salut

Donc tu as utilisé cette fonction pour envoyer du texte à ton serveur :
ClientSocket1->Socket->SendText("Toto");

Et pour recevoir des données coter serveur tu as la méthode ServerSocket1ClientRead.

Tu récupères le texte envoyer :
ShowMessage("Socket->ReceiveText()");

Voila pour l'échange de texte, mais est-tu sur que tu arrives à te connecter à ton serveur ?

Le client et le serveur sont bien connectés.
Je fais un showmessage comme tu me l'as indiqué mais c'est vide : la chaine ansistring du receivetext est NULL.
Alors que lors de la première communication les composants arrivent à communiquer entre eux.
A un moment (là où ca commence à bugguer avec la chaine), je fais un sendtext puis juste apres j'essai de voir le text dans la socket il est nul.
C'est normal? :(

euh juste une question avant qu'on entre dans certains détails :
est ce que lorsque je fais SendText() en provenance du client, la socket sera directement envoyé au server? ou est ce qu'il faut appeler cet évènement manuellement?

Ouais tu peux utiliser la fonction SendText ou tu veux par ex :

Code:

---

1 2 3 4 5 6

void __fastcall TForm1::ButtonEnvoyerClick(TObject *Sender) { //Envoyer des données au serveur if(ClientSocket1->Active == true) ClientSocket1->Socket->SendText("Test"); }

---

Franchement je vois pas pourquoi tu ne retrouves pas ce que tu envoies avec le serveur.

Coter serveur :

Code:

---

1 2 3 4 5 6 7 8 9 10

void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender, TCustomWinSocket *Socket) { ShowMessage("Client connecté"); } void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender, TCustomWinSocket *Socket) { ShowMessage(Socket->ReceiveText()); }

---

J'espère que ces quelques méthodes vont t'aider parce que la je vois pas ce qui cloche.

Non c'est pas un problème d'envoyer des infos du serveur c'est lorsque j'envoie des infos du client que ca ne marche pas.

Bon on va faire autrement : est ce qu'il y a besoin dans une communication entre deux ordinateurs : d'un serveur sur un ordi et un client sur l'autre OU de un serveur et d'un client sur les deux ordis ?!

Non c'est bon tu peu mettre tes 2 applis sur le même pc pour faire tes tests.

Tu passes 127.0.0.1 comme ip pour te connecter au serveur (par ex).
Enfin si tu arrives à envoyer des données du serveur au client c'est que tu gères la connection :P .

Le code que je t'ai mis pour le bouton envoyer dans mon message précédent c'était un ex pour envoyer des données au serveur.
Normalement juste avec ce bout de code tu devrais recevoir Test sur ton serveur.

Sinon c'est ptre ton pare feu qui bloque les échanges :roll: