Querida Aida,
gracias por el aviso
saludos
Antonio Linares wrote:Querida Aida,
gracias por el aviso
saludos
Querida Aida,
De momento está de baja y seguirá de baja por un tiempo
Estamos dándole vueltas a reorganizarlo de otra forma 
Te pido disculpas por las molestias. Por lo que se ha comentado puedes conseguir un año gratuito en los servers de Amazon
CONNECT oServer HOST "54.37.60.32" ;
USER "aida" ;
PASSWORD "fivetech";
PORT 3306 ;
FLAGS 0;
DATABASE "aida"CONNECT oServer HOST "sql5.freesqldatabase.com" ;
USER "aida" ;
PASSWORD "chuchis123";
PORT 3306 ;
FLAGS 0;
DATABASE "aida"
ya está solucionado
Te envié las instrucciones por facebook
una vez lo pruebes desde Heidi necesito que me digas que IP ó rango de IPs tenemos que autorizar
salio este ip 189.217.3.201
ok, vuelve a intentar acceder
Listo ya funciona 
Muchas grax 
con barba te ves muy diferente 
Que este año te sea de super excito y muchas carreras de motos ganadas
ahora a trabajar duro este año
GRACIAS!
Saluditos
y después de un rato se cierra 
TRY
CONNECT oServer HOST "xxxxxx" ;
USER "xxxxxx_" ;
PASSWORD "*******";
PORT 3306 ;
FLAGS 0;
DATABASE "xxxxx_"
irNueva2:= rNueva0
oQry := TDolphinQry():New( "SELECT * FROM materiales order by serialpc" )
oQry:gotop()
if oQry:Seek( irNueva2,"serialpc" )=="0"
elseif oQry:cancelar=AllTrim("1")
? "SE TERMINARA EL PLAZO DE PRUEBA ADQUIERA SU LICENCIA"
*Registrame()
elseif oQry:cancelar="2"
? "SE TERMINO EL PLAZO DE PRUEBA ADIOS."
quit
endif
irNueva2:= rNueva0
oQry := TDolphinQry():New( "SELECT * FROM materiales order by serialpc" )
oQry:gotop()
if oQry:Seek( rNueva0,"serialpc" )== 0
aCampos := {'windows','fecha','hora','wusuario','serialpc','usuario', 'serial','laip','laipp','nusuario','ippublica','dias','intentos'}
aVariables := {WinT, tfecha, thora ,wuser ,rNueva0 ,rNueva1 , rNueva2 ,cIp ,cIpx ,nuser ,ippub ,cTequedan,colorix}
oServer:Insert( 'materiales', aCampos, aVariables )
else
endif
oQry = oServer:Query( "SELECT * FROM materiales ORDER BY serialpc " )
oData = oQry
oQry:SetOrder("serialpc")
if oQry:Seek( rNueva0,"serialpc" )== 0
else
if empty(rNueva2)
rNueva2:=""
else
endif
oQry:usuario=rNueva1
oQry:serial=AllTrim(rNueva2)
*oQry:nusuario=nuser
oQry:FieldPut("nusuario",nuser)
oQry:dias=AllTrim(Str(cTequedan))
*oQry:FieldPut("dias",AllTrim(Str(cTequedan)))
oQry:FieldPut("intentos",colorix)
oQry:FieldPut("final",finale)
oQry:FieldPut("version","1.1bJ")
oQry:Save()
endif
CATCH oErr
lConectaNovamente := .t.
end
if lConectaNovamente
MsgRun("No se puede conectar revice su coneccion o barrera de fuego...")
endif
RETURN .T.Prueba a acceder usando Heidi y verifica que esten la tabla y los datos, etc
Aida
Kinda a long shot answer ... many cloud applications, Att.net, Google.cm .. consider certain apps as "less secure" and you have to generate a special secure password before your application will connect ..
https://support.google.com/accounts/ans ... 0255?hl=en
Just my 2 cents worth ..
Rick Lipkin
Antonio Linares wrote:Prueba a acceder usando Heidi y verifica que esten la tabla y los datos, etc
Ya encontré lo que atora al programa es esto que uso para sacar la IP
ippub:= PublicIP() 
si quito el PublicIP() ya no se atora
por que pasara esto y como remediarlo? 
AIDA wrote:Ya encontré lo que atora al programa es esto que uso para sacar la IP
ippub:= PublicIP()
si quito el PublicIP() ya no se atora
por que pasara esto y como remediarlo?
//**************************************************************
Function PublicIP()
Local cBuffer, cRequest, cResponse, nBytes, pSocket
INetInit()
pSocket := INetConnect( "checkip.dyndns.org", 80 )
IF INetErrorCode( pSocket ) <> 0
? "Socket error:", INetErrorDesc( pSocket )
INetCleanUp()
QUIT
ENDIF
nBytes := INetSend( pSocket, "GET / HTTP/1.1" + CRLF + "Host: checkip.dyndns.org" + CRLF + "User-Agent: HTTP-Test-Program" + CRLF + CRLF )
cBuffer := Space(512)
cResponse:= ""
WHILE ( nBytes > 0 )
nBytes := INetRecv( pSocket, @cBuffer )
cResponse += Left( cBuffer, nBytes )
cBuffer := Space(512)
ENDDO
INetClose( pSocket )
INetCleanUp()
Return( allTrim( substr( substr( cResponse, rat( "<body>", cResponse ) + 26 ), 1, At( "<", substr( cResponse, rat( "<body>", cResponse ) + 26 ) ) - 1 ) ) )