Discussion :

[olivierkaelin]

Bonjour à tous,

petit problème, je décris :

j'ai écris un petit programme (TService) qui prend des données sous forme de fichier (déposés par ftp) et les intégres dans une base de donnée Firebird.

Le service est installé et tout fonctionne parfaitement jusqu'à ce que je reboot le serveur.

Après le reboot, le service se lance (startup type = automatique), mais les mise à jours dans la base de donnée ne se font plus, car le format de date est mm/dd/aaaa.

Si je me connect au serveur et que je relance le service manuellement (stop - start), le format de date revient à dd.mm.aaaa, et tout fonctionne.

J'utilise le code suivant pour initialiser les paramètres de format :

Code :

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

1
2
3
4
5
6
var
  FormatSettings : TFormatSettings;
 
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, formatSettings);
  FormatSettings.DateSeparator:='.';
  FormatSettings.ShortDateFormat :='dd.mm.yyyy';

et pour la convertion en string :

Code :

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

variable_string := DateTimeToStr(Now,FormatSettings);

Il est à noter, que "Now" retourne la date et l'heure TU après le reboot et la date et l'heure locale après un restart manuel.

Toutes les (bonnes) idées sont bienvenues.

Salutations.

[Yurck]

Bonjour,

Sous windows tous est service.
Il s'agit d'un problème d'ordre de lancement des services (Options régionales).

Je n'ai pas non plus résolu ce pb - en l'occurence moi je devai attendre que FireBird soit lancé pour me connecter à ma base.

Donc ce que j'ai fait, c'est de déporter une partie du code de ServiceStart dans une méthode InitStart appelé au premier besoin et seulement au premier besoin.

FirstLancement est un Boolean mis a vrai sur ServiceStart

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
procedure TeMyService.TimerLectureTimer(Sender: TObject);
Var
  SearchRec : TSearchRec;
  FName     : String;
begin

  if (FindFirst(Param.Masque_Recherche, faAnyFile, SearchRec) = 0) then
  try
    If FirstLancement then
    try
       InitStart;
    finally
       FirstLancement := False;
    end;

   try


.....

Voilà

a+

[Jipété]

Salut !

Quand on examine les services depuis la console de management, on constate qu'il y a une notion de "dépendances" de services les uns par rapport aux autres.
Ne faudrait-il pas creuser par là ?
Pseudo-code :

Code :

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

1
2
If MyService dépend_de(un_service_précis) then
  wait_until(un_service_précis, IsRunning)

Enfin, c'est une idée...
Mes 2 cts,
--
jp

[olivierkaelin]

Solution :

ne pas oublier de traiter les heures !

Code :

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

1
2
3
4
5
FormatSettings.DateSeparator:='.';
  FormatSettings.ShortDateFormat :='dd.mm.yyyy';
  FormatSettings.TimeSeparator:=':';
  FormatSettings.ShortTimeFormat:='hh:mm';
  FormatSettings.LongTimeFormat:='hh:mm:ss';

C'est tellement gros que pas vu

Salutations à tous et merci pour les réponses.