Bom dia,
Alguém utiliza ou já desenvolveu algum trabalho para implementar o recurso execução do programa como serviço?
Pergunto, pois ao tentar usar tal recurso, apesar do programa rodar corretamente os comandos falham, como por exemplo a função File(), se alguém já passou por isto ou tem alguma dica para trabalhar com o assunto, agradeço.
Anexo um exemplo do Harbour que fiz algumas alterações, ele executa como serviço, mas não funciona adequadamente nos trechos que comentei sobre a gravação da mensagem "start e stop".
Att
Alexandre
Serviços no Windows com Harbour
Moderador: Moderadores
-
Kapiaba
- Colaborador

- Mensagens: 1908
- Registrado em: 07 Dez 2012 16:14
- Localização: São Paulo
- Contato:
Serviços no Windows com Harbour
Divirta-se:
viewtopic.php?f=4&t=14249
https://github.com/harbour/core/blob/ma ... ervice.prg
https://groups.google.com/forum/#!msg/h ... ZBnvMdB3cJ
https://github.com/harbour/core/blob/ma ... /win_svc.c
http://searchcode.com/codesearch/view/4525490
http://harbour-websocket.googlecode.com ... socket.prg
https://code.google.com/p/harbour-webso ... et.prg?r=5
Uh fivewin.... kkkkkkkkkkkkk
http://fivetechsupport.com/forums/viewt ... 04&start=0
http://www.harbourdoc.com.br/show.asp?s ... ntent&key=
Abs, X:)
viewtopic.php?f=4&t=14249
https://github.com/harbour/core/blob/ma ... ervice.prg
https://groups.google.com/forum/#!msg/h ... ZBnvMdB3cJ
https://github.com/harbour/core/blob/ma ... /win_svc.c
http://searchcode.com/codesearch/view/4525490
http://harbour-websocket.googlecode.com ... socket.prg
https://code.google.com/p/harbour-webso ... et.prg?r=5
Uh fivewin.... kkkkkkkkkkkkk
http://fivetechsupport.com/forums/viewt ... 04&start=0
http://www.harbourdoc.com.br/show.asp?s ... ntent&key=
Abs, X:)
- Itamar M. Lins Jr.
- Administrador

- Mensagens: 7928
- Registrado em: 30 Mai 2007 11:31
- Localização: Ilheus Bahia
- Curtiu: 1 vez
Serviços no Windows com Harbour
Ola!
//Nesta linha
IF FILE( "server.start" ) //Aqui nesta linha use o path completo file("c:\xyz\abcd\server.start")
Você precisa saber onde está sendo executado o sistema só isso, para usar simplesmente file("xyz")
tipo o usuário pode chamar do c:\ o comando c:\meudir\dir2\dir3\meu.exe, vc neste caso precisa ajustar o PATH via leitura de algum arquivo INI tipo.
[DADOS]
DIR = c:\xyz\meusdados\
PS.
Gostei de ver seu exemplo, me deu umas ideias aqui.
Saudações,
Itamar M. Lins Jr.
//Nesta linha
IF FILE( "server.start" ) //Aqui nesta linha use o path completo file("c:\xyz\abcd\server.start")
Você precisa saber onde está sendo executado o sistema só isso, para usar simplesmente file("xyz")
tipo o usuário pode chamar do c:\ o comando c:\meudir\dir2\dir3\meu.exe, vc neste caso precisa ajustar o PATH via leitura de algum arquivo INI tipo.
[DADOS]
DIR = c:\xyz\meusdados\
PS.
Gostei de ver seu exemplo, me deu umas ideias aqui.
Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
Itamar M. Lins Jr.
- alejesus
- Usuário Nível 1

- Mensagens: 15
- Registrado em: 09 Jun 2010 20:58
- Localização: Osasco - SP
- Contato:
Serviços no Windows com Harbour
Itamar, bom dia.
O problema é que o executável estava no mesmo caminho do arquivo, tanto que o arquivo de "log" que é criado fica no mesmo path do exe e dos arquivos que verifico no FILE().
Bom, de qualquer forma, indicando o caminho completo do arquivo funcionou, obrigado.
Obs.: O exemplo enviado é do próprio Harbour, eu utilizei ele para fazer umas modificações.
Abs,
Alexandre
O problema é que o executável estava no mesmo caminho do arquivo, tanto que o arquivo de "log" que é criado fica no mesmo path do exe e dos arquivos que verifico no FILE().
Bom, de qualquer forma, indicando o caminho completo do arquivo funcionou, obrigado.
Obs.: O exemplo enviado é do próprio Harbour, eu utilizei ele para fazer umas modificações.
Abs,
Alexandre