Service et getlocaleformatsettings

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:

---

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:

---

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.

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:

---

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+

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:

---

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

Solution :

ne pas oublier de traiter les heures ! :oops:

Code:

---

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 :aie:

Salutations à tous et merci pour les réponses.