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
