[TClientSocket] Dialogue client/serveur Delphi 6
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:
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:
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é.
8O
