Criando um Windows Service

Para começar abra o delphi e clique em File | New | Project | Marque a opção Delphi Project | Clique em Service Application conforme mostra a figura abaixo:

Salve tudo. Mude o nome da Unit para Principal e o nome do Projeto para MySerivce. Sua aplicação deverá ficar de acordo com a figura abaixo

Entendendo as propriedades e eventos

Após criar o seu serviço as propriedades AllowPausee AllowStop estarão marcadas como True. Issoacontece quando você deseja permitir quea sua aplicação possa ser Pausada ouInterrompida (Parada)por um usuário que tem acesso ao Gerenciador de Serviços do Windows em Painel de Controle | Ferramentas | Serviços.

Você também tem uma propriedade chamada Dependencies que é uma coleção de outros serviços. Isso acontece porque você pode precisar criar um serviço que dependa da execução de outro que deverá estar rodando. POr exemplo: Eu posso criar um serviço que para ter êxito durante a sua execução eu precise garantir que o serviço de chamadas remotas esteja em execução. Veja como eu faço isso na figura abaixo

A propriedade DisplayName contém o nome do serviço como aparecerá no Gerenciar de Serviços após sua execução. Se você precisa que o seu serviço seja executado com credencias de um usuário que tem privlégios especiais você deverá informar o contéudo das propriedades ServiceStartName (nome do usuário) e Password (sua senha).

Quanto a especificação dos Eventos já são bem descritivos. O próprio nome descreve a sua funcionalidade. Para entendermos como eles funcionam vamos criar uma procedure em nosso serviço que irá preencher um log sempre que um dos eventos for disparado.

Codificando

Mude o nome das propriedades DisplayNamee Name para MyService e srvPrincipal respectivamente. Agora escreva o código abaixo:

Agora que criamos a nossa rotina para gerar o log vamos utilizá-la em cada evento da nossa aplicação. Aqui vai a dica de ouro meus amigos. Quando o evento OnExecute termina a sua execução a Theread que gerencia o serviço termina. Então você precisa implementar um artifício para ficar chamando o método ProcessRequest até que sua aplicação seja definitavemte interrompida pelo usuário. Se você não implementar o código abaixo no Evento OnExecute do seu serviço ele não terá qualquer funcionalidade.

while not self.Terminated do    ServiceThread.ProcessRequests(true);   
procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  srvPrincipal.Controller(CtrlCode);
end;   function TsrvPrincipal.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;   procedure TsrvPrincipal.ServiceAfterInstall(Sender: TService);
begin
  doSaveLog('ServiceAfterInstall');
end;   procedure TsrvPrincipal.ServiceAfterUninstall(Sender: TService);
begin
  doSaveLog('ServiceAfterUninstall');
end;   procedure TsrvPrincipal.ServiceBeforeInstall(Sender: TService);
begin
  doSaveLog('ServiceBeforeInstall');
end;   procedure TsrvPrincipal.ServiceBeforeUninstall(Sender: TService);
begin
  doSaveLog('ServiceBeforeUninstall');
end;   procedure TsrvPrincipal.ServiceContinue(Sender: TService;
  var Continued: Boolean);
begin
  doSaveLog('ServiceContinue');
end;   procedure TsrvPrincipal.ServiceCreate(Sender: TObject);
begin
  doSaveLog('ServiceCreate');
end;   procedure TsrvPrincipal.ServiceDestroy(Sender: TObject);
begin
  doSaveLog('ServiceDestroy');
end;   procedure TsrvPrincipal.ServiceExecute(Sender: TService);
begin
  doSaveLog('ServiceExecute');   while not self.Terminated do
    ServiceThread.ProcessRequests(true);
end;   procedure TsrvPrincipal.ServicePause(Sender: TService; var Paused: Boolean);
begin
  doSaveLog('ServicePause');
end;   procedure TsrvPrincipal.ServiceShutdown(Sender: TService);
begin
  doSaveLog('ServiceShutdown');
end;   procedure TsrvPrincipal.ServiceStart(Sender: TService; var Started: Boolean);
begin
  doSaveLog('ServiceStart');
end;   procedure TsrvPrincipal.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
  doSaveLog('ServiceStop');
end;

Instalando o Serviço

Diferente de nossas aplicações Win32 que só é necessário Instalar o BDE, copiar EXE, ou dlls do DBExpress. Quando falamos de serviço temos que instalá-lo por meio de linhas de comando. Façamos assim: Compile o seu serviço e copie o executável para dentro da pasta c:\windows | abra o prompt de comando e digite a linha abaixo:

Para desinstalar o serviço basta executar a linha de comando: MyService /uninstall

Executando o Serviço e tetando o Log

Agora que criamos e instalamos vamos verificar se ele está funcionando corretamente. Em painel de contorle | ferramentas | serviços | você deverá encontrar um serviço na relação do gerenciador.

Agora você pode executar, parar, pausar e reinicar e verificar as informações no log que foi gerado dentro do caminho c:\log.log.

Veja como ficou o meu log depois de executar os comandos:

log.log
10:03:40:ServiceCreate
10:03:40:ServiceStart
10:03:40:ServiceExecute
10:03:43:ServicePause
10:03:46:ServiceStop
10:03:46:ServiceDestroy
10:03:49:ServiceCreate
10:03:49:ServiceStart
10:03:49:ServiceExecute
10:03:51:ServiceStop
10:03:51:ServiceDestroy
10:03:52:ServiceCreate
10:03:52:ServiceStart
10:03:52:ServiceExecute

No próximo artigo vamos criar um serviço com uma janela de parametrização para pedir o usuário, senha e o site que contém a cotação do Dolar e o caminho da nossa base de dados. Então a cada 5,10,15,20 ou sei quantos minutos ele irá atualizar a nossa base de dados caso a cotação tenha sofrido algma alteração.

Criei umnovo artigo mostrando como trabalhar com Form sem uma Aplicação Windows Service