Exe xHarbour rodando como serviço

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Avatar do usuário
alaminojunior
Colaborador
Colaborador
Mensagens: 1720
Registrado em: 16 Dez 2005 21:26
Localização: Ubatuba - SP

Exe xHarbour rodando como serviço

Mensagem por alaminojunior »

Estou tentando fazer um código rodar como serviço.
Instalado tudo direitinho com o NSSM.
Porém, ao executar, pelo menos segundo o log que implementei, ele para num determinado trecho e não segue, não me dá nenhuma satisfação rsrsrrs
Alguém com experiência no assunto para comentar ?

Segue o trecho inicial:

Código: Selecionar todos

FUNCTION SincronizaSupabase()
	Local oError
   Private pasta := Left( HB_ArgV(0), Rat('\', HB_ArgV(0)) )
   Private sgbd
   Private srv2
   Private k_usu
   Private k_psw  := '#@!$8887'
   Private k_prt
   Private k_dtb
   Private vMEU_SQL
   Private nCnn:= -1
   Private lRodando := .T.

   IF ! File( pasta + "servidor.ini" )
      LogSupa( "ARQUIVO DE INICIALIZAÇÃO NÃO ENCONTRADO: " + pasta + "servidor.ini" )
      QUIT
   ENDIF

   sgbd  := AllTrim( hwg_getini( "SERVIDOR", "Sgbd",        , pasta + "servidor.ini" ) )
   srv2  := AllTrim( hwg_getini( "SERVIDOR", "ServidorSQL", , pasta + "servidor.ini" ) )
   k_usu := AllTrim( hwg_getini( "SERVIDOR", "Usuario",     , pasta + "servidor.ini" ) )
   k_prt := AllTrim( hwg_getini( "SERVIDOR", "Porta",       , pasta + "servidor.ini" ) )
   k_dtb := AllTrim( hwg_getini( "SERVIDOR", "Database",    , pasta + "servidor.ini" ) )

   LogSupa( "Conectando ao banco de dados [" + k_dtb + "] em " + srv2 + "..." )

   vMEU_SQL := sgbd  + "=" + srv2   + ";" + ;
               "UID=" + k_usu       + ";" + ;
               "PWD=" + k_psw       + ";" + ;
               "DTB=" + k_dtb       + ";" + ;
               "PRT=" + k_prt

	LogSupa( vMeu_SQL ) // aparentemente executa até aqui, pois exibe no log, depois ... nada !
	
	TRY
            nCnn := SR_AddConnection( CONNECT_MYSQL, vMEU_SQL )
	CATCH oError
	    LogSupa( oError:Description )
	END
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
Avatar do usuário
alaminojunior
Colaborador
Colaborador
Mensagens: 1720
Registrado em: 16 Dez 2005 21:26
Localização: Ubatuba - SP

Re: Exe xHarbour rodando como serviço

Mensagem por alaminojunior »

Resolvido pessoal.
Era orelhada minha (pra variar) por não ter mencionado alguns drivers da SQLRDD no início do projeto.
Tudo funcionando !

Obrigado !
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
Responder