Detectar Cambio manual de hora

[jhonalone]

Hola, compañeros.

No sé si me equivoco, pero desde la aparición de ChatGpt el club tiene menos actividad.
Yo también he preguntado a la máquina por el título del post.

Pero la máquina dice que a partir de Android 8+ ya no se eminen Broadcasts de esta actividad.

Puesto que las personas tenemos más inventiva, me dirijo a vosotros para pediros que (si alguien tiene algún truco para esto) comparta con los "sufridores" de Android su hallazgo.

Gracias de antemano.
Gran saludo a todos.

[Casimiro Noteví]

Puedes comprobar la fecha/hora actual de cualquier servidor NTP, o del servidor de la red, etc. depende de tu necesidad, por ejemplo, este enlace te devuelve la hora y fecha actual:

20260417163546

En cuanto a lo que comentas de la actividad de clubdelphi, debes tener en cuenta que tras tantos años acumulando información, prácticamente encuentras todo lo que necesites, así que no es necesario preguntar casi nunca.

[jhonalone]

Muchas Gracias, Casimiro por tu rápida respuesta. pero es en Android 8+ donde necesito detectar el cambio de hora y, a ser pòsible enviarlo con un Intent a mi app.

[Casimiro Noteví]

Creo que no he entendido, ¿quiéres detectar que han cambiado la fecha/hora del dispositivo android o de algún otro ordenador?
¿Tu aplicación está en el dispositivo android?
Si es así, entonces justo lo que he he comentado, desde tu propia aplicación llamas al servidor de fechahora y compruebas lo devuelto con la que tiene tu dispositivo.

[Casimiro Noteví]

Algo más o menos como esto:

Código Delphi [-]
var
  t0, t1: TDateTime;
  respuesta: string;
  horaServidor: TDateTime;
  horaLocalAprox: TDateTime;
  diferencia: Double;
begin
  t0 := Now;

  respuesta := NetHTTPClient1.Get('https://intitec.com/debug/getahora.php').ContentAsString;

  t1 := Now;

  horaServidor := StrToDateTime(respuesta);

  horaLocalAprox := (t0 + t1) / 2;

  diferencia := (horaServidor - horaLocalAprox) * 86400; // segundos

  if Abs(diferencia) > 60 then
    ShowMessage('Hora manipulada');
end;

[jhonalone]

Gracias de nuevo por el código.

Lo puse en OnCreate y compila bien, pero me tira la app en el arranque.
Llevo un rato dando vueltas, pero no consigo averiguar la causa. Es una aplicación Android14
Un saludo.