Exe xHarbour rodando como serviço
Enviado: 29 Abr 2026 08:57
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:
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