No OnExecute. Por exemplo, na linha onde eu comentei "Escreva aqui o que o serviço deve fazer", coloque uma chamada auma procedure que insira os dados no banco.
2008/6/6 Jean Barreiros <[EMAIL PROTECTED]>: > Agora me confundir... > Onde deve ir o código que o service irá executar no OnCreate ou OnExecute > do service? > > Jean Barreiros > Programador/Web-Designer > Delphi, C++, PHP, JavaScript > FireBird/InterBase, MySql, SQLServer, PostGree, Oracle > msn: [EMAIL PROTECTED] <jean%40comerciofsa.com.br> > e-mail: [EMAIL PROTECTED] <delphijean%40gmail.com> > > ----- Mensagem original ---- > De: Rafael Marques <[EMAIL PROTECTED]<rafael.matriz%40terra.com.br> > > > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> > Enviadas: Sexta-feira, 6 de Junho de 2008 14:23:25 > Assunto: 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: [EMAIL PROTECTED] os.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 <rafael.matriz@ terra.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: [EMAIL PROTECTED] os.com.br <delphi-br%40yahoog rupos.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.ServiceThrea d.ProcessRequest s(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 <rafael.matriz@ terra.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: [EMAIL PROTECTED] os.com.br <delphi-br%40yahoog rupos.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.ServiceAft erInstall( Sender: TService); > > > var > > > Reg: TRegistry; > > > begin > > > Reg := TRegistry.Create( KEY_READ or KEY_WRITE); > > > try > > > Reg.RootKey := HKEY_LOCAL_MACHINE; > > > if Reg.OpenKey( '\SYSTEM\ CurrentControlSe t\Services\ ' + Name, false) > then > > > begin > > > Reg.WriteString( 'Description' , descricao_do_ servico); > > > Reg.CloseKey; > > > end; > > > finally > > > Reg.Free; > > > end; > > > end; > > > > > > 2008/6/6 Rafael Marques <rafael.matriz@ terra.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: [EMAIL PROTECTED] os.com.br <delphi-br%40yahoog rupos.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 <rafael.matriz@ terra.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] > > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para > armazenamento! > http://br.mail.yahoo.com/ > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas]
