Bom...Então..
A service application ate chama, porém tenho um problema que parece
uma certa incompatibilidade entre o TDataBase com TService.
Nas opções do componete TDatabase eu setei as opções:
AliasName = ODBCcfg;
Connected = true;
DatabaseName = db_nome;
LoginPrompt = False;
Params = USER NAME=usernam; PASSWORD=password;
No component se eu coolocar connected como true funciona, se eu seto
no DatabaseName=db_nome, se seto uma query e coloco active como true,
também funciona...
Só que quando compilo o serviço, instalo e inicio...da erro falando
Unknow database. Alias:db_nome.
Alguem sabe se existe alguma incompatibilidade entre os 2??
Ahh, aproveito que se eu criar um pequeno sistema que faça a mma coisa
só que com um form e etc, as configurações funcionam perfeitamente..
Será que tenho que usar ADOconn pra usar serviço e banco de dados?
Obrigado a Todos.
--- Em delphi-br@yahoogrupos.com.br, "Eduardo Alves" <[EMAIL PROTECTED]>
escreveu
>
> 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
