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.
Gracias de antemano.
Jose Garc铆a
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.
聽#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