 |
|
Você está aqui: Delphi ::: Dicas & Truques ::: Serviços (Service Applications) |
||
Como criar um serviço (Service applications) usando DelphiQuantidade de visualizações: 25895 vezes |
||
|
Serviços ou aplicações de serviços ou ainda serviços do Windows (Service applications) são aplicações que são executadas nos bastidores, sem interface gráfica (GUI - Graphical User Interface) e geralmente não recebem entrada do usuário. Aplicações deste tipo são automaticamente iniciadas juntamente com o Windows e podem ser pausadas, paradas ou reiniciadas. Para ver uma lista de serviços do Windows e o status de cada um basta acessar Painel de Controle -> Ferramentas administrativas -> Serviços. Mas, antes de iniciarmos, qual o propósito de um serviço do Windows? Este tipo de aplicação é projetado para funcionar durante todo o tempo em que o Windows estiver ativo, talvez monitorando recursos, verificando status de servidores ou aplicações, acessando contas de e-mail, baixando arquivos, atualizando aplicações, etc. Então, vamos criar nossa primeira aplicação serviço. Siga atentamente os passos abaixo: 1) Vá em File -> New -> Other. Marque Delphi Project e selecione Service Application. Clique OK. O Delphi criará uma unit juntamente com o projeto. Salve o projeto com o nome de "ACServico.dproj" e a unit com o nome de "ACServicoUnit.pas". Note que a unit contém um "formuláriozinho" (veja isso pressionando a tecla F12) que herda de TService e serve para arrastarmos e colocarmos nele os controles não visuais que nosso serviço conterá. 2) Chegou a hora de dar um nome para o serviço. Para isso clique no formulário e acesse sua propriedade Name. É importante ter muita atenção na escolha do valor para esta propriedade, já que tal valor será usado na criação de uma chave no registro do Windows sob HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services. Não use espaços ou caracteres especiais e escolha um nome que terá poucas chances de outra pessoa ou empresa criar um igual (se houver conflito de nomes de serviços em seu PC o Windows poderá evitar a execução de ambos). Para esta demonstração vamos dar o nome de "ac_servico_update". 3) Vamos agora definir um valor para a propriedade DisplayName. Aqui nós podemos usar um nome mais amigável, contendo espaços e caracteres especiais. O valor desta propriedade aparecerá na lista de serviços em Painel de Controle -> Ferramentas administrativas -> Serviços. Para este exemplo vamos definir o valor "AC Serviços Update" para a propriedade DisplayName. 4) Pronto! Pode parecer simples mas já temos nosso primeiro serviço. Apenas revise o código do projeto ACServico.dproj e veja se está bem parecido ao que temos abaixo:
Agora revise o código da unit ACServicoUnit.pas e veja se está parecido com:
5) Hora de compilar o projeto e instalar o serviço. Vá em Project -> Build ACServico. Vá no diretório no qual você salvou o projeto e terá um arquivo chamado ACServico.exe. Agora vamos instalar o serviço. Abra uma janela de terminal e navegue até o diretório no qual o serviço foi salvo: C:\Documents and Settings\Osmar>cd C:\estudos_delphi\servicos Agora dispare o seguinte comando: C:\estudos_delphi\servicos>ACServico.exe /install Se o serviço for instalado com sucesso você verá a mensagem "Service installed successfully". Agora vá em Painel de Controle -> Ferramentas administrativas -> Serviços e veja se o serviço já está na lista de serviços e qual seu status. Para desinstalar o serviço basta disparar: C:\estudos_delphi\servicos>ACServico.exe /uninstall Se o serviço for desinstalado com sucesso teremos a mensagem "Service uninstalled successfully". Mas, temos agora um serviço que pode ser instalado, iniciado, parado, reiniciado, desinstalado mas que não faz nada de útil. Basta ver minhas outras dicas sobre o assunto para saber como implementar a funcionalidade que você deseja. Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009. |
||
 Link para compartilhar na Internet ou com seus amigos: |
||
Desafios, Exercícios e Algoritmos Resolvidos de Delphi |
Veja mais Dicas e truques de Delphi |
Dicas e truques de outras linguagens |
|
Java - Como calcular o coeficiente angular de uma reta em Java dados dois pontos no plano cartesiano MySQL - Como excluir a chave primária de uma tabela MySQL usando o comando ALTER TABLE DROP PRIMARY KEY AutoCAD Civil 3D - Como criar pontos COGO no AutoCAD Civil 3D |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |
