Carregando um Form em um Windows Service

Ol� Pessoal, no artigo Criando um Windows Service eu mostrei como criar um windows service passo a passo. Agora veremos como carregar um form dentro desse serviço.

Talvez voc� esteja se perguntando para que carregar um formul�rio dentro de um serviço windows. Bem! A resposta � simples. Se voc� por exemplo criou um serviço para replicar dados entre banco de dados. Os bancos origem e destino talvez estejam configurados dentro de um arquivo INI. Mas ai voc� gostaria que na inicializaç�o do serviço essa parametrizaç�o fosse feita. Ent�o! Para resolver esse problema vamos checar quais alteraç�es ser�o necess�rias. Pois no exemplo abaixo criaremos um formul�rio para o usu�rio fazer o login. Se a senha for diferente de 1234 ent�o serviço n�o ser� executado.

1) Primeiro certifique-se que as propriedades AllowPause, AllowStop e Interactive estejam marcadas como true

2) Crie uma vari�vel no escopo Private chamada FLogado para sabermos se o usu�rio esta logado no serviço. Veja o c�digo da classe do meu serviço logo abaixo:

   TService3 = class(TService)
    procedure ServiceStart(Sender: TService; var Started: Boolean);
    procedure ServiceExecute(Sender: TService);
  private
    { Private declarations }
    FLogado: Boolean;
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

3) Implemente o Evento OnExecute com o c�digo abaixo:

procedure TService3.ServiceExecute(Sender: TService);
begin
  // o servico so executara se a aplicaç�o n�o terminou e se o usu�rio est� logado
  while (not self.Terminated) and (FLogado) do
    ServiceThread.ProcessRequests(true);

  // se o cara n�o est� logado, muda o status do servico para STOP
  if not FLogado then
    Self.Status := csStopped;  
end;

4) No evento OnExecute vamos criar o nosso formul�rio MODAL com o c�digo abaixo:

procedure TService3.ServiceStart(Sender: TService; var Started: Boolean);
begin
  Application.CreateForm(TForm1, Form1);
  try
    // a variavel esta sendo atualizada apos o fechamento do form
    FLogado := Form1.ShowModal = mrOk;
  finally
    Form1.Free;
  end;
end;

5) Agora vamos verificar como o meu formul�rio "SIMPLES" de login est� feito. Atenç�o! Ele est� com essa apar�ncia ruim s� para ilustraç�o do nosso exemplo. N�o perdi tempo com detalhes! hehehehe!

6) No evento OnClick implemente o c�digo abaixo.

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text <> '1234' then
    exit;

  ModalResult := mrOK;
end;

7) Agora vamos testar o nosso serviço:

a) abra o prompt de comando e digite:

Ap�s compilar o projeto, eu copie o arquivo Project1.exe para dentro do c:\ para que a linha de comando ficasse o mais simples poss�vel. Ap�s a execuç�o do comando voc� receber� uma msg Service Instaled.

b) No painel de controle, ferramentas administrativas execute o aplicativo SERVICOS. Localize o seu serviço dentro da lista de serviços instalados, selecione-o e em seguida clique em Start.

Observe na figura que a barra de instalaç�o do serviço ao chegar numa posiç�o X ele fica parada aguardando o fechamento do formul�rio de par�metros que foi criado (FORM MODAL). Se o usu�rio n�o informar a senha correta "1234" ent�o ap�s ele fechar a janela o resultado da property ModalResult ser� diferente de mrOK. Ent�o o serviço n�o conseguir� ser INICIADO e a seguinte msg ser� exibida.

Carregando um Form em um Windows Service

Nesse artigo irei mostrar como carregar um form dentro de um windows service. Esse recurso poderá ser útil se vc deseja parametrizar o seu serviço usando uma interface gráfica.

Artigos relacionados