Servicios en Delphi

[fide]

Hola, necesito ayuda acerca de cómo crear un servicio desde delphi.

[[Delphius]]

En forma simple, se crea un servicio de la siguiente forma:

1. Vas a File -> New -> Service

Con esto se armará una unidad que contiene:

Código Delphi [-]
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.

Entonces tu debes programar los eventos que se deba realizar tu servicio. Algo por el estilo:

procedure HazAlgo(Sender: TService);

Tengo entendido que un servicio no tiene un aspecto visual. Por lo que para implementarle "elementos", como por ejemplo un timer. Hay que crearlo por código. Lo curioso es que a mi me aparece una especie de formulario en blanco en donde puedo incorporar elementos (uso Delphi 6).

Más no puedo decirte pues es lo único que se. Nunca me puse a investigar lo de servicios.Ppuedes darle una miradita a la clase TService. Y si tienes más dudas, puedes buscar en estos foros. Se que se ha hablado antes sobre esto.

Espero haberte hechado un dedo por lo menos (porque muy dificil que haya llegado a darte una mano).
Y si he dicho alguna tontería... pues... como dije estoy mas que verde en el tema, me lo dicen.

Saludos,

[fide]

Ok man, voy a probar a ver que pasa. Gracias.

[[Bicho]]

Empezado por Delphius

Tengo entendido que un servicio no tiene un aspecto visual. Por lo que para implementarle "elementos", como por ejemplo un timer. Hay que crearlo por código. Lo curioso es que a mi me aparece una especie de formulario en blanco en donde puedo incorporar elementos (uso Delphi 6).

Pues exactamente ese form en blanco, es un contenedor para que puedas arrastrar y soltar componentes no visuales con son los que puedes usar en un servicio. De ésta manera, no es necesario crearlos por código.

Yo estoy haciendo uno en mi trabajo, y como inicio encontré (buscando en éste foro) éste link (está en inglés, pero está muy bien para empezar).

Espero te sirva.

Saludos

[fide]

Lepe muchas gracias. La verdad es que me los he leído y he quedado satisfecho con esta página.

[[Bicho]]

Empezado por fide

Lepe muchas gracias. La verdad es que me los he leído y he quedado satisfecho con esta página.

¿Lepe? Y Lepe no ha aparecido por aquí, ¿no?

Saludos