Dienst erstellen mit D2005

**glkgereon**

Hi

Ich konnte kaum glauben, das die Suche nichts gebracht hat

Also:
Wie kann ich möglichst einfach mit Delphi 2005 Personal einen Dienst erstellen und registrieren?

**SirThornberry**

in D2005 personal ist das nicht "einfach" möglich. Bei den höheren Versionen gibt es bei neu den Punkt "Service Application". Da dieser in der Personal nicht vorhanden ist musst du dir den dienst zu fuß programmieren. Es reicht also wenn du allgemein danach suchst wie man mit Delphi einen Dienst programmiert da du den Quelltext selbst von Grundauf tippen musst. Wenn ich bei meinem Delphi2005 "SvcMgr" in die Uses aufnehme kann dies jedoch nicht aufgelöst werden (dcu-fehlt vermutlich) und somit kann ich auch nicht so einfach den Service programmieren (in der Unit ist bei Delphi7 Enterprice die Klasse TService)

**Luckie**

Hier gibt es ein Service Tutorial von Olli.

**glkgereon**

Zitat von SirThornberry:

in D2005 personal ist das nicht "einfach" möglich. Bei den höheren Versionen gibt es bei neu den Punkt "Service Application". Da dieser in der Personal nicht vorhanden ist musst du dir den dienst zu fuß programmieren. Es reicht also wenn du allgemein danach suchst wie man mit Delphi einen Dienst programmiert da du den Quelltext selbst von Grundauf tippen musst. Wenn ich bei meinem Delphi2005 "SvcMgr" in die Uses aufnehme kann dies jedoch nicht aufgelöst werden (dcu-fehlt vermutlich) und somit kann ich auch nicht so einfach den Service programmieren (in der Unit ist bei Delphi7 Enterprice die Klasse TService)

Ok...an die SvcMgr komm ich dran...

und dann?

afaik leite ich dann eine Klasse von TService ab...oder?
und wie registriere ich den dann?

**Luckie**

Zitat von glkgereon:

Ok...an die SvcMgr komm ich dran...

Und wie, wenn sie bei der Personal nicht dabei ist?

**glkgereon**

Zitat von Luckie:

Zitat von glkgereon:

Ok...an die SvcMgr komm ich dran...

Und wie, wenn sie bei der Personal nicht dabei ist?

Ich hab noch ne Delphi 7 Prof oder Enterprise (weiss ich nicht mehr genau...nutze nur noch D2005...)

**SirThornberry**

Wenn du Delphi7 Enterprice noch hast dann erstelle einfach damit den Service
(File->New->Other->Service Application) und übernehme den Quelltext zur weiteren Bearbeitung nach Delphi2005.

Projektdatei:

zusammenfalten · markieren

Delphi-Quellcode:

			program Project1;

uses

  SvcMgr,

  Unit1 in 'Unit1.pas' {Service1: TService};

{$R *.RES}

begin

  Application.Initialize;

  Application.CreateForm(TService1, Service1);

  Application.Run;

end.

Unit1:

zusammenfalten · markieren

Delphi-Quellcode:

			unit Unit1;

interface

uses

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

type

  TService1 = class(TService)

  private

    { Private declarations }

  public

    function GetServiceController: TServiceController; override;

    { Public declarations }

  end;

var

  Service1: TService1;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;

begin

  Service1.Controller(CtrlCode);

end;

function TService1.GetServiceController: TServiceController;

begin

  Result := ServiceController;

end;

end.

**glkgereon**

Zitat von SirThornberry:

Wenn du Delphi7 Enterprice noch hast dann erstelle einfach damit den Service
(File->New->Other->Service Application) und übernehme den Quelltext zur weiteren Bearbeitung nach Delphi2005.

Ginge.
Leider habe ich Delphi7 z.Z. nicht installiert. Ich habe nur noch die Dateien auf der Platte...

Also mit diesem Code von dir würde der Dienst erstellt und eingetragen?

Dienst erstellen mit D2005

Dienst erstellen mit D2005

Re: Dienst erstellen mit D2005

Re: Dienst erstellen mit D2005

Re: Dienst erstellen mit D2005

Re: Dienst erstellen mit D2005

Re: Dienst erstellen mit D2005

Re: Dienst erstellen mit D2005

Re: Dienst erstellen mit D2005

Forumregeln

glkgereon Registriert seit: 16. Mär 2004 2.287 Beiträge	#1 Dienst erstellen mit D2005 7. Dez 2005, 18:56 Hi Ich konnte kaum glauben, das die Suche nichts gebracht hat Also: Wie kann ich möglichst einfach mit Delphi 2005 Personal einen Dienst erstellen und registrieren? »Unlösbare Probleme sind in der Regel schwierig...«
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#3 Re: Dienst erstellen mit D2005 7. Dez 2005, 20:40 Hier gibt es ein Service Tutorial von Olli. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#5 Re: Dienst erstellen mit D2005 7. Dez 2005, 21:07 Zitat von glkgereon: Ok...an die SvcMgr komm ich dran... Und wie, wenn sie bei der Personal nicht dabei ist? Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

glkgereon Registriert seit: 16. Mär 2004 2.287 Beiträge	#6 Re: Dienst erstellen mit D2005 7. Dez 2005, 22:03 Zitat von Luckie: Zitat von glkgereon: Ok...an die SvcMgr komm ich dran... Und wie, wenn sie bei der Personal nicht dabei ist? Ich hab noch ne Delphi 7 Prof oder Enterprise (weiss ich nicht mehr genau...nutze nur noch D2005...) »Unlösbare Probleme sind in der Regel schwierig...«
	Zitat