Como Incluir Aplicação FOX nos serviços do Windows 7

[anderson_rodrigo]

Pessoal,

Estou precisando incluir uma aplicação desenvolvida em Visual FoxPro no Windows 7. Já pesquisei a Net inteira e não encontrei como fazer.
Alguem poderia me ajudar.

Obrigado.

[Tales Ruan]

Bem vindo Anderson..

Acho que já fizemos algo assim para Windows XP. Deve funcionar no Windows 7.

Dê uma olhada neste link:
- [Você precisa estar registrado e conectado para ver este link.]

Este contém algumas explicações também:
- [Você precisa estar registrado e conectado para ver este link.]

[anderson_rodrigo]

Tales Ruan,

Muito Obrigado pela ajuda.

Então, andei lendo e os arquivos que é utilizado para a criação do serviço esta na Pasta Windows Resource Kits, e no Windows 7 não possui esta pasta nem os arquivos. mas vou ler os demais topicos e ver se consigo algo.

Muito Obrigado novamente.


Abraços.

[Nelson Arcas]

Pessoal, pegando um gancho na pergunta do Anderson eu consegui instalar no Windows Resource Kits conforme outro tópico que foi postado pelo Marcos Guedes, porem quando é iniciado o serviço ele gerar um erro.

Erro: 1053 - O tempo limite execedeu

E não inicializa o serviço alguem já consegui acertar esse problema.

[anderson_rodrigo]

Pessoal,

Consegui resolver, mas não em FOX. Fiz em C# .net. pois já possui o projeto pronto para criar o serviço do Windows, e ai foi só gerar o Instalado.

Se acharem interessante eu posto o codigo que foi utilizado para chamar o executavel e para fecha-lo.

Abraços e obrigado.

[Marcos Guedes]

Pessoal, pegando um gancho na pergunta do Anderson eu consegui instalar no Windows Resource Kits conforme outro tópico que foi postado pelo Marcos Guedes, porem quando é iniciado o serviço ele gerar um erro.

Erro: 1053 - O tempo limite execedeu

E não inicializa o serviço alguem já consegui acertar esse problema.

Nelson este erro ocorreu comigo na época também, e consegui resolver configurando o serviço em:

Painel de Controle -> Ferramentas administrativas -> Serviços

Tentarei relembrar como fiz e posto aqui.

Pessoal,

Consegui resolver, mas não em FOX. Fiz em C# .net. pois já possui o projeto pronto para criar o serviço do Windows, e ai foi só gerar o Instalado.

Se acharem interessante eu posto o codigo que foi utilizado para chamar o executavel e para fecha-lo.

Abraços e obrigado.

Anderson, se poderes disponibizar seremos gratos.
Tive limitações utilizando o VFP como serviço então corri para o C#, também.
Foi mais prático mas não conseguir realizar ações tais como enviar email, acessar uma base de dados na net, etc...
Se poderes compartilhar será uma boa.

De preferência, abrindo um tópico no seguinte espaço, destinado a C#:
- [Você precisa estar registrado e conectado para ver este link.]

[Nelson Arcas]

Marcos, obrigado pelo retorno
Vou conversar com o Anderson para disponibilizar o código que ele fez em C#, como acompanhei o processo ficou bem fácil de fazer o processo.

[Marcos Guedes]

Estarei tentando corrigir este problema do Serviço com Fox neste fim de semana.

[hugo]

se o servico no fox for corrigido eu nao precisaria de agendador de windows
pra disparar minha rotina especial de backup

no aguarde

[anderson_rodrigo]

Anderson, se poderes disponibizar seremos gratos.
Tive limitações utilizando o VFP como serviço então corri para o C#, também.
Foi mais prático mas não conseguir realizar ações tais como enviar email, acessar uma base de dados na net, etc...
Se poderes compartilhar será uma boa.

De preferência, abrindo um tópico no seguinte espaço, destinado a C#:
- [Você precisa estar registrado e conectado para ver este link.]

Marcos,

Desculpe ainda não compartilhar o codigo. Mas assim que possivel irei compartilhar.

Apensa para adiantar segue alguns recursos do FOX.

Código:

*** Função para checar o processo do Windows. onde se passa como parametro o nome do serviço que deseja.
Function fChecaProcesso
   Lparameters lcNomeProcesso
   
   Local loservice, llReturn
   loservice = GETOBJECT("winmgmts://./root/cimv2")
   
   loprocesses = loservice.execquery([SELECT * FROM Win32_Process Where name like '%]+Alltrim(lcNomeProcesso)+[%' ])
   If loprocesses.Count() > 1
      return .t.
   Else
      return .f.
   EndIf
   
EndFunc

** Função para checar os Serviços do Windows. Aqui tambem pode se utilizar parametros se quiser e usar direto no select.

Function fChecaServico
   **Lparameters lcNomeServico
   
   lcNomeServico = 'Internet Explorer'                                                                         
   objwmi = GETOBJECT("winmgmts://./root/cimv2")
   ccadwmi = "Select * From Win32_Service"
   oserv = objwmi.execquery(ccadwmi)
 
   FOR EACH objservi IN oserv
        
        If Upper(Alltrim(lcNomeServico)) == Alltrim(Upper(objservi.NAME)) And Upper(Alltrim(objservi.State)) == 'RUNNING'
           Return .t.
      EndIf
   Next
   
   Return .f.

EndFunc



Logo postarei o de criar o serviços do Windows.


Abraços.

[Marcos Guedes]

Peço até desculpas ao Nelson pois esqueci deste tópico...

Reputado, Anderson!

[Rubens]

Bom dia,
Eu utilizo o runtime vf9.exe para instalar as dlls do vfp9, por essa razão meus sistemas funcionam em qualquer plataforma windows xp,vista e 7.

Abs

[anderson_rodrigo]

Pessoal,

Incluir como realizar a criação do serviço do Windows em C#.

Link.
[Você precisa estar registrado e conectado para ver este link.]

Abraços.