AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Service debuggen

Offene Frage von "EagleData"
Ein Thema von EagleData · begonnen am 21. Jul 2005 · letzter Beitrag vom 22. Jul 2005
Antwort Antwort
Seite 2 von 3     12 3   
EagleData

Registriert seit: 16. Mai 2003
Ort: Leipzig
20 Beiträge
 
Delphi 5 Enterprise
 
#11

Re: Service debuggen

  Alt 21. Jul 2005, 13:44
also ich hab den Dienst gerade mal manuell gestartet, der ladebalken ging ungefähr bis zur hälft sehr schnell, dann wurde er ewig langsam und hat bestimmt 2-3 minuten bis zum ende gebraucht. dann kam eine Fehlermeldung:

Der Dienst ... konnte nicht gestartet werden.

Fehler 1053: Der Dienst antwortete nicht rechtzeitig auf die Start- oder Steuerungsanforderung.
  Mit Zitat antworten Zitat
Olli
(Gast)

n/a Beiträge
 
#12

Re: Service debuggen

  Alt 21. Jul 2005, 13:46
Zitat von EagleData:
Also ich hab das im Moment auf W2K SP4. Soll später mal auf Windows Server laufen. Mit CMDasSYS konnt ich den Dienst killen. Danke schonmal dafür.
Keine Ursache, dafür hatte ich es ja geschrieben

Die Installationsroutine ist's IMO schonmal nicht. Und bei der anderen Sache muß ich genauer hingucken, gib mir etwas Zeit.
  Mit Zitat antworten Zitat
Olli
(Gast)

n/a Beiträge
 
#13

Re: Service debuggen

  Alt 21. Jul 2005, 13:49
Zitat von EagleData:
Fehler 1053: Der Dienst antwortete nicht rechtzeitig auf die Start- oder Steuerungsanforderung.
Holla, das ist eine gute Fehlerbeschreibung. Nach meiner Erfahrung passiert dies in 2 Fällen:
a.) der WaitHint ist falsch eingestellt (das wird alles vor dir gekapselt und ich habe keine D5 Ent)
b.) deine Servicefunktion ist falsch

Beides kann auch wechselseitig wirken, aber auf jeden Fall klingt es erstmal nach diesem Problem. Gib mir, wie gesagt, etwas Zeit.
  Mit Zitat antworten Zitat
EagleData

Registriert seit: 16. Mai 2003
Ort: Leipzig
20 Beiträge
 
Delphi 5 Enterprise
 
#14

Re: Service debuggen

  Alt 21. Jul 2005, 13:52
jo klar kein problem. meld dich einfach wenn du was findest. wenn du noch was brauchst, sag bescheid.
  Mit Zitat antworten Zitat
EagleData

Registriert seit: 16. Mai 2003
Ort: Leipzig
20 Beiträge
 
Delphi 5 Enterprise
 
#15

Re: Service debuggen

  Alt 21. Jul 2005, 14:13
also ich hab eben mal probiert einen neuen Dienst zu erstellen mit dem folgenden Quelltext:

Delphi-Quellcode:
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;

type
  TService2 = class(TService)
    procedure ServiceStart(Sender: TService; var Started: Boolean);
  private
  txt_logfile: textFile;
    { Private-Deklarationen }
  public
    function GetServiceController: TServiceController; override;
    { Public-Deklarationen }
  end;

var
  Service2: TService2;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service2.Controller(CtrlCode);
end;

function TService2.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TService2.ServiceStart(Sender: TService; var Started: Boolean);
begin
try
   AssignFile(txt_logfile, 'sensor.log');
   Append(txt_logfile);
   DateSeparator:='/';
   Writeln(txt_logfile, FormatDateTime('yyyy/mm/dd hh:nn:ss',Now));
   Flush(txt_logfile);
   CloseFile(txt_logfile);
except
end;
end;

end.
Und es tritt das gleiche Problem auf. Kann man mit Diensten überhaupt auf Dateien zugreifen?

Ich schein irgendwie ein allgemeines problem zu haben, selbst wenn ich in den Dienst keinen eigenen Quelltext schreibe kommt der Fehler.
  Mit Zitat antworten Zitat
Olli
(Gast)

n/a Beiträge
 
#16

Re: Service debuggen

  Alt 21. Jul 2005, 14:22
Zitat von EagleData:
Und es tritt das gleiche Problem auf. Kann man mit Diensten überhaupt auf Dateien zugreifen?
Logo kann man

Leider kann ich dir wohl kaum weiterhelfen, da ich die Implementation von TService nicht kenne. Aber dennoch. Wenn ServiceStart (siehe dein Code) dem ServiceMain der Win32-API entspricht, machst du etwas grundlegend falsch. In diesem Fall müßte dort eine Schleife stehen, die erst dann abgebrochen wird, wenn der Service gestoppt wird.

Folgende Status-Varianten existieren (ich mache es mal einfach):

1. Gestoppt
2. Gestartet
3. Pausiert
4. Fortgesetzt

1 bedeutet, daß kein Prozess existiert ... um nach 2 zu kommen, wird also ein neuer Prozess gestartet. Du hast also keinen Status der vorigen Instanz (es sei denn du speicherst den ab). Zwischen 3 und 4 kann beliebig hin- und hergeschalten werden, insofern der Service dies unterstützt.
Von 2 auf 1 bedeutet wieder, daß ein Statusverlust eintritt ... und es geht von vorne los.

Vielleicht könnte ich dir helfen, wenn du mir mal den Code der Unit (mit TService) per PN oder so zuschickst, bin aber nicht sicher.
  Mit Zitat antworten Zitat
Olli
(Gast)

n/a Beiträge
 
#17

Re: Service debuggen

  Alt 21. Jul 2005, 14:42
Kannst du bitte mal

Delphi-Quellcode:
procedure TService2.ServiceStart(Sender: TService; var Started: Boolean);
begin
while(Started)do
try
   AssignFile(txt_logfile, 'sensor.log');
   Append(txt_logfile);
   DateSeparator:='/';
   Writeln(txt_logfile, FormatDateTime('yyyy/mm/dd hh:nn:ss',Now));
   Flush(txt_logfile);
   CloseFile(txt_logfile);
except
end;
end;
...probieren. Wenn ich richtig lag mit meiner obigen Vermutung, sollte es danach funktionieren. Allerdings fehlt mir noch der Überblick wo der Control-Handler ist.

Edit: ein "end;" fehlte
  Mit Zitat antworten Zitat
EagleData

Registriert seit: 16. Mai 2003
Ort: Leipzig
20 Beiträge
 
Delphi 5 Enterprise
 
#18

Re: Service debuggen

  Alt 21. Jul 2005, 15:40
irgendwie funktioniert gar nix. selbst mit den einfachsten Dingen bekomm ich keinen Dienst hin. Kennst du irgendein Tutorial oder kannst du mir schnell einen zusammenbasteln der funktioniert?

Danke
  Mit Zitat antworten Zitat
Olli
(Gast)

n/a Beiträge
 
#19

Re: Service debuggen

  Alt 21. Jul 2005, 15:45
Zitat von EagleData:
irgendwie funktioniert gar nix. selbst mit den einfachsten Dingen bekomm ich keinen Dienst hin. Kennst du irgendein Tutorial oder kannst du mir schnell einen zusammenbasteln der funktioniert?
LOL, du bist gut. Ja, ich habe vor Jahren ein Service-Tut geschrieben, das dringend einer Überarbeitung bedürfte, aber das wird dir wenig helfen, da mein Tutorial direkt auf die Win32-API-Funktionen aufsetzt. Da ist nix mit TService. ... :-\

index.html + Downloads
  Mit Zitat antworten Zitat
EagleData

Registriert seit: 16. Mai 2003
Ort: Leipzig
20 Beiträge
 
Delphi 5 Enterprise
 
#20

Re: Service debuggen

  Alt 21. Jul 2005, 22:42
Mist. Bin ich fast der einzige der mal nen Service programmiert?
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:00 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz