[delphi-br] Application Service + Não Funciona + Como debugar.
Bom dia pessoal.. Estou com um problema e não sei o que o causa.. Estou criando uma Application Service. Esse application service roda no On ServiceExecute (não criando threads). onde o SerciceExecute faz o seguinte: procedure TService1.ServiceExecute(Sender: TService); begin timer.enabled := true; while not Terminated do begin ServiceThread.ProcessRequests(true); end; timer.enabled := False; ServiceThread.ProcessRequests(false); end; Porem no momento do OnTimer. ele não executa as queries e etc que seria necessário efetuar. Então tentei. procedure TService1.ServiceExecute(Sender: TService); const secs = 5; var count : integer; begin count := 0; while not Terminated do begin inc(count); if (count secs) then begin count := 0; ExecutaPocedure; end; sleep(1000); ServiceThread.ProcessRequests(true); end; end; Porem. também não funcionou (não chamou a ExecutaProcedure), e pior, ele finaliza o serviço depois dos 5 segundos. Minha aplicação faz uma requisição ao banco. e envia SMS de acordo com a requisição. Ahhh..Já que estou na pergunta. Como faço para debugar essa aplicação. Também não consegui. Muito Obrigado a todos.. Gabriel Moricz -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RE: [delphi-br] Application Service + Não Funciona + Como debugar.
Primeiro: O Servico é uma thread, por tanto vc nao precisa de um timer.
Segundo:
while not Terminated do begin
if StrToInt(FormatDateTime('ss', Time)) = 5 then
{
Assim a sua proc sera executada a cada 5 segundos.
Cabe a vc definir isso.
}
Begin
Sleep(1000);
// para não executar duas vezes ou mais dentro do mesmo periodo.
ExecutaPocedure;
end;
ServiceThread.ProcessRequests(true);
end;
Terceiro: Instale (executar não é instalar) o seu servico, assim ele vai
funcionar.
Quarto: Help - TserviceApplication - See also, com este caminho vc aprende a
instalar.
Quinto: Não da para depurar teoricamente, mas com um jeitinho bem brasileiro
dah. No evento Create chame a sua procedure (ExecutaPocedure) coloque um break
point, certifique que o servico não esta iniciado. Compile o prj e depure com
F7.
Eduardo
Ps.: Se precisar estou no MSN [EMAIL PROTECTED]
-Original Message-
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of
Gabriel Moricz
Sent: terça-feira, 14 de fevereiro de 2006 09:26
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Application Service + Não Funciona + Como debugar.
Bom dia pessoal..
Estou com um problema e não sei o que o causa..
Estou criando uma Application Service.
Esse application service roda no On ServiceExecute (não criando
threads). onde o SerciceExecute faz o seguinte:
procedure TService1.ServiceExecute(Sender: TService);
begin
timer.enabled := true;
while not Terminated do begin
ServiceThread.ProcessRequests(true);
end;
timer.enabled := False;
ServiceThread.ProcessRequests(false);
end;
Porem no momento do OnTimer. ele não executa as queries e etc que
seria necessário efetuar.
Então tentei.
procedure TService1.ServiceExecute(Sender: TService);
const secs = 5;
var count : integer;
begin
count := 0;
while not Terminated do begin
inc(count);
if (count secs) then begin
count := 0;
ExecutaPocedure;
end;
sleep(1000);
ServiceThread.ProcessRequests(true);
end;
end;
Porem. também não funcionou (não chamou a ExecutaProcedure), e pior,
ele finaliza o serviço depois dos 5 segundos.
Minha aplicação faz uma requisição ao banco. e envia SMS de acordo com
a requisição.
Ahhh..Já que estou na pergunta. Como faço para debugar essa aplicação.
Também não consegui.
Muito Obrigado a todos..
Gabriel Moricz
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Application Service
Olá... Estou tentando instalar um application service que fiz, só que quando tento fazer a instalação via prompt , não aparece a tela do windows de sucesso quando finalizado, percebo que o serviço não esta instalado também. Não aparece erro nem nada. O estranho é que na minha máquina funciona, mas na do cliente não, alguém sabe o que pode estar acontecendo? Valeu []s [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Application Service
Olá... Estou tentando instalar um application service que fiz, só que quando tento fazer a instalação via prompt , não aparece a tela do windows de sucesso quando finalizado, percebo que o serviço não esta instalado também. Não aparece erro nem nada. O estranho é que na minha máquina funciona, mas na do cliente não, alguém sabe o que pode estar acontecendo? Valeu []s [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
