Blocage du client chat

Bonjour, je réalise actuellement un client chat avec les comosants Indy. (Bêta test : http://leobaillard.org/progs_internet-reseaux.php) Un problème d'origine inconnue se pose à moi...

J'ai un TMainMenu sur ma form principale, et, lorsque le Client est connecté et que j'ouvre mon menu, l'application se gêle et seul le TEdit de l'envoi de message reste actif... Je n'ai pas la moindre idée d'où cela peut venir...

Merci d'avance,

Bonjour, tout d'abord merci. Je crois que je n'ai pas été assez précis sur la nature de mon problème, désolé. J'ai un IdAntiFreeze sur ma fiche, mais il ne marche que lorsque je met un timeout à ma commande ReadLn (logique), mais lorsque je met un timeout à cette dernière, j'ai le message 'Non connecté' qui revient en bloucle infinie lorsque je déconnecte mon client... Comment faire ?

Code de la réception du message (inclu dans un Timer de 500Ms) :

Code :

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

Msg := IdTCPClient1.ReadLn('');

Code du bouton de déconnexion :

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
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
edMessage.Enabled:=False;
edMessage.TabStop:=False;
XiButton1.Enabled:=False;
sePort.Enabled:=True;
edServer.Enabled:=True;
edUserName.Enabled:=True;
    try
Timer1.Enabled:=False;
TimerClients.Enabled:=False;
    finally
IdTcpClient1.Disconnect;
end;
SpeedButton2.Enabled:=False;
SpeedButton1.Enabled:=True;
lbClients.Clear;
memLines.Lines.Add('Vous êtes déconnecté(e) du serveur');
end;

Voilà

Quelqu'un aurait-il une idée ? Je vous en supplie, j'implore votre aide...

S'il vous plait, j'aimerais trouver la solution à ce problème

Personne n'a une petite idée ?

Je crois que ce message vient des composants Indy.

C'est parce que j'ai pas fait de gestion des erreurs, je sais pas trop comment on fait donc...

Ben j'aévais d'autres versions où c'était aussi à 500 Ms et ça ne bloquait pas, mais j'ai rajouté un truc, je ne sais plus quoi , qui a fait que ça gèle , mais qu'il y a moins d'erreurs, enfet, avant quand tu quittait, il y avait le message Non connecté en boucle, ça plantait, alors que là il n'apparait qu'une fois, c'est chiant, mais c'est mieux...

Si jamais tu pouvais m'aider ! Halala, je sais pas ce que je ferais pour te remercier !!!

Cqui voudrait m'aider peuvent le faire par le biais de mon forum : http://leobaillard.org/forum.htm. Merci

Tu peux me donner un exemple ou un tuto parce que je connais pas du tout l'utilisation de ces bêtes là

Merci beaucoup pour l'intérêt que vous portez à mon problème !

PS : Je pars en vacances, je reviens vers Samedi/Dimanche, alors ne soyez pas surpris si je ne répond pas tout de suite !

Bonjour à tous !

Encore merci pour vos réponses. Je voulais vous informer que je suis rentré de vacances et que je suis prêt à me remettre à la programmation de ce fichu client !

je pense mettre (sur les conseils de Silk) un timeout sur la commande ReadLn genre :

Code :

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

Msg:=IdTCPClient1.ReadLn('', 5);

Voilà les dernières nouvelles...

Le problème est que le problème (hum...) revient !!! Le menu se freeze et le message 'non connecté' est encore là...

Bonjour ! J'ai un peu bidouiller et j'ai corrigé quelques bugs... Le problème est que le prog marche et n'affiche plus d'erreurs sauf lorsque l'on a envoyé un message, ce qui fréquent avec un chat... Donc pour résumer, le message n'apparait que lorsque l'on fait une connexion déconnexion simple. Ça devient énervant... Si vous avez besoin de sources... La dernière version du prog est sur mon site http://leobaillard.org/progs_internet-reseaux.php . Voilà, merci de votre aide.