Forum: Sonstige Fragen zu Delphi
by tekkyeah,
9. Mär 2009
Nein, der Timer ist nicht aktiviert...
Und der einzige ausführbare code sonst steht im timer-Event...
Ansonsten ist das ein nackter Dienst...
Forum: Sonstige Fragen zu Delphi
by tekkyeah,
9. Mär 2009
Leider ist die Auslastung immer noch bei 100 %...
Selbst wenn ich (wie unten angegeben) den Timer nicht "enable"
procedure TmesoCRM_Service.ServiceStart(Sender: TService;
var Started: Boolean);
var
Ini: TIniFile;
begin
Timer1.Enabled := False;
Ini := TIniFile.Create('meine.ini');
Forum: Sonstige Fragen zu Delphi
by tekkyeah,
9. Mär 2009
Ja, stimmt... da hatte ich noch begriffen, dass das nur eine Beispielprozedur ist... :-) Sorry dafür...
Forum: Sonstige Fragen zu Delphi
by tekkyeah,
9. Mär 2009
Es gibt keine Fehlermeldung...
Die einzig noch verbleibende Frage ist, warum die CPU-Last nicht runtergeht...
procedure TMeinService.ServiceExecute(Sender: TService);
begin
while not Sender.Terminated do
begin
ServiceThread.ProcessRequests(False);
end;
Forum: Sonstige Fragen zu Delphi
by tekkyeah,
9. Mär 2009
Gosh... Geile Antwort...
Ich habe mich schon damit befasst, sonst wäre meine Frage ja: Wie mache ich einen Dienst...
und ich dachte es gäbe wirklich etwas oder jemanden, was/der mir da weiterhilft...
Natürlich habe ich das längst in meiner Prozedur "ServiceExecute" drin...
Nur ist die Auslastung trotzdem noch zu hoch...
Habe einen Timer laufen, der jede Minute was tut... das dabei...
Forum: Sonstige Fragen zu Delphi
by tekkyeah,
9. Mär 2009
Mir geht es darum, dass ich die Prozedur "TServiceExecutionRestriction..."nicht einbinden kann....
Vielleicht stelle ich mich ja zu blöd an...
procedure TServiceExecutionRestriction.ServiceExecute(Sender: TService);
Wie binde ich das ein ?
Gruß
Holger