Discussion :

[TitiFr]

Bonjour,

J'essaie depuis plusieur jour de créer un application client serveur mais je rencontre quelques soucis.

J'initialise le composant comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 
// Configurations.
FTCPServeur.LocalHost := '127.0.0.1';
FTCPServeur.LocalPort := '10000';
FTCPServeur.BlockMode := bmThreadBlocking;
 
// Evénements.
FTCPServeur.OnGetThread := EvtGetThreadEvent;
FTCPServeur.OnAccept    := EvtOnAccept;

Donc j'ai deux événement à gérer qui sont codés comme ça :

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
 
//-----------------------------------------------------------------------------
// Création d'un thread pour le nouveau client.
//-----------------------------------------------------------------------------
procedure TC6CCServer.EvtGetThreadEvent(Sender : TObject; var ClientSocketThread : TClientSocketThread);
begin
  ClientSocketThread := TC6CCIPClient.Create(FTCPServeur.ServerSocketThread);
end;
//-----------------------------------------------------------------------------
// Après acceptation de la connexion d'un client.
//-----------------------------------------------------------------------------
procedure TC6CCServer.EvtOnAccept(Sender : TObject; ClientSocket : TCustomIpClient);
begin
  // Message de bienvenue.
  ClientSocket.Sendln('Bonjour !');
end;

TC6CCIPClient étant une fille de la classe TClientSocketThread avec une surcharge de la méthode execute.

Je me connecte en telnet sur mon serveur. Pas de soucis je passe bien dans les deux événements et le message 'Bonjour' me parvient correctement. Mais tout de suite après la connexion est coupée alors que je souhaiterais la maintenir tant que le client n'a pas envoyée une commande de déconnexion.

Il y a aussi un truc bizarre sur l'objet TClientSocketThread. L'aide delphi à propos du constructeur dit ça :

Syntaxe Delphi :

constructor Create (ServerSocketThread: TServerSocketThread; ClientSocket: TCustomIpClient);

alors que le code de cette classe n'accepte qu'un seul paramètre de type TServerSocketThread, je trouve ça étrange.

Merci d'avance pour vos réponses et je vous souhaite une agréable journée.

[ShaiLeTroll]

JE suis plus habitué au composant TServerSocket ... mais j'ai un peu bossé avec le TCPClient aussi ...

ta classe TC6CCIPClient est un Thread (hérité de TClientSocketThread), as-tu modifié le Execute ?

[TitiFr]

Oui oui j'ai redéfinie. D'ailleur en débuguage on passe bien dedans.

Code :

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

1
2
3
4
5
6
7
procedure TC6CCIPClient.Execute;
begin
  inherited;
 
  sleep(10000); // Code à la noix pour voir si on passe par ici.
 
end;

J'ai été voir dans le code de la fonction TClientSocketThread.Execute (correspond au inherited de ma fonction) et il crée bien un TCustomIpClient qui est le socket en lui même puis appel la méthode EvtOnAccept que j'ai montrer plus haut mais juste après il détruit le TCustomIpClient (ce qui coupe la connexion je pense) et met le thread en pause (donc on arrive jamais au sleep(10000) de ma méthode execute).

[ShaiLeTroll]

Vu le code source du composant, il me semble que tu devrais écrire tout ton code d'écoute de client dans le OnAccept du Serveur, cet évènement est déclenché par le thread ... tu n'as pas à faire toi même le thread semble-t-il ...