TClient Server & SendText

Voila, j'ai un gros soucis : je n'arrive plus a envoyer de text au server.

Voici mon code client :

Code:

---

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

procedure TForm3.EnvResgiterClick(Sender: TObject); begin if Edit1.Text = '' then ShowMessage('Veuillez entrer votre pseudo !') else if Edit2.Text = '' then ShowMessage('Veuillez entrer votre password !') else begin SpeedButton1.Enabled := False; Socket.Open; Sleep(100); Socket.Socket.SendText('Register : ' + Edit1.Text + ' : ' + Edit2.Text); Sleep(100); Socket.Socket.Close; end; end;

---

Le serveur recois bien la connexion et la deco mais pas le sendtext.

Mes logs :

Citation:

---

Client Connect
Client Accepted
Client Disconnect

---

Bref rien n'est recu :

Code:

---

1 2 3 4

procedure TForm1.testClientRead(Sender: TObject; Socket: TCustomWinSocket); begin Memo1.Lines.Add('Client Sending Data'); end;

---

La procédure ne se déclenche pas :(

Une idée ?

Si j'ai bien compris, tu utilises encore ces vieux TClientSocket et TServerSocket. C'est plus bon à rien, et c'est plus entretenu depuis longtemps :wink:
Utilises donc les composants Indy : ils sont biens plus performants, sûrs, etc. :wink:

Quand j'arriverais a installer indy ouaip :D

Citation:

---

Envoyé par sjrd

Si j'ai bien compris, tu utilises encore ces vieux TClientSocket et TServerSocket. C'est plus bon à rien, et c'est plus entretenu depuis longtemps :wink:
Utilises donc les composants Indy : ils sont biens plus performants, sûrs, etc. :wink:

---

c'est méchant sa, mois jutilise toujour ces composant est sa marche ampécable :furieux:
pourqoi tu n'ouvre pas votre socket au démarage de votre apli pour léssai le temps au socket de s'ouvrir trankilement en plus

Code:

---

1 2 3 4 5 6 7 8 9

SpeedButton1.Enabled := False; Socket.Open; application.processemessage; Sleep(100); Socket.Socket.SendText('Register : ' + Edit1.Text + ' : ' + Edit2.Text); application.processemessage; Sleep(100); Socket.Socket.Close

---

je sais que l'ouvérture , la férmeture et la transmission passe dans un trhéade mais.....au moins donne lui plus de temps

J'ai résolu le probleme entre temps en mettant le SendText dans le OnConnect du TClientServer et ca amrche impec :)

bien fait tu ma sauvé :ccool:

edam toi qui a l'air d'être habitudé a utiliser ces fonctions, est il possible que le serveur renvoie une reponse (true ou false par exemple) au client sans pour autant mettre un TClientSocket sur le serveur et un TServerSocket sur le client ? (ce quif ait ouvrir deux connexion au final :( )

example mieux:
http://nono40.developpez.com/sources/source0015/

Ok j'ai ma réponse ca amrche dans les deux sens :P