Discussion :

[KISEKI]

Bonjour,

Donc mon problème est que je n'arrive pas à faire fonctionner mon service lors d'un reboot du serveur.
Le service s'installe correctement, pour le démarré aucun soucis mais dès que je redémarre, au lancement avant l'ouverture de la section windows, il m'écrit un service n'a pas peu démarré correctement un truc comme ça donc il faut qu'a chaque fois que j'aille le démarré manuellement.

J'ai essayé les différents type de démarrage proposé stAuto, stBoot mais sans succès.

Mon service fonctionne avec MSSQL j'ai donc aussi rajouté une dépendance "SQL Browser" mais rien.

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
 
#include <SysUtils.hpp>
#include <SvcMgr.hpp>
#pragma hdrstop
#define Application Svcmgr::Application
USEFORM("Unit13.cpp", Service13); /* TService: File Type */
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
	try
	{
		// Windows 2003 Server requiert que StartServiceCtrlDispatcher soit
		// appelée avant CoRegisterClassObject, qui peut être appelée indirectement
		// par Application->Initialize. TServiceApplication->DelayInitialize permet à
		// Application->Initialize d'être appelée depuis TService->Main (après que
		// StartServiceCtrlDispatcher ait été appelée).
		//
		// L'initialisation différée de l'objet Application peut affecter
		// les événements qui surviennent alors avant l'initialisation, comme
		// TService->OnCreate. Ceci est seulement recommandé si ServiceApplication
		// enregistre un objet classe avec OLE et est destinée pour une
		// utilisation avec Windows 2003 Server.
		//
		// Application->DelayInitialize = true;
 
		if ((!Application->DelayInitialize) || (Application->Installing()))
		{
			Application->Initialize();
		}
		Application->CreateForm(__classid(TService13), &Service13);
		Application->Run();
	}
	catch (Exception &exception)
	{
		Sysutils::ShowException(&exception, System::ExceptAddr());
	}
        catch(...)
        {
		try
		{
	        	throw Exception("");
		}
		catch(Exception &exception)
		{
			Sysutils::ShowException(&exception, System::ExceptAddr());
		}
        }
	return 0;
}

Faut-il tenir compte du commentaire fait par BUILDER mais je l'assimile mal, si quelqu'un peut me mettre sur le bon chemin je lui en remercie.

Cordialement KISEKI.

[ShaiLeTroll]

As-tu essayé de décommenter DelayInitialize ?
comme ceci en retirant les // tout simplement ?

Code :

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

   Application->DelayInitialize = true;

[KISEKI]

Bonjour,

J'ai donc essayé

Code :

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

 Application->DelayInitialize = true;

J'ai toujours l'erreur un service n'a pas peu démarrer lors du lancement du système.

Pourtant sur un Win7 64 j'ai le test et le service démarre correctement (''stAuto'').

[ShaiLeTroll]

Ton service démarre sur un 64Bits ?
Il me semblait que l'on ne pouvait pas installer des Services 32Bits sur un OS 64Bits !

C++Builder permet de faire du 64 Bits ?
Delphi XE ne le permet pas !

[KISEKI]

Salut ShaiLeTroll ben apparemment BUILDER le fait bien .



Le service fonctionne correctement.

J'ai essayé quelque manipe s'taprem mais sens plus toujours aucun résultat concluant.

[KISEKI]

Bonjour,

Donc j'ai une solution B.
Voici un lien de la solution mais elle me confient pas vraiment.

http://blogmotion.fr/systeme/convert...ice-windows-72

Donc si quelqu'un à des solutions je reste ouvert à toute aide , je continue à chercher de mon coté.

Cordialement.