TFTP no reporta archivos para actualizacion de aplicacion

[CARLOS ATUNCAR]

Saludos, tengo una consulta, tengo un proceso de actualización de mi aplicación que al entrar revisa si hay archivos nuevos para lanzar un aviso para que se ejecute el proceso de descargas
todo funciona normal en todas las pc en todas las versiones de windows menos en 2 pc que estan en la misma red y lo que he notado que tiene una configuracion de red donde tiene activo el Ipv4 y el Ipv6 es la unica diferencia que he encontrado. este mi proceso alguna sugerencia muy agradecidos:

Function VerUpdate()
local oInternet,oFtp,oWait
local aFiles,cFile,mFile:={}
local cServer := "ftp.servidor.com"
local cUser := "user@servidor.com"
local cpassword:= "clave"
local rRuta := "/public_ftp/ruta"
local CantFiles,nSize:= 0
local oDlg,oSay,oBtnCancel,oMeter,lEnd:=.F.,nAmount,lOk:= .F.,lValRet:= .F.
local lReturn := .F.


MsgRun( "Connecting to Internet...", "Please, wait",{ || oInternet := TInternet():New()})

MsgRun( "Conectando al Servidor...", "Please, wait",{ ||oFTP := TFTP():New( cServer, oInternet,cUser,cpassword )})

If !Empty( oFTP:hFTP )

aFiles := oFtp:Directory( rRuta+"/*.*" )
AEval( aFiles, { | aFile | comprueba( aFile,@mFile ) } )

If Len( mFile )>1
lReturn := .T.
EndIf

EndIf

Return lReturn

[paquitohm]

Hola,

Me he tenido que crear una cuenta nueva. La mia no funcionaba bien. Me parece que nuevos atributos de la cuenta la hicieron que dejara de funcionar y no mostrara los foros al entrar.



A lo que vamos. Dos cosas:

1º Configura Ftp para que envie en modo pasivo: passive mode
2º Prueba a enviar desactivando temporalmente el cortafuegos.

Salu2

[Antonio Linares]

Paco,

Por favor prueba nuevamente con tu cuenta anterior, a ver si ahora te funciona bien

muchas gracias y te pido disculpas por las molestias

[hmpaquito]

Gracias Antonio, ya vuelve a funcionar perfectamente.

[CARLOS ATUNCAR]

Encontre la solucion era el proveedor de internet.