Controles fecha/hora

[ermendalenda]

Empezado por novatico

Es que yo no tomo la fecha hora del sistema, sino que la tomo de internet.

Incluso he encontrado la forma de tomar el "unixtime" del ROA (Real Observatorio de la Armada) que es el dato oficial que tomas todos los organismos estatales, incluida la AEAT.
Solo hay que tener en cuenta, además, el desfase por la zona horaria.

Aunque de momento no lo he implementado y lo tomo de "http://date.jsontest.com" al que tambien hay que añadir el desfase de zona.

Es que tengo clientes "muy amigos" de cambiar la fecha y hora del sistema.

Y podrías poner como haces la petición?

[novatico]

Empezado por ermendalenda

Y podrías poner como haces la petición?

Bueno, primero he de recordar algo que ya he comentado en este foro. No uso Delphi, pero estoy por aquí porque es un foro muy activo.
Si tecleas esa dirección http://date.jsontest.com en el navegador, ya vas a ver los datos que devuelve.

Para hacer programáticamente, yo hago un "httpRequest" con orden "GET" y me devuelve el mismo texto que ves en el navegador.
Sólo hay que tomar la información y manejarla, y la respuesta es muy rápida.
Al principio usaba la dirección http://worldtimeapi.org/api/timezone/Europe/Madrid, pero, aunque es más completa, falla en muchas ocasiones.

Os pego el trozo de mi código por si os ayuda:

Código Delphi [-]
        lcURL = "http://date.jsontest.com"
        loHTTP = Createobject("WinHttp.WinHttpRequest.5.1")
        loHTTP.Open("GET", lcURL, .F.)
        loHTTP.Send()

En lcURL va la dirección de más arriba.

Me olvidaba, la respuesta va en:

Código Delphi [-]
cResp = loHTTP.ResponseText

[ermendalenda]

Empezado por novatico

Bueno, primero he de recordar algo que ya he comentado en este foro. No uso Delphi, pero estoy por aquí porque es un foro muy activo.
Si tecleas esa dirección "http://date.jsontest.com" en el navegador, ya vas a ver los datos que devuelve.

Para hacer programáticamente, yo hago un "httpRequest" con orden "GET" y me devuelve el mismo texto que ves en el navegador.
Sólo hay que tomar la información y manejarla, y la respuesta es muy rápida.
Al principio usaba la dirección "http://worldtimeapi.org/api/timezone/Europe/Madrid", pero, aunque es más completa, falla en muchas ocasiones.

Os pego el trozo de mi código por si os ayuda:


lcURL = "http://date.jsontest.com"
loHTTP = Createobject("WinHttp.WinHttpRequest.5.1")
loHTTP.Open("GET", lcURL, .F.)
loHTTP.Send()

En lcURL va la dirección de más arriba.

Me olvidaba, la respuesta va en:

cResp = loHTTP.ResponseText

Gracias
Ese lo tengo
Me refiero al de la armada

[novatico]

Empezado por ermendalenda

Gracias
Ese lo tengo
Me refiero al de la armada

Creo que es "hora.roa.es"

[ermendalenda]

Empezado por novatico

Creo que es "hora.roa.es"

Gracias
Lo miro

[bmfranky]

Empezado por novatico

Creo que es "hora.roa.es"

Hola ahora es https://www2.roa.es/hora/

[bmfranky]

Hola,despues de leer lo anterior, he adaptado la funcion que tenia para obtener la hora de internet os la paso aqui por si a alguien le interesa, devuelve la hora del Real Instituto y Observatorio de la Armada (ROA)
Hay que instalar el paquete Nugget de criptografia BouncyCastle,


Aqui adaptado para devolver datetime , tened encuenta que devuelve utc

        /// <summary>
        /// Devuelve la hora actual de internet.
        /// </summary>
        /// <returns>Hora actual formateada.</returns>
        public static DateTime leeFechaHoraInternet()
        {
           
            System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12;
            try
            {
                 HttpWebRequest webRequest =  (HttpWebRequest)WebRequest.Create("https://www2.roa.es/cgi-bin/horautc");//https://worldtimeapi.org/api/ip");
                webRequest.Method = "GET";
                HttpWebResponse respuesta = (HttpWebResponse) webRequest.GetResponse();
                if(respuesta.StatusCode == HttpStatusCode.OK)
                {
                    Stream strmRespuesta = respuesta.GetResponseStream();
                    StreamReader leeRespuesta = new StreamReader(strmRespuesta);
                    string jsonRespuesta = leeRespuesta.ReadToEnd();
                    long ticks = long.Parse(jsonRespuesta.Replace("\\n", ""));
                     var fechora =  Org.BouncyCastle.Utilities.Date.DateTimeUtilities.UnixMsToDateTime(ticks);//esta  la uso yo porque tengo bouncy instalado
                    //desde el paquete nuget BouncyCastle
                    return fechora;                               
                }
            }
            catch(Exception Exc)
            {
               return DateTime.Now;
            }
             return DateTime.Now;
        }

[ermendalenda]

Gracias, también he estado mirandolo, no habia viso que ya lo habias encontrado.
Mismo sitio devuelve la hora UNIX (los milisegundos desde las 00:00:00 de 1/1/1970)

Yo lo que hago es restarle la hora unix actual y me devuelve la diferencia, aplicandole la diferencia horaria me devuelve el desfase

curl.exe --connect-timeout 2 -m 2 -k -S -L "https://www2.roa.es/cgi-bin/horautc"