Szolgáltatás ablakok a kezüket, darabka régi IT Schnick
Az igény, hogy az alkalmazások futtatásához Delphi mint szolgáltatás (service) windows nem merül fel gyakran. Elvileg a szolgáltatást, akkor fut semmilyen konzol alkalmazás, de jobb, ha a program eredetileg összeállítani egy ilyen dob.
Kellett írni egy programot, amely időszakosan felügyelet nélkül hagyott olvasni egy listát az XML fájlokat, és attól függően, hogy a jelenlétében ezek a változások - egy kis asztal tele tárol. Eleinte azt hittem, hogy fut, mint egy normál Windows alkalmazás, amely időzítő kezdődött minden időszakban, nem a saját dolog, és készenléti módba, de jó lenne ebben az esetben a lehető legkisebb, de még mindig üzemben bevonása, ami önmagában akkor nafig nem szükség.
A Delphi van egy speciális alkalmazás sablon eredetileg összeállítani, mint a Windows-szolgáltatás. Annak érdekében, hogy az ilyen kérelem válassza «Egyéb» menü «Új» és a megnyíló ablak «Service Application» ikonra, hogy mi kell, és. Mi lesz üres projekt, amely egy modult egy komponens osztály TService, mint ez:
típus
TService1 = osztály (TService)
eljárás ServiceAfterInstall (Sender: TService);
eljárás ServiceAfterUninstall (Sender: TService);
eljárás ServiceStart (Sender: TService; var lépések: logikai érték);
eljárás ServiceStop (Sender: TService; var leállítva: logikai érték);
magán
nyilvános
működni GetServiceController: TServiceController; felülbírálhatja;
végén;
Két fontos esemény kezeli a szolgáltatás - OnStart és OnStop, amelyek megfelelnek zajlik a tevékenység megkezdésének időpontjában, és állítsa le a szolgáltatást az operációs rendszer parancsot írunk funkciók, mint a start és stop az időzítőt (TTimer), olvassa el, és mentse a beállításokat, és így tovább.
oszlopok: = TSTRingList.create;
Timer1.Enabled: = true;
kezdett: = true;
TService egy eleme a vizuális környezet Delphi fejlesztői tudnak dolgozni, valamint a komponens TDataModule, vagyis, amivel azt a másik nonvisual elemek, mint például az azonos TTimer.
Összeállítása után a program, megkapjuk majdnem normális Exe-Schnick, amely lehet építeni a listát a Windows szolgáltatás fut ez a paraméter / INSTALL.
Megadhatjuk funkutsii az AfterInstall események, ahol előírják intézkedéseket kell végrehajtani a szolgáltatást szakaszában a telepítés, mint például hozzá egy leírást, vagy más kulcsot a Windows rendszerleíró adatbázisában.
A legfontosabb dolog, hogy emlékezzen - a szolgáltatás teljesen interaktív. Ön nem tud megjeleníteni figyelmeztetések a képernyőn megjeleníthető bármilyen képernyőn formák, valamint a hibaüzenet, akkor a Windows rendszer naplók vagy fájlokat a lemezen.
Azt is figyelemmel kíséri a memória-felhasználás a kérelem és figyelemmel kíséri, hogy a kivételek kezelését.
Szia, Anton! Megtettem mindent, amit leír. Sajnos, a szolgáltatás indulásakor, és azonnal megáll egy üzenettel: Error 1053 - A szolgáltatás nem válaszolt időben. Láthatjuk, hogyan az alkalmazás meg van írva?