FTPGETFILE no funciona con Windows 10 x64

[pepe_garcia]

Buenos días a todos,

Habia puesto por error este post en el foro en ingles.

Tengo un programa hecho para que me baje sistematicamente 1 fichero desde una maquina cada 5 segundos y hasta el momento con PCs con windows 7 funcionaba perfectamente, pero ahora he comprado un equipo con windows 10 x64 y me pasa lo siguiente:
Arranco el programa y la primera bajada del fichero la hace bien, pero a partir de aqui debería hacerla cada 5 segundos, pero no lo hace, sigue bajando no se de donde el mismo fichero que ha leido al arrancar. Lo borro con el explorador de archivos y vuelve a crearlo (desde algún cache virtual), pero con el fichero de la primera lectura. Es decir, que si el fichero tiene en la primera lectura 5 registros, a pesar de haber aumentado, sigue creando el fichero de los 5 registros. He mirado opciones de windows 10, pero no he dado con el problema (creo que es del windows 10 ).
Os dejo el codigo, que es bastante simple. Solo tiene que bajar un fichero.

Code: Select all  Expand view

 #include "FiveWin.ch"

    static oDlg, oTimer, aReader, oFTP, oInternet

    //----------------------------------------------------------------------------//

    function Main()

    aReader = "192.168.1.162"

    DEFINE dialog oDlg FROM 0, 0 To 7, 30 TITLE "Conexión : "+aReader COLOR CLR_YELLOW,CLR_HGREEN icon "crono3.ico"

          oInternet:=TInternet():New()
          oFTP:=TFTP():New(ALLTRIM(aReader),oInternet,"anonymous","")

    ACTIVATE DIALOG oDlg CENTERED ON INIT oDlg:SetMenu( BuildMenu() )

    return nil

    //----------------------------------------------------------------------------//

    function BuildMenu()

    local oMenu

       MENU oMenu
          MENUITEM "COMUNICADOR"
          MENU
             MENUITEM "INICIAR PROCESO" ACTION Timers()
             SEPARATOR
             MENUITEM "PARAR PROCESO" ACTION oTimer:end()
             SEPARATOR
             MENUITEM "SALIR"   ACTION oDlg:End()
          ENDMENU
       ENDMENU

    return oMenu

    //----------------------------------------------------------------------------//

    function Timers()

    DEFINE TIMER oTimer interval 5000 ACTION leerReader() ;

    ACTIVATE TIMER oTimer

    return nil
    // ---------------------------------------------------------------------------//
    func leerReader()


    FtpGetFile (oFTP:hFTP,"datos.log","datos.log",.F.,0,0,0 )


     return nil
    //-----------------------------------------------------------------------------
 

Gracias de antemano.

Jose García

[hmpaquito]

Hola,

Yo probaria haciendo en cada bajada, conexion, bajada y desconexion

Salu2

[pepe_garcia]

Gracias hmpaquito.
He probado así y sigue igual. Esto me pasó en 2011 o así, al hacer una actualización de Windows 7 y la única solución fue desinstalar la actualización. Por eso creo que es alguna opción de Windows. Pero no se cuál es en Windows 10. Ya he habilitado y deshabilitado casi todo. Y sigue igual. La cuestión es que lo baja, pero siempre el mismo, a pesar de que haya aumentado de tamaño.

Enviado desde mi Redmi Note 9 Pro mediante Tapatalk

[hmpaquito]

Hola,

Haz la conexion FTP en "passive mode".
Para establecer passive mode hazlo asi

Code: Select all  Expand view

#Define lPASSIVE_MODE .T.
oFTP:=TFTP():New(ALLTRIM(aReader),oInternet,"anonymous","", lPASSIVE_MODE)

salu2

[pepe_garcia]

Gracias hmpaquito.
Acabo de probar esa opción y tampoco funciona. La cuestión es que lo baja la primera ver que se pone en marcha bien, pero a partir de ahí todo el rato baja el mismo a pesar de que lo borro desde CMD. Y a los 5 segundos, vuelve a bajar (no se de donde) el mismo fichero.
Vamos, para locos...

[pepe_garcia]

¿ Hay alguna forma de que no cargue el fichero en cache ?
Gracias

[hmpaquito]

Igual con esto funciona
https://www.enmimaquinafunciona.com/pre ... s-explorer

[pepe_garcia]

OLEEEEEE !!!! Funcionando.
Muchisimas gracias. Vaya tela. Una cosa tan simple y que te haga romperte la cabeza.
Repito muchisimas gracias.
Un abrazo.

[hmpaquito]

Genial !