Impossible d'envoyer du texte (chaîne) de ttcpserver à ttcpclientserver

Question

J'ai deux formulaires, un pour le serveur et un autre pour le client. Après avoir déposé ttcpserver sur le formulaire de serveur et définissant sa propriété localhost 127.0.0.1 et propriété localport à 55555 et propriété Active à true j'ai écrit un button1 (sendtextbutton) gestionnaire d'événements onclick:

procedure TForm2.Button1Click(Sender: TObject); 
begin 
     TcpServer1.Sendln('message'); 
end; 

ensuite sur le formulaire client j'ai laissé tomber 1 TTcpClient une étiquette 2 boutons, ensemble clients propriété hôte distant pour 127.0.0.1 et le port distant à 55.555, a écrit un gestionnaire d'événements pour ConnectButton (button1):

procedure TForm2.Button1Click(Sender: TObject); 
begin 
try 
TcpClient1.Active := true; 
except 
showmessage('error'); 

end; 
end; 

a écrit un onConnect pour TTcpClient:

procedure TForm2.TcpClient1Connect(Sender: TObject); 
begin 
    Label1.Caption := 'connected!'; 
end; 

puis enfin une Hadler d'événement onrecieve pour TTcpClient:

procedure TForm2.TcpClient1Receive(Sender: TObject; Buf: PAnsiChar; 
    var DataLen: Integer); 
begin 
    Label1.caption := TcpClient1.Receiveln(); 
end; 

Ma légende de programmes clients était censé changer de « message » (après s'être connecté et cliquez sur le bouton sur mon formulaire de serveur), mais il Doest. Est-ce que je le fais de la mauvaise façon? Si oui, alors comment le faire? J'essaie d'envoyer un message texte du serveur au client (Oui une connexion inversée!)

Answer 1

TTcpServer ne stocke pas une liste de connexion connectée qui rend difficile les messages de style diffusion.

Je recommanderais de passer à TidTcpServer et TidTcpClient. Le composant TidTcpServer possède une propriété contextuelle que vous pouvez parcourir pour diffuser des messages aux clients similaires à ce que vous semblez vouloir faire.

Voici quelques liens vers des exemples d'utilisation TidTcpServer et TIdTcpClient:

• Exchanging Data over the Network using Delphi
• Get Image from Client with Indy Socket
• New and Improved Screen Thief 2
• Indy Demo's Downloads'

Answer 2

Votre code de serveur ne fonctionne pas parce que TTcpServer.SendLn() ne fait pas t envoyer les données à l'extrémité du client du socket connecté. C'est pourquoi le client ne voit jamais les données - il est envoyé dans les limbes.

Si la TTcpServer.BlockMode propriété est définie sur bmThreadBlocking (ce qui est par défaut), ou si le TTcpServer.BlockMode est réglé sur quoi que ce soit d'autre et vous êtes calliing manuellement la méthode parameterless surchargée TTcpServer.Accept(), le seul endroit où vous avez accès au client de Le point de terminaison provient de l'événement TTcpServer.OnAccept. Dans ces conditions, lorsque ce gestionnaire d'événements se ferme, le serveur déconnecte le client, de sorte que tout travail que le serveur souhaite effectuer avec le client doit être effectué depuis l'intérieur de cet événement.

Si cela ne convient pas à vos besoins, alors vous devrez définir la propriété TTcpServer.BlockMode soit bmBlocking ou bmNonBlocking puis appeler manuellement la méthode TTcpServer.Accept() surchargée qui retourne un objet TCustomIpClient. Une fois que l'événement TTcpServer.OnAccept a été déclenché et quitté, vous devenez propriétaire de cet objet et avez un contrôle total sur sa durée de vie. Vous pouvez y accéder dès que vous le souhaitez.