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 ?