Accueil > Forum > > > > je débute avec un service que j'ai pas pu le démarer (startservice)
je débute avec un service que j'ai pas pu le démarer (startservice)
lundi 16 mars 2009 à 00:39:16 |
je débute avec un service que j'ai pas pu le démarer (startservice)

tomylibre
|
salut à tous, je programme un service windows avec Delphi entreprise 7 , avec un Tservice , hier g avancer un peut avec un ami dans ce forum a faire la connection au SCM et à ouvrir la connection avec mon service et à le créer , et tous ca marche bien , tous ces fonction me renvoi un nombre >0 et meme dans les service de windows , je vois mon service appelé AAAservice , mais quand je fait StartService pour le démarer , je vois qui essaye de démarre , il m'affiche démarage dans le console des service de windows mais apres se stop , voila les ligne de code que j'utilisie pour le démare : //demarer le service ArrayOfArguments:=nil; if StartService(Srv_Hwnd ,0,ArrayOfArguments)then showmessage (' démarage de service avec succe ') else showmessage (' erreur est survenu en démarage de service'); //fin de démarage j'attend votre aide et merci
|
|
lundi 16 mars 2009 à 01:44:33 |
Re : je débute avec un service que j'ai pas pu le démarer (startservice)
|
mardi 17 mars 2009 à 19:09:52 |
Re : je débute avec un service que j'ai pas pu le démarer (startservice)

tomylibre
|
prkoi il y pas de réponse, si le questtion est pas claire , je pe l'expliquer un peut ......... 
|
|
mercredi 18 mars 2009 à 14:56:11 |
Re : je débute avec un service que j'ai pas pu le démarer (startservice)

fbalien
|
bonjour
le fait qu'il s'arrête juste après le démarrage peut être normal cela dépend de ce que fait votre service
A+
|
|
mercredi 18 mars 2009 à 18:05:05 |
Re : je débute avec un service que j'ai pas pu le démarer (startservice)

tomylibre
|
merci bien cher ami, mais comme c mon première essai en service windows, mon service ne fait rien , juste g fait l'étape de démarrage , puis retourner son état c tous, en démarrage je vois que le service essaye de démarrer dans la fenetre des service windows, apres certain temp il arrete, puis le code de vérifiaction d'état ecrit dans mon service me revoit qu'il est arrété ... j'attend votre aide Merci 
|
|
mercredi 18 mars 2009 à 18:19:51 |
Re : je débute avec un service que j'ai pas pu le démarer (startservice)

tomylibre
|
ok pur mieu expliquer voila mon simle code de service , étant donnée que le service était déja créer , et il se trouve parmi les service dans la liste des service windows ,:
procedure TAAAservice.ServiceCreate(Sender: TObject); var S : LongBool ; T : Cardinal ; Srv_Hwnd : SC_Handle; Srv_CtrlMngr: SC_Handle; Srv_State : TServiceStatus; //voir etat de service EtatDuService : word; //voir démarer service ArrayOfArguments : PChar;
begin while not terminated do begin
////////////////////// //connection SCM windows Srv_CtrlMngr := OpenSCManager(nil,nil, SC_MANAGER_ALL_ACCESS); showmessage('connection au base SCM windows : '+inttostr(Srv_CtrlMngr));//cette fonction renvoi un nombre différent de 0 donc elle est juste
///////////////////
//Creation de service en base de SCM windows ( ensuite on va faire un test avant lui si le service existe (*)T:=CreateService(Srv_Ctrlmngr,PChar('AAAservice'),PChar('AAAservice'),SC_MANAGER_ALL_ACCESS,SERVICE_WIN32_OWN_PROCESS,SERVICE_AUTO_START,SERVICE_ERROR_IGNORE,PChar( 'C:\Program Files\Borland\Delphi7\Projects\anisservice1\project1.exe'),nil,nil,nil,nil,nil); if T>0 then showmessage('service crée') else showmessage('service existe ou bien un autre erreur'); (*)
////////////////////////
//ouvrir le service Srv_Hwnd := OpenService(Srv_CtrlMngr, PChar('AAAservice'),SERVICE_ALL_ACCESS ); showmessage('ouvertur d''un service : '+inttostr(Srv_Hwnd)) ;//si ca affiche un 0 donc pas juste
//////////////////////
//demarer le service ArrayOfArguments:=nil; if StartService(Srv_Hwnd ,0,ArrayOfArguments)then showmessage (' démarage de service avec succe ') else showmessage (' erreur est survenu en démarage de service'); //fin de démarage
//////////////////////
// etat de service
QueryServiceStatus(Srv_Hwnd, Srv_State); EtatDuService:=Srv_State.dwCurrentState;
case EtatDuService of SERVICE_CONTINUE_PENDING : showmessage('1'); SERVICE_PAUSE_PENDING : showmessage('le service est en train d''être relancé après une opération pause'); SERVICE_PAUSED : showmessage('Le service est en pause'); SERVICE_RUNNING : showmessage('Le service est démarré '); SERVICE_START_PENDING : showmessage('Le service est en cours de démarrage'); SERVICE_STOP_PENDING : showmessage('Le service est en cours d''arrêt'); SERVICE_STOPPED: showmessage('Le service est stoppé');
else showmessage('Etat du service ne retourne rien'); end;
//fin d'etat de service
//////////////////// //fermer les handle CloseServiceHandle(Srv_Hwnd); CloseServiceHandle(Srv_CtrlMngr);
AAAservice.Free; end ; end;
|
|
mercredi 18 mars 2009 à 21:34:26 |
Re : je débute avec un service que j'ai pas pu le démarer (startservice)

tomylibre
|
aloo, y pas de solution ou quoi !!!, lol 
|
|
mercredi 18 mars 2009 à 21:56:12 |
Re : je débute avec un service que j'ai pas pu le démarer (startservice)

fbalien
|
Bonjour
pour les services sous delphi cote code il doit y avoire procedure ServiceExecute(Sender: TService); dans cette procédure c'est là que que ce déroule le service en géneral il y a un truc du style while (not Terminated)do ..... si il n'y a rien c'est normal que votre service s'arrete après démarrage il faudrait le code complet du service pour ce rendre compte
|
|
mercredi 18 mars 2009 à 22:01:46 |
Re : je débute avec un service que j'ai pas pu le démarer (startservice)

tomylibre
|
merci bien fbalien , mais tu veut dire que je doit faire obligatoirement qq choses dans la partiton d'exécution de service , ca doit pas etre vide!!!, mais moi je veut juste pour le moment faire un démarage 100% pour mon service , le code que g donnée est un boucle infinie c juste mais juste je veut faire le démarage , je veut que mon service avoir le status démaré c tous, mais pour le moment il fait de "démarage" puij il est stopé , et le showmessage d'erreur de démarage que g fait est elle qui arrarait !!!!!
|
|
mercredi 18 mars 2009 à 22:32:19 |
Re : je débute avec un service que j'ai pas pu le démarer (startservice)

tomylibre
|
Réponse acceptée !
alooo, fbalien , bacterius , les amis, ou etes vous !!!!
|
|
Cette discussion est classée dans : windows, service, démarage, démarer, startservice
Répondre à ce message
Sujets en rapport avec ce message
Plusieurs instances d'un même service ? [ par chezrv ]
Pourrait-on m'indiquer la solution pour installer plusieurs instances d'un même service sur windows NT (4 ou 2k) sans avoir à modifier et recompiler l
logon windows avec un service delphi [ par peperel ]
J' ait besoin de nettoyer quelques dossier avant de lancer la session Xp.J' ait cree une service qui s' en ocuppe. S' est un service que demarre autom
Web service delphi 6 et windows 2003 server [ par abdouinf ]
Bonjour à tous,j'ai developpé un service web en utilisant SOAP, lorsque je le publie sur un ordinateur executant windows XP ça marche trés bien. Par c
Evènement d'ouverture de session Windows dans un service [ par Gilles2GT ]
Bonjour.Comment, dans un service TService, détecter l'évènement d'ouverture de session, pour, par exemple, remettre une icone en Systray ?Merci d'avan
Pb lancement Servicesau démarrage de windows [ par sidali09000 ]
Bonjour à tous.Voilà, j'ai développé une application service sous delphi 7, cette dernière interagit avec le bureau via une icône affichée dans la bar
créer un service indispensable a windows XP [ par serial warez ]
Bonjour tout le monde. Voila j'essaye de faire un systeme de protection pour mon PC, et j'aurais besoin de lancer mon programme grace a un service, m
Simulation d'appui de touches dans un service windows [ par lofo18 ]
Bonjour, Je suis entrain d'essayer de faire un programme qui pourrai me permettre de me logger sous Windows par le biais de puce RFID. (En espérent qu
Windows Server 2008 : Service et interaction avec le bureau [ par nielsen_design ]
Bonjour, J'ai une application qui tourne sous différents version de Windows (2000, XP, 2003). J'essaie de la faire tourner sous Vista/7/2008
Service Windows - Gestion de la mémoire [ par madcap ]
Bonjour à tous,J'ai développé un service Windows en Delphi qui interroge un WS chaque X temps pour récupérer des données et les insérer dans une base
Livres en rapport
|
Derniers Blogs
UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|