Dienst erstellen mit D2005

[glkgereon]

Hi

Ich konnte kaum glauben, das die Suche nichts gebracht hat :shock:

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:

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:

Zitat von glkgereon

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

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

[glkgereon]

Zitat:

Zitat von Luckie

Zitat:

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:

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:

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:

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?