Discussion :

[lemarquisien]

Bonjour à tous ,

je cherche à faire un programme qui lors d'un click

1. me lance une procédure (ConnectClient)
2. puis attend un certain délai
3. lance une autre procédure(Send)
4. lance une autre procédure(DisconnectClient)

Voici la partie du code concerné que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TFTchat.Envoyerclick(Sender: TObject);
begin
ConnectClient;
Timer1.Enabled:=true;
Timer1Timer(Timer1); 
Timer1.Enabled:=false;
DisconnectClient;
end;
 
procedure TFTchat.Timer1Timer(Sender: TObject);
begin
Send;
end;

Problème ! Il me lance 'send' en boucle (même sans cliquer) !

Je gère pas trop les 'timer' et sa propriété 'enabled'.

Est ce que quelqu'un peut essayer de corriger mon code please

[randriano]

Timer n'est qu'un composant permettant d'exécuter à chaque x temps (interval) un bout de code mais non pas une durée d'attente.

Utilisez Sleep() de Uses windows

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TFTchat.Envoyerclick(Sender: TObject);
begin
ConnectClient;
Sleep(3000);//attente de 3s
Send;
DisconnectClient;
end;
 
procedure TFTchat.Timer1Timer(Sender: TObject);
begin
//Send;
end;

[lemarquisien]

Merci Randriano, toi t'es un vrai !
Je suis en stage et j'ai un peu de mal

[randriano]

Heureux de t'avoir aidé, n'hésitez pas à utiliser le forum.
C'est résolu donc? Avant qu'un modérateur va courir pour te dire de mettre en RÉSOLU, just do it