Discussion :

[trakiss]

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

Voici mon code client :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Client Connect
Client Accepted
Client Disconnect

Bref rien n'est recu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[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
Utilises donc les composants Indy : ils sont biens plus performants, sûrs, etc.

[trakiss]

Quand j'arriverais a installer indy ouaip

[edam]

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
Utilises donc les composants Indy : ils sont biens plus performants, sûrs, etc.

c'est méchant sa, mois jutilise toujour ces composant est sa marche ampécable
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[trakiss]

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

[edam]

bien fait tu ma sauvé

[trakiss]

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 )

[edam]

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

[trakiss]

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