Bonjour

je me suis aperçu d'une chose que je trouve étrange. J'essaie simplement d'envoyer un texte à un serveur.

Je me suis aperçu que mon texte n'arrive pas dans ce cas là (rien n'est transmit) :
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
16
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if (not ClientSocket1.Active) then
  begin
    ClientSocket1.Host := l'ip d'un serveur...; 
    ClientSocket1.Port := le port du serveur...;
    ClientSocket1.Active := True;
    button2.Click;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  ClientSocket1.Socket.SendText('mon texte');
end;
Par contre tout va bien dans ce cas là, le texte est transmit mais je dois cliquer sur le bouton pour envoyer le message :

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 TForm1.Button1Click(Sender: TObject);
begin
  if (not ClientSocket1.Active) then
  begin
    ClientSocket1.Host := IpHost;
    ClientSocket1.Port := PortHost;
    ClientSocket1.Active := True;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  ClientSocket1.Socket.SendText('mon texte');
end;
Quelqu'un peut m'expliquer ?

Je précise que j'ai essayé de faire un sleep (bloquant) et meme un autre type de sleep (non bloquant) mais rien à faire : dans le prmeier cas, aucun message n'est envoyé.