[Lazarus] Piloter Apache, MySQL, ... et plus généralement des services depuis Lazarus

Version imprimable

08/05/2006, 23h00
franck.thibault

[Lazarus] Piloter Apache, MySQL, ... et plus généralement des services depuis Lazarus

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".
09/05/2006, 11h25
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.

@++
10/05/2006, 10h37
franck.thibault

Citation:

Envoyé par Hdd34

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 ?

Citation:

Envoyé par Hdd34

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 ?
10/05/2006, 11h31
Eric Sigoillot

Bonjour,

Citation:

Envoyé par franck.thibault

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.

Citation:

Envoyé par franck.thibault

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

@++
15/05/2006, 23h48
franck.thibault

Citation:

Envoyé par Hdd34

...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 ?

@+

1 pièce(s) jointe(s)

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

Code:

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