Service debuggen

[EagleData]

Hallo ich bin gerade dabei einen Service zu programmieren. ich hab auch ein kleines Programm zur Steuerung (starten, stoppen, ...) geschrieben. Doch wenn ich den Dienst starte steht in der ServiceListe nur "Wird gestartet..." mehr passiert nich.

Hat jemand ne Idee wie ich einen Service debuggen kann? Bzw. wie kann ich den "Wird gestartet"-Dienst abbrechen?

[HERMES]

start->Mit prozess verbinden-> [prozess deines services auswählen]
und debugen

[EagleData]

unter Start gibts bei mir kein "Mit Prozess verbinden".

[HERMES]

im delphi menu, gibt es einen menupunkt, der start heisst...

[EagleData]

ich weiss, den meinte ich ja auch, da steht aber nix mit prozess

[Olli]

Dein Service macht doch sicher irgendwas in seiner Hauptfunktion, eine Variante wäre, diese Hauptfunktion direkt von begin end. aus aufzurufen. Das geht nur im Fall, daß dein Service tatsächlich nicht SYSTEM-Rechte braucht.

Ansonsten klingt dein Fehler danach, daß du die Übergabe des Prozesses an den SCM falsch machst. Ohne Code wird dir dabei niemand hier weiterhelfen können. Mutmaßungen sind einfach nicht die beste Basis für eine effektive Hilfe.

Edit: :wall: Schlechtschreibfäler ...

[EagleData]

also ich hab den service vom quelltext her so eingeschränkt, dass er nur noch eine log-datei füllt. dazu hab ich einen timer drauf der folgende funktion aufruft:

Delphi-Quellcode:

WriteLogFile('lol');

Hier die Funktion dazu:

Delphi-Quellcode:

procedure TService1.WriteLogFile(text: string);
begin
try
   AssignFile(txt_logfile, 'sensor.log');
   Append(txt_logfile);
   DateSeparator:='/';
   Writeln(txt_logfile, FormatDateTime('yyyy/mm/dd hh:nn:ss',Now) + text);
   Flush(txt_logfile);
   CloseFile(txt_logfile);
except
end;
end;

so und hier mal der komplette Quelltext:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
  JvSimpleXml, JvComponent, JvThread, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, ExtCtrls, StdCtrls;

type
  TService1 = class(TService)
    Timer1: TTimer;
    IdHTTP1: TIdHTTP;
    JvThread1: TJvThread;
    JvXML: TJvSimpleXML;
    procedure get_xml();
    procedure WriteLogFile(text: string);
    procedure Timer1Timer(Sender: TObject);
    procedure JvThread1Execute(Sender: TObject; Params: Pointer);
  private
    { Private-Deklarationen }
  public
    txt_logfile: textFile;
    function GetServiceController: TServiceController; override;
    { Public-Deklarationen }
  end;

var
  Service1: TService1;
  temp1,temp2,luft:real;
  watch:boolean;

implementation

{$R *.DFM}

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

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

procedure TService1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=false;
//JvThread1.ThreadDialog := Nil;
//JvThread1.Execute(Self);
WriteLogFile('lol');
Timer1.Enabled:=true;
end;

procedure TService1.JvThread1Execute(Sender: TObject; Params: Pointer);
var       old,new:string;
begin
{
old:='.';
new:=',';

get_xml();

temp1:=StrToFloat(StringReplace(FloatToStr(temp1),old,new,[rfReplaceAll]));
temp2:=StrToFloat(StringReplace(FloatToStr(temp2),old,new,[rfReplaceAll]));
luft:=StrToFloat(StringReplace(FloatToStr(luft),old,new,[rfReplaceAll]));

WriteLogFile(';' + FloatToStr(temp1) + ';' + FloatToStr(temp2) + ';' + FloatToStr(luft));
}

end;

//##########################################
//#                                        #
//#  Procedure zum auslesen der XML-Daten  #
//#                                        #
//##########################################

procedure TService1.get_xml();
var       dateiname,old,new:string;
          memo:TStringList;
begin
dateiname:='http://217.69.240.151/xml';
try
   memo.Create;
   memo.Text:=IdHTTP1.Get(dateiname);
   JvXML.LoadFromString(memo.Text);
   memo.Free;
   old:='.';
   new:=',';

   luft:=StrToFloat(StringReplace(JvXML.Root.Items[0].Items.Value('t1'),old,new,[rfReplaceAll]));
   temp1:=StrToFloat(StringReplace(JvXML.Root.Items[0].Items.Value('t0'),old,new,[rfReplaceAll]));
   temp2:=StrToFloat(StringReplace(JvXML.Root.Items[0].Items.Value('t2'),old,new,[rfReplaceAll]));

except
      // Fehlerbehandlung
end;

end;

//##########################################
//#                                        #
//#    Procedure zum Speichern der Daten   #
//#    in Log-File                         #
//#                                        #
//##########################################

procedure TService1.WriteLogFile(text: string);
begin
try
   AssignFile(txt_logfile, 'sensor.log');
   Append(txt_logfile);
   DateSeparator:='/';
   Writeln(txt_logfile, FormatDateTime('yyyy/mm/dd hh:nn:ss',Now) + text);
   Flush(txt_logfile);
   CloseFile(txt_logfile);
except
end;
end;

end.

Das Programm soll Sensordaten überwachen und erstmal nur eine LogDatei füllen. Ich hab den Code vorher als normales programm gehabt, da hat alles funktioniert. Ich brauchs nur jetzt als Dienst.

Der Dienst steht nun immernoch bei "Wird gestartet". Die exe kann ich über den Taskmanager auch nich beenden. Wie brech ich den ab?

[Olli]

Zitat:

Zitat von EagleData

Der Dienst steht nun immernoch bei "Wird gestartet". Die exe kann ich über den Taskmanager auch nich beenden. Wie brech ich den ab?

Der Process Explorer sollte das packen, ansonsten nimmste CMDasSYS und startest von der Kommandozeile TaskMgr mit SYSTEM-Rechten. Achtung: keine Garantien was passiert. Der Service ist in einem Übergangsstadium. Mit laufenden Services habe ich das schon gemacht, nicht aber mit solchen ...

Noch eine Frage: Von welchem OS reden wir? Du läufst als Admin? Welches SP?

[EagleData]

ich versuchs mal ob ich den gekillt bekomme.

hier noch der Code mit dem ich den Dienst installiere:

Delphi-Quellcode:

procedure InstallService(ServiceName, DisplayName: PChar; FileName: String);
var
  SCManager: SC_HANDLE;
  Service: SC_HANDLE;
begin
  SCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
  if SCManager = 0 then Exit;
  try
    Service := CreateService(SCManager, ServiceName, DisplayName, SERVICE_ALL_ACCESS, SERVICE_WIN32_OWN_PROCESS, SERVICE_AUTO_START, SERVICE_ERROR_IGNORE, pchar(FileName), nil, nil, nil, nil, nil);
    CloseServiceHandle(Service);
    ShowMessage('Service erfolgreich installiert.');
  finally
    CloseServiceHandle(SCManager);
  end;
end;

[EagleData]

Zitat:

Zitat von Olli

ansonsten nimmste CMDasSYS und startest von der Kommandozeile TaskMgr mit SYSTEM-Rechten

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.