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
