TClientSocket.. Marche pas ..
cs_oshin
Messages postés
50
Date d'inscription
samedi 11 janvier 2003
Statut
Membre
Dernière intervention
8 août 2009
-
25 sept. 2007 à 16:33
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 - 25 sept. 2007 à 21:03
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 - 25 sept. 2007 à 21:03
1 réponse
japee
Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
8
25 sept. 2007 à 21:03
25 sept. 2007 à 21:03
Salut,
Il te faut d'abord créer l'objet ClientSocket1 :
ClientSocket1 := TClientSocket.Create(self);
Et ne pas oublier de le libérer...
Ce qui donne avec ton code :
var
ClientSocket1 : TClientSocket;
begin
ClientSocket1 := TClientSocket.Create(self);
ClientSocket1.Port:=6667;
ClientSocket1.Host :='192.168.1.2';
ClientSocket1.Open;
Sleep(200);
ClientSocket1.Socket.SendText('NICK ' + 'eoebzui2' +#13#10);
ClientSocket1.Socket.Sendtext('USER guest 0 * :tutoprog'+#13#10);
ClientSocket1.Free;
end;
Il te faut d'abord créer l'objet ClientSocket1 :
ClientSocket1 := TClientSocket.Create(self);
Et ne pas oublier de le libérer...
Ce qui donne avec ton code :
var
ClientSocket1 : TClientSocket;
begin
ClientSocket1 := TClientSocket.Create(self);
ClientSocket1.Port:=6667;
ClientSocket1.Host :='192.168.1.2';
ClientSocket1.Open;
Sleep(200);
ClientSocket1.Socket.SendText('NICK ' + 'eoebzui2' +#13#10);
ClientSocket1.Socket.Sendtext('USER guest 0 * :tutoprog'+#13#10);
ClientSocket1.Free;
end;
