Utilisation de tcpclient

cs_dk Messages postés 20 Date d'inscription mardi 16 décembre 2003 Statut Membre Dernière intervention 19 mai 2006 - 26 janv. 2004 à 20:57
Filipe35 Messages postés 470 Date d'inscription vendredi 14 novembre 2003 Statut Membre Dernière intervention 23 octobre 2007 - 5 août 2005 à 13:43
voila ben je sais que la question a deja ete posée sur le forum et que la reponse indiquait l'aide de delphi comme un bon debut mais voila g la version anglaise et je capte po des massedonc je me permet de vous demander de me remettre sur la bonne voie...
je desire simple faire ub ptit prog qui va juste ouvrir un socket sur l'ip et le port que je lui preciserait...
j'ai donc:

TcpClient1.RemoteHost:=edit1.Text;
port:=strtoint(edit2.Text);
TcpClient1.RemotePort:=port;
TcpClient1.Open;

mais apres j'aimerais voir ce ke le serveur va repondre dans un memo mais je vois po trop comment recuperer ce ke le serveur envoie et puis aussi si vous pouviez me mettre sur la piste quant a comment envoyer des commandes et recevoir le resultat....
tout ca dans le but p-e un jour (dans tres longtemps a mon avis lol)de faire un client msn comme a tenter de le faire psyjc avec son premier projet que g dl mais qui malheureusement ne fonctionne po et evidement il est clair que g po encore les capacite de le modifier pour kil fonctionne...

voila merci d'avance pour votre aide
dk2089

2 réponses

cs_dk Messages postés 20 Date d'inscription mardi 16 décembre 2003 Statut Membre Dernière intervention 19 mai 2006
26 janv. 2004 à 22:06
g essayer comme ceci, le programme ne plante po c deja dca mais ca ne marche po rien ne se passe, g essayer ca avec l'ip de google.fr sur le port 80

//bouton connect
procedure TForm1.Button1Click(Sender: TObject);
var port : integer;
var recv : string;
begin
TcpClient1.RemoteHost:=edit1.Text;
TcpClient1.RemotePort:=edit2.Text;
TcpClient1.Open;
while TcpClient1.WaitForData(1000) do
begin
TcpClient1.ReceiveBuf(recv, sizeof(recv));
showmessage(recv);
end;
end;

merci d'avance
dk2089
0
Filipe35 Messages postés 470 Date d'inscription vendredi 14 novembre 2003 Statut Membre Dernière intervention 23 octobre 2007 1
5 août 2005 à 13:43
regarde ma source sur les sockets
0
Rejoignez-nous