oServer:ping()
define timer hObjs[ "TMR" ] interval 300000 /*5 minutos*/ of hObjs[ "MAIN" ];
action oSelf:StillAlive()
activate timer hObjs[ "TMR" ]
METHOD StillAlive() CLASS prog
hObjs[ "TMR" ]:deactivate()
if ! hObjs[ "SERVER" ]:Execute( "SET @dummy=0" )
//Colocal aqui las medidas a tomar si se pierde la conexion
endif
return nil
if ! oServer:Execute( "SET @dummy=0" )
rolando wrote:Intenté hacerlo como indicas pero me da distintos errores.
rolando wrote:CODE: SELECT ALL EXPAND VIEW
if ! oServer:Execute( "SET @dummy=0" )
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 121 guests