BCB6 et Composant TTcpClient

Bonjour,

je cherche actuellement à créer un serveur tcp/IP sur lequel viennent se connecter des clients. Je l'avais déjà fait en visual c++ et je cherche à faire l'équivalent en BCB 6

Pour le serveur j'ai utilisé le composant TTcpServer dans une application simple avec une form1 et j'ai ajouter un code de test dans l'accept :

Code:

---

1 2 3 4 5

void __fastcall TForm1::TcpServer1Accept(TObject *Sender, TCustomIpClient *ClientSocket) { Application->MessageBox("lkj","lkj",0); }

---

coté client j'ai fais de même dans une application avec une form1 avec un TTcpClient, ça marche, j'ai donc validé le fait que le serveur marche.



Maintenant je voudrais faire la même chose avec un client en application console ( j'ai créé un projet C++ appli console VCL).
problème : comment utiliser le TTcpClient sans "le poser" sur la Form1 (puisque c'est une application console, et donc il n'y a pas de form ) ?

j'ai tenté d'inclure le seul .hpp dans lequel se trouvait une déclaration du TTcpClient

Code:

---

1 2	#include <sockets.hpp>

---

mais lorsque j'essaye de créer un objet :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

void ConnectToELPServer(void) { TTcpClient *a; a = new TTcpClient(); a->RemoteHost="127.0.0.1"; a->RemotePort=2205;   AnsiString buffer; buffer="coucou je suis en vie"; a->SendBuf(&buffer,10,0);   }

---

il se produit une erreur à la compilation :

Citation:

---

[C++ Erreur] Unit1.cpp(72): E2285 Impossible de trouver une correspondance pour 'TTcpClient::TTcpClient()'

---

en fait à la création de l'objet, le constructeur attend un type précis.

extrait du .hpp :

Code:

---

/* TCustomIpClient.Create */ inline __fastcall virtual TTcpClient(Classes::TComponent* AOwner) : TCustomIpClient(AOwner) { }

---

je dois donc lui donner un TComponent si je comprends bien ?
mais ... qu'est-ce qu'il en fait et qu'est-ce que je peux bien lui donner ???

Salut Argol_Medusa
Regarde ce lien sur le site

Citation:

---

http://skoffler.developpez.com/dotnet/tcpclient/

---

D'apres ce que j'en ai lu ta declaration devrait etre quelque chose comme ceci

Code:

---

1 2	TcpClient monClientTcp = new TcpClient(nomServeur, port);

---

ça ne marche pas, mais je crois que l'on ne parle pas de la même classe en fait.

La classe que j'utilise est la TTcpClient ( dans l'onglet internet de la barre toolbox de Borland builder 6 ), et non la TcpClient qui doit venir de visual d'après ce que j'ai compris.

Salut,
un simple NULL devrait fonctionner, tu n'as pas de Component à lui passer, donc tu ne vas pas lui en inventer ;)

Code:

---

TcpClient monClientTcp = new TcpClient(NULL);

---

Arrggg! Effectivement ça marche mieux !

Merci pour le tuyau Pottiez !

je copie/colle le code, ça peut toujours aider quelqu'un par la suite :

( il s'agit donc d'un client TCP/IP qui se connecte, envoie un "coucou" et se déconnecte, en application console )

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

void ConnectToELPServer(void) { TTcpClient *a; a = new TTcpClient(NULL);   a->RemoteHost="127.0.0.1"; // le serveur est sur le même PC a->RemotePort=2205; a->Open(); // Ouvre la connection avec le serveur TCP/IP   char buf[30]; // le buffer qu'on va envoyer en TCP/IP AnsiString buffer; // le buffer qu'on va manipuler ( plus simple que les char ).   buffer="coucou je suis en vie"; // la string qu'on va envoyer   //conversion AnsiString en char for (int n=1 ; n<buffer.Length()+1 ; n++) buf[n-1]=buffer.operator [](n); buf[buffer.Length()]='\0';   a->SendBuf(&buf,30,0); // envoie la donnée a->Close(); // ferme la connection system("pause"); }

---

attention à ne pas oublier le #include <sockets.hpp> au début de programme, appeler cette fonction dans le main et ça marche :)