Discussion :

[Hikaru]

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é.

[Reisubar]

Je n'ai pas beaucoup utilisé les clientsockets, mais n'est-il pas nécessaire de toujours ajouter un retour à la ligne pour la commande soit émise ? Du style :

Code :

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

ClientSocket1.Socket.SendText('mon texte'#13#10);

[Hikaru]

Dans le second cas, il n'y a pas de retour à la ligne et celà marche.

[Reisubar]

Peux tu afficher le résultat renvoyé par SendText dans un ShowMessage et poster la valeur renvoyée dans les deux cas ?

<edit>La question précédente venait du fait que je ne sais pas comment les clientsockets gèrent les envois. Ils peuvent par exemple passer par un buffer qui n'est envoyé une fois qu'une taille particulière est atteinte, alors qu'un retour chariot peut vider ce buffer et par conséquent écrire les données immédiatement sur le flux de connexion</edit>

[Hikaru]

Dans le premier cas, la trame contenant le message n'est pas envoyée tout simplement et sendtext retourne 0.

Dans le deuxième cas, le message est parfaitement envoyé et sendtext retourne le nombre d'octet envoyé (qui correspond bien à mon message).

[Xenon]

Salut ...

pour envoyer un message au serveur il est mieu de le faire sur le Onconnect tu es alors certain que le socket est bien ouvert.

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
17
18
19
20
21
22
23
24
25
26
27
28
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if (not ClientSocket1.Active) then 
  begin 
    ClientSocket1.OnConnect := Clientsocket1connect;
    ClientSocket1.Host := l'ip d'un serveur...; 
    ClientSocket1.Port := le port du serveur...; 
    ClientSocket1.Active := True; 
  end; 
end; 
 
procedure TForm1.ClientSocketConnect1(Sender: TObject;
  Socket: TCustomWinSocket);
begin
    MonSocket := Socket ; // a déclarer qq part dans l'objet Tform1 ;) 
    Socket.SendText('mon texte'); 
end;
 
// tu peux garder l'envoi sur le onclic aussi si util :)
// mais controles avant s'il est connecté
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  If MonSocket = Nil then exit; 
  if MonSocket.connected then 
  MonSocket.SendText('mon texte'); 
end;

[lemarquisien]

Bonjour à tous ,
je voulais savoir s'il était possible de récupérer l'adresse IP du client à partir du serveur.
Merci pour votre aide