Discussion :

[Jik70]

Bonjour, j'ai un service créé en Delphi 2007. Ce service est un timer qui toutes les 5 minutes lance une procédure. Quand je lance mon programme il s'arrête sans message --> Application.Run ne fait rien en somme. Il Fait bien le create mais ne passe jamais dans la procédure du timer quelqu'un peut il m'aider.

[Andnotor]

As-tu géré l'événement OnExecute ?

Code :

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

1
2
3
4
5
procedure TTonService.ServiceExecute(Sender: TService);
begin
  while not Terminated do
    ServiceThread.ProcessRequests(True); //attend l'ordre de fermeture
end;