Napravi novi Service projekat (File/Other/New-Service application), dodaj OnExecute handler i u njemu dodaj potrebnu obradu ili izdvoj postojeći kod u novu klasu (može i thread) koju ćeš pozvati iz tog eventa, ne zaboravi da dodaš i ProcessRequests.

savkicu, hvala

Ovo mi je malo preskračen opis.
Gdje da dodam ProcessRequests?

Ako imaš (ili možeš napraviti :) ) ljusku - app koja će ostati kao seris, a u proc u kojoj se izvrašava ono što treba upisati samo komentar npr:
// ovdje ide kod


Hvala unaprijed

Rad sa servisnom aplikacijom je jako slican kao i sa svakom drugom aplikacijom. Stavi onSstart


procedure TMojaAplikacija.ServiceStart(Sender: TService;
var Started: Boolean);
begin
startTimer();
started:=true;

end;

procedure TMojaAPlikacija.startTimer();
begin
timer.interval:=vrednost osvezavanja;
end;

Dodaj on timer event i kada se uslovi poklope, nek aplikacija izvuce podatke i obradi ih (taj deo imas uradjen koliko sam razumeo)

Kreirao sam app File->New->Other->Delphi Projects->Service Application

u unit1 koji je automatski kreiran, u Events OnStart sam dodao Started := true;

tako da imam:



Nakon Run iz Delphi-a ili compile pa nakon toga pokretanje programa Project1.exe
u Task Menageru->Processes se pojavi Project1,
u Task Menageru->Services se ne pojavi ništa novog

Nakon cca 10 sekundi, program se zaustavi sam i nestane iz procesa. Isto se dogodi bez obzira da li je startan kao program ili iz Delphi-a.

Što mi nedostaje?

Service se ne pokrece tako sto startujes project exe. U start meniju idi na browse, nadji svoj exe i dodaj Project.exe /install. Nakon toga ces imati u servisima service Project1 ili sta vec, pa ga odatle startujes.

Kako postaviti da se starta svaki pout nakor restarta kompa?

Taj deo se regulise u servisima pod opcijom startup type, znaci stvar je windowsa a ne samog programiranja

Servisi se prvo instaliraju:
Project1.exe /install
... pa se tek onda vrsi startovanje, pauziranje, zaustavljanje i sl.

Deinstaliraju se slicno:
Project1.exe /uninstall

(mozes iz konzole da pokrenes instaliranje/deinstaliranje ili najbolje napravi dva shortcuta sa parametrima /install i /unistall, da bi lakse testirao program)

A mozes da kontrolisanje servisa: startovanje, zaustavljnje, pauziranje, nastavljanje i korisnicki definisane poruke odradis i kao zasebnu aplikaciju.

Ovde mozes da pogledas jedan DEMO koji sam radio na slicnu temu:
http://www.elitesecurity.org/t253787-0#1525450

Iako je kod u C++ Builderu, sve je u VCL-u pa ces se lako snaci oko detalja.

Zahvaljujem na odgovorima. Idem to isprobati. Valjda će raditi :)

Još jedno pitanje: pristup bazama (Firebird) je normalan, kao u običnom programu?




A lijepo sam to mogao napraviti kao normalni prog bez sveg s...a

Pristup FB je standardan naravno.

Naparvio sam service. Kad sam imo samo ljusku, mogao sam ga startati.

Dodao sam procedure za učitavanje parametara iz txt file-a. Koristim:

stringlist.loadfromfile('ime file-a');
parametar := stringlist['ime parametra'];

Dodao sam i konekciju na fdb bazu, koju starta timer i koja se ne otvara...

Install prođe ok (recimo, jer se serivce ne starta)

u servisima kad pokušam startati svoj srvis javi mi sljedeću poruku:

"The Service1 service on Local Computer started and then stopped. Some services stop automatically if they are not use by other services or programs."

Izbacio sam pozivanje bilo koje procedure, a timer mi je disabled.


kreirao sam proc:


file: 'c:\program files\moj_servis\webupdate.log' postoji, ali se ne upiše tekst koji bi, pretpostavljam trebao čim uđe u proceduru ServiceStart.

Pomoć !!!

Koliko se ja secam, txt ili ini fajl koji pozivas bi trebao da bude u system32.

Da, ali ako tvoj servis radi na istoj masini kao i FB server na koji se povezuje, moras postaviti Dependency za svoj servis, tj da kazes da tvoj servis zavisi od Firebird servisa, da se ne dogodi da pokusas da pristupi podacima dok FB server ne radi. Dependency postavljas, pogodi gde - property Dependencies. Dodaj jedan i u listi izaberi Firebird Server.


Naravno da se ne upise kada ne pises u fajl vec na standardni izlaz. writeln(tf, Value);

> u servisima kad pokušam startati svoj srvis javi mi sljedeću poruku:
> "The Service1 service on Local Computer started and then stopped. Some services stop automatically if they are not use by other services or programs."

TService mora imati OnExecute handler, bez njega nema šta da radi i može samo da se zatvori.

^

Ako se ne varam, ipak postoji izuzetak od ovog pravila.
Ako se u OnStart pokrene zaseban thread ili ako se koristi TIdTCPServer u servisnoj aplikaciji, u njemu se moze handle-ovati sav saobracaj.

Inace, primetio sam da ljudi poprilicno pogresno koriste OnExecute() i otuda vecina problema.

> Ako se ne varam, ipak postoji izuzetak od ovog pravila.
> Ako se u OnStart pokrene zaseban thread ili ako se koristi TIdTCPServer u servisnoj aplikaciji, u njemu se moze handle-ovati sav saobracaj.

TService spawnuje novi thread i u kontekstu tog threada se izvršava OnExecute, kada se završi taj thread i TService završava. Taj korišćeni thread je standardni TThread naslednik i on se automatski završava po okončanju Execute procedure što se odmah dešava pošto nema OnExecute handlera.

Spawnovanje novog threada u OnStart bi imalo uticaja na opisani proces samo ako se OnStart nikada ne završi, ali time se blokira čitav servis i on više ne može obradjivati poruke (zapravo moguće je ali to zahteva ručno hakovanja).

TIdTCPServer startuje jedan listener thread i po jedan thread za svaku klijentsku konekciju, on jeste dovoljan za handlovanje klijenata, međutim OnExecute i ProcessRequests u njemu su obavezni.