FiveTech Support Forums

Hola,

#include "fileio.ch"
#include "fivewin.ch"

function main()

set date to italian
set century on

test()

return nil



function test()

   local cApp   := "c:\windows\explorer.exe" //cFileName(GetModuleFileName(GetInstance()))

   local hFile2
   local dFecha := FileDate( cApp )
   local tHora  := FileTime( cApp )



   msgalert(cvaltochar(dFecha)+CRLF+CRLF+cValtochar(thora))



   hFile2 := FOpen( "fecha.prg", FO_READWRITE )

   SetFTime( hFile2, tHora, dFecha )

   FClose( hFile2 )


   dFecha := FileDate( "fecha.prg" )
   tHora  := FileTime( "fecha.prg" )

   msgalert(cvaltochar(dFecha)+CRLF+CRLF+cValtochar(thora), " de fecha.prg ")


return nil

No actualiza la hora de fecha.prg, el ejemplo anterior.

Muchas gracias.

Up+

Lucas,

la función SetFTime() use la función hb_pards() del extend API y por lo que se ve, esta función debe cambiar segun este el SET DATE y el SET CENTURY

Habra que localizar alguna función en Harbour que detecte esos SETs y que devuelva la hora en un formato común, salvo que ya exista dicha función y se trate solamente de localizarla en los fuentes de Harbour.

Lucas,

Es solo la hora lo que esta mal ?

La fecha la cambia bien ?

Antonio,

Sí, la fecha está bien, lo que falla es la hora.

Muchas gracias.

Luis,

Pero por lógica, que relación puede tener la hora con SET DATE y SET CENTURY ?

No se me ocurre porque puedan estar relacionados.

Que hora es la que le pone ? Llega a cambiarla ?

Antonio,

La hora del archivo permanece inalterada siempre.

Efectivamente es como dice Rolando

Coloca la hora del meridiano de Greenwich para Bolivia -4

Saludos,

Adhemar

Antonio,

¿Has compilado mi ejemplo con Harbour?.

Si vas luego a la carpeta en el Explorador de Windows verás que la hora no se ha cambiado, a pesar de que según msgalert(cvaltochar(dFecha)+CRLF+CRLF+cValtochar(thora), " de fecha.prg ") debería estar cambiada, pero en el explorador de Windows, o incluso haciendo un dir, sigue inalterada.

Lucas,

Puedes comprobar el resultado de SetFTime(), en caso de que devuelva .F. significaria que la función de Windows SetFileTime() no ha podido cambiar la hora.

No he probado tu ejemplo. Revise el código (sólo las primeras líneas) y te comenté que no veía la relación entre la fecha y la hora.

Lucas,

Acabo de ver el código completo de tu ejemplo e intentas cambiar la hora del explorer en la carpeta Windows.

Salvo que seas administrador, ó tengas privilegios de administrador, eso jamas te permitiría Windows hacerlo.

Perdón que "meta la cuchara", pero lo que el programa hace es cambiar la fecha del "fecha.prg" colocandole la fecha y hora tomadas del explorer.exe

Eso acá lo hace correctamente como lo indiqué en entrada anterior (compilado con xHarbour). Salvo que usa la hora UTC

Rolando

Rolando,

gracias, a veces pienso más rápido que leo

Lucas,

He modificado la función SetFTime() para que devuelva el código de error y devuelve un 6. Previamente devolvía un .F. que significa que no ha podido realizar la operación. Ahora voy a buscar que significa ese 6