Discussion :

[ZenZiTone]

Bonjour,

Je suis débutant Delphi et je réalise ma première application de service windows.

J'ai pour but de créer un service windows qui devra périodiquement tester la valeur d'un champ d'une table suivant une liste de fichier. Le corps du programme fonctionne et à déjà été testé mais ce qui me pose problèmes est le 'service'.

Je ne voit pas comment demander a mon service d'executer une procédure tout les x secondes.

J'ai essayé de mettre mon code dans l'évenement OnTimer en espérant qu'il se comporte comme je le souhaite...

pour mon code :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
unit U_SERVICE_MAJ_ETAT_CONVERTION_NSACFI;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs, DB,
  DBTables,Inifiles, ExtCtrls;
 
type
  TSTest_MAJETAT = class(TService)
    T_NAPSSARF: TTable;
    DB_ACCESS_BL: TDatabase;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;
 
var
  STest_MAJETAT: TSTest_MAJETAT;
 
implementation
 
{$R *.DFM}
{===============================================================================}
{===============================================================================}
{===============================================================================}
procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  STest_MAJETAT.Controller(CtrlCode);
end;
{===============================================================================}
{===============================================================================}
{===============================================================================}
function TSTest_MAJETAT.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;
{===============================================================================}
{PROCEDURE PRINCIPALE===========================================================}
{===============================================================================}
 
 
procedure TSTest_MAJETAT.Timer1Timer(Sender: TObject);
begin
{Le corp du code}
end;
 
end.

Si vous auriez des pistes quant à la façon de procéder, je suis preneur !
Et petite préscision qui peu être intéressante : Une fois fonctionnel, le service sera lancé deux a trois fois par jours. (L'intervalle en ms donné par le TTimer à l'air peu convainquant pour des durées aussi longues..)

Merci d'avances,

ZenZile

[ShaiLeTroll]

Pourquoi ne pas plutôt faire un simple Exe et le mettre dans une tache planifiée, bien plus approprié pour un délai aussi fort

Surtout si le poste redémarre, il faut mémoriser la date de dernier lancement et donc fournir un Interval pertinent au TTimer

Pour les services, en général, je l'utilisais pour des fréquences de travail bien plus soutenu comme toutes les x minutes et souvent le premier était au bout de 10s, cela aide pour les tests et la mise en place de service

Dans le TService.OnStart, je fais quelques initialisation
Et je lançais un Thread dans le OnExecute, je te conseille la lecture de Threads de service

Dans ton cas cela fera un code genre

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
const
  DELAY := 2 * SecsPerDay * 3;
begin
  remaining := DELAY;
  while not Terminated do
   begin
     Dec(remaining);
     if remaining <= 0 then
     begin
       Beep;
       remaining := DELAY;
     end;
     Sleep(500);
   end;
end;

Ne fait surtout pas une attente trop longue pour laisser le Terminate se faire depuis le OnStop

[ZenZiTone]

Bonjour,

Désolé pour le délais de réponse, mais étant en alternance, je n'était pas présent ces deux dernières semaines.

Il est vrais qu'un service ne semble pas approprié dans mon cas. A vrais dire je n'avais pas pensé a la tâche planifiée qui est bien plus coérente avec la fréquence d'exécution de mon exécutable. D'autant plus que celui ci aurait besoin d'être executé manuellement dans certains cas.

Merci pour votre réponse