Discussion :

[franck.thibault]

J'ai développé un petit outil pour faire des développements "WAMP" sur clé USB à l'aide de Delphi et de la libriaire JCL (voir ici). Je souhaiterais le passer sous Lazarus mais je n'arrive pas à piloter les services : start et stop pas de problème, par contre détecter si un service est installé ou non ??
Dans un premier temps, cet outil fonctionnerait sous Windows mais avec l'objectif qu'il soit "multiplateforme".

[Eric Sigoillot]

Bonjour,

La notion de service est une notion Windows. Il semble peu réaliste de le passer en multiplateforme directement. Il faudra faire des modifications importantes.

L'appel aux services se fait via l'unité WinSvc. Si l'appel à OpenService échoue, c'est que le service n'est pas disponible. Il doit également exister des API pour lister les services présents sur la machine.

@++

[franck.thibault]

La notion de service est une notion Windows. Il semble peu réaliste de le passer en multiplateforme directement. Il faudra faire des modifications importantes.

Vous me dites si je me trompe, les daemons sous *nix ne sont pas "l'équivalent" des services Windows ?

Mon objectif est d'avoir un seul code source pour mon projet appelant les "morceaux" de codes spécifiques en fonction du système. Est-ce bien réalisable ?

L'appel aux services se fait via l'unité WinSvc. Si l'appel à OpenService échoue, c'est que le service n'est pas disponible. Il doit également exister des API pour lister les services présents sur la machine.

Je ne maîtrise pas du tout cette unité. J'ai recherché en vain des exemples, "bouts de code" l'utilisant. Quelqu'un aurait-il un exemple d'utilisation ?

[Eric Sigoillot]

Bonjour,

Vous me dites si je me trompe, les daemons sous *nix ne sont pas "l'équivalent" des services Windows ?

Equivalents, non. C'est ce qui s'en rapproche le plus. A partir du moment où on attaque la programmation système, il devient difficile de créer du code interchangeable entre les systèmes. Le mode de communication avec les services n'est pas le même qu'avec les daemons, et il n'existe pas de "standard" permettant de piloter l'un ou l'autre avec le même code.

Je ne maîtrise pas du tout cette unité. J'ai recherché en vain des exemples, "bouts de code" l'utilisant. Quelqu'un aurait-il un exemple d'utilisation ?

Pour le code, on peut commencer avec la FAQ Delphi : http://www.developpez.com/delphi/faq/?page=services-nt.
D'autres exemples ici : http://www.chami.com/tips/delphi/031498D.html

@++

[franck.thibault]

...Pour le code, on peut commencer avec la FAQ Delphi : http://www.developpez.com/delphi/faq/?page=services-nt.
D'autres exemples ici : http://www.chami.com/tips/delphi/031498D.html

@++

Merci pour les infos, j'ai commencé à regarder tout ça de plus près et j'utilise plutôt le second lien comme référence (et ça marche bien). En effet, le premier lien utilise la JCL et je n'ai pas réussi à la faire fonctionner sous Lazarus.
Lorsque j'aurai terminé, peux-tu me dire où poster mes sources si ça intéresse ?

@+

[franck.thibault]

Pour piloter Apache, voici le code que j'utilise :

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
 
uses
  Process, uservices
...
procedure LancerApache;
var
  AProcess: TProcess;
begin
   // Installation du service
   AProcess := TProcess.Create(nil);
   AProcess.CommandLine := 'D:\server\apache\bin\apache.exe -k install -n fvpatApache';
    AProcess.Options := AProcess.Options + [poWaitOnExit];
    AProcess.ShowWindow := swoHIDE;
    AProcess.Execute;
    AProcess.Free;
    // Démarrage du service
    AProcess := TProcess.Create(nil);
    AProcess.CommandLine := 'D:\server\apache\bin\apache.exe -k start -n fvpatApache';
    AProcess.Options := AProcess.Options + [poWaitOnExit];
    AProcess.ShowWindow := swoHIDE;
    AProcess.Execute;
    AProcess.Free;
end;

L'unité uservices.pas est en pièce jointe à ce message
Si vous avez des remarques, n'hésitez pas