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:
Code:
procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
Started := true;
WriteLog('*** Load service: ' + DateTimeToStr(now));
end;
procedure TService1.WriteLog(Value: string);
var tf: TextFile;
begin
try
AssignFile(tf, 'c:\program files\moj_servis\webupdate.log');
Append(tf);
Writeln(Value);
finally
Close(tf);
end;
end;
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ć !!!