Sugestão: esqueça o ShowMessage e tente fazer testes com a rotina de
inserção de dados, se possível.
Seu aplicativo não deverá mesmo interagir com o usuário.
2008/6/6 Rafael Marques <[EMAIL PROTECTED]>:
> eu coloquei aq o while conforme me passou no exemplo (e um showmessage
> dentro) , mas o mesmo só aparece qdo paro o serviço la na janela d serviços
> do windows!!! meu processo só é executado qdo eu paro tudo ! rs
>
> o q será q pode ser?!??!
>
> ----- Original Message -----
> From: Rafael Marques
> To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Sent: Friday, June 06, 2008 2:23 PM
> Subject: Re: [delphi-br] Serviço não Inicia
>
> hmmm desculpe-me eu n havia entendido direito o funcionamento do "while not
> Terminated "
>
> agora sim ficou claro
>
> mto obrigado
>
> ----- Original Message -----
> From: Consultores Software
> To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Sent: Friday, June 06, 2008 1:59 PM
> Subject: Re: [delphi-br] Serviço não Inicia
>
> Mas assim mesmo, o Sleep pode servir como timer.
> No exemplo que te mandei, o serviço fica "dormindo" por 1 minuto até
> executar o próximo laço.
> Se você quer executar os passos de hora, basta multiplicar por 60 o
> parâmetro que está sendo passado para o Sleep.
> Eu tb uso esse serviço para envio de dados entre bancos diferentes em
> servidores diferentes. Apenas que, no meu caso, há um horário ( no formato
> hh:mm ) configurado para o processo iniciar, e, a cada minuto, o serviço
> compara a hora corrente com o horário configurado para saber se deve
> executar.
>
> 2008/6/6 Rafael Marques <[EMAIL PROTECTED]<rafael.matriz%40terra.com.br>
> >:
>
> > mas no meu caso terei q usar o Timer, pq d uma em uma hora terei q
> > enviar registros de um BD pra outro local.
> >
> > ----- Original Message -----
> > From: Consultores Software
> > To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br><delphi-br%
> 40yahoogrupos.com.br>
> > Sent: Friday, June 06, 2008 1:19 PM
> > Subject: Re: [delphi-br] Serviço não Inicia
> >
> > No OnExecute, tente fazer algo assim, ao invés de usar Timer :
> >
> > const
> > Segundos = 60;
> > begin
> > while not Terminated do begin
> > Sender.ServiceThread.ProcessRequests(false);
> > // Escreva aqui o que o serviço deve fazer
> >
> > Sleep(Segundos * 1000);
> > end; // while not Terminated
> > Sender.ReportStatus;
> > Para usar o ShowMessage, se não me engano, você deve ir nas propriedades
> do
> > serviço no painel de controle e permitir que ele interaja com a área de
> > trabalho.
> >
> > 2008/6/6 Rafael Marques <[EMAIL PROTECTED]<rafael.matriz%40terra.com.br>
> <rafael.matriz%40terra.com.br>
> > >:
> >
> > > oi!!
> > >
> > > eu fiz o comando abaixo e funcionou blzz, aparece como registrado e
> > > funcionando na lista de servicos, mas o mesmo n funciona
> > >
> > > eu coloquei só pra testar um Timer com showmessage (d 30 em 30
> segundos).
> > > Coloquei pra habilitar o timer no OnExecute. e nada!!! rs
> > >
> > > vc tem ideia do q pode ser?!?!?
> > >
> > > ----- Original Message -----
> > > From: Consultores Software
> > > To: delphi-br@yahoogrupos.com.br
> > > <delphi-br%40yahoogrupos.com.br><delphi-br%
> 40yahoogrupos.com.br><delphi-br%
> > 40yahoogrupos.com.br>
> > > Sent: Friday, June 06, 2008 10:09 AM
> > > Subject: Re: [delphi-br] Serviço não Inicia
> > >
> > > Tente colocar a seguinte procedure no evento AfterInstall :
> (acrescentar
> > > Registry no uses)
> > >
> > > procedure TServico.ServiceAfterInstall(Sender: TService);
> > > var
> > > Reg: TRegistry;
> > > begin
> > > Reg := TRegistry.Create(KEY_READ or KEY_WRITE);
> > > try
> > > Reg.RootKey := HKEY_LOCAL_MACHINE;
> > > if Reg.OpenKey('\SYSTEM\CurrentControlSet\Services\' + Name, false)
> then
> > > begin
> > > Reg.WriteString('Description', descricao_do_servico);
> > > Reg.CloseKey;
> > > end;
> > > finally
> > > Reg.Free;
> > > end;
> > > end;
> > >
> > > 2008/6/6 Rafael Marques <[EMAIL PROTECTED]<rafael.matriz%40terra.com.br>
> <rafael.matriz%40terra.com.br>
> > <rafael.matriz%40terra.com.br>
> > > >:
> > >
> > > > apos eu dar o comando de install nao aparece msg nenhuma, o sinistro
> é
> > q
> > > > em algumas dessas vzs q tentei dar o comando, imediatamente eu dava o
> > > Ctrl +
> > > > Alt + Del pra verificar na lista d processos, aí ele apareceria mas
> > sumia
> > > da
> > > > lista em 1 ou 2 segundos.
> > > >
> > > >
> > > > ----- Original Message -----
> > > > From: Consultores Software
> > > > To: delphi-br@yahoogrupos.com.br
> > > > <delphi-br%40yahoogrupos.com.br><delphi-br%
> 40yahoogrupos.com.br><delphi-br%
> > 40yahoogrupos.com.br><delphi-br%
> > > 40yahoogrupos.com.br>
> > > > Sent: Friday, June 06, 2008 8:35 AM
> > > > Subject: Re: [delphi-br] Serviço não Inicia
> > > >
> > > > Colega, verifique o seguinte:
> > > >
> > > > 1. Após o comando "nome_do_servico /install" deverá aparecer uma
> > mensagem
> > > > dizendo que o serviço foi instalado com sucesso
> > > > 2. Após o passo anterior, vá em Painel de Controle -> Ferramentas
> > > > Administrativas -> Serviços e veja se o serviço está lá. O nome do
> > > > serviço é o mesmo da propriedade DisplayName
> > > > 3. Tente iniciar o serviço. Normalmente, se der erro, o windows
> mostra
> > > uma
> > > > mensagem avisando e gera uma entrada no log de eventos.
> > > >
> > > > 2008/6/6 Rafael Marques <[EMAIL PROTECTED]<rafael.matriz%40terra.com.br>
> <rafael.matriz%40terra.com.br>
> > <rafael.matriz%40terra.com.br>
> > > <rafael.matriz%40terra.com.br>
> > > > >:
> > > >
> > > > > Bom Dia
> > > > >
> > > > > estou tentando desenvolver aq um programa, q funcionará como um
> > serviço
> > > > no
> > > > > windows, para pegar dados d um BD. O mesmo não terá forms.
> > > > >
> > > > > meu problema é o seguinte: este serviço não está iniciando no
> > windows.
> > > > > Mesmo eu dando o comando "c:\xxxxx.exe /install", Eu vou ver e n
> tem
> > > nada
> > > > > iniciado. No delphi eu pedi Service Application para desenvolver.
> > > > >
> > > > > alguem sabe o pq ????
> > > > >
> > > > > mto obrigado
> > > > >
> > > > > Rafael
> > > > >
> > > > > [As partes desta mensagem que não continham texto foram removidas]
> > > > >
> > > > >
> > > > >
> > > >
> > > > [As partes desta mensagem que não continham texto foram removidas]
> > > >
> > > > ----------------------------------------------------------
> > > > Esta mensagem foi verificada pelo E-mail Protegido Terra.
> > > > Atualizado em 05/06/2008
> > > >
> > > > [As partes desta mensagem que não continham texto foram removidas]
> > > >
> > > >
> > > >
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > > ----------------------------------------------------------
> > > Esta mensagem foi verificada pelo E-mail Protegido Terra.
> > > Atualizado em 06/06/2008
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> > ----------------------------------------------------------
> > Esta mensagem foi verificada pelo E-mail Protegido Terra.
> > Atualizado em 06/06/2008
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> ----------------------------------------------------------
> Esta mensagem foi verificada pelo E-mail Protegido Terra.
> Atualizado em 06/06/2008
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> ----------------------------------------------------------
> Esta mensagem foi verificada pelo E-mail Protegido Terra.
> Atualizado em 06/06/2008
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
