Unificar fecha y hora en red

[Casimiro Noteví]

Entonces busca por "servidor horario", protocolo NTP.
Básicamente es usar el servidor como "servidor horario" y los demás equipos actualizan la hora desde ese equipo.

[ecfisa]

Hola jhonalone.

¿ Que motivo tendría para castigarte ?

Estuve investigando si alguna función del API te podría servir y creo que [NetRemoteTOD], podría funcionar:

Código Delphi [-]
...
implementation

uses DateUtils;

type
  PTimeOfDayInfo = ^TTimeOfDayInfo;

  TTimeOfDayInfo = record
    todElapsedt: DWORD;
    todMSecs: DWord;
    todHours: DWord;
    todMins: DWord;
    todSecs: DWord;
    todHunds: DWord;
    todTimeZone: LongInt;
    todTInterval: DWord;
    todDay: DWord;
    todMonth: DWord;
    todYear: DWord;
    todWeekday: DWord;
  end;

function NetRemoteTOD(UncServerName: PWideChar; var TimeOfDayInfo: PTimeOfDayInfo): DWORD; stdcall; 
  external 'NetAPI32.dll';

function GetServerDateTime(ServerName: WideString): TDateTime;
var
  tod: PTimeOfDayInfo;
  PWChar: PWideChar;
  tZone: Integer;
  Dt: TDate;
  Ti: TTime;
begin
  PWChar:= @ServerName[1];
  if NetRemoteTOD(PWChar, tod) = 0 then
  begin
    if tod.todTimeZone <> -1 then
      tZone:= tod.todTimeZone div 60
    else
      tZone:= 0;
    try
      Dt:= EncodeDate(tod.todYear, tod.todMonth, tod.todDay);
      Ti:= EncodeTime(tod.todHours, tod.todMins, tod.todSecs, 0)
    except
      raise Exception.Create('Respuesta erronea del servidor')
    end;
    Result := Dt + Ti - tZone / 24
  end
  else
    raise Exception.Create('Error al requerir datos de '+PWChar)
end;

Llamada de ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(DateTimeToStr(GetServerDateTime('\\DESKTOP')));
end;

Saludos.

[jhonalone]

Gracias Casimiro y sobre todo a tí, Ecfisa por el esfuerzo que has hecho.

Acabo de ver vuestras sugerencias y ayuda, pero es muy tarde.
Mañana probaré el código de Ecfisa y os cuento. (Confío plenamente que funcionará, de no ser así sería la primera vez que no lo hiciera)

Saludos.

[jhonalone]

Gracias de nuevo, Ecfisa.

No necesito lupa para verte GRANDISIMO. Tu códico funciona perfectamente. Sé que has hecho un esfuerzo por resolver mi problema y te lo agradezco.

Ahora me toca a mí seguir trabajando, para adaptar la función a mi proyecto y así UNIFICAR la fecha del sistema de todos los ordenadores que se conecten al que actúa como servidor. Si encuentro algún otro inconveniente en el proceso, intentaré "abusar" una vez más de tu inmenso conocimiento y buena predisposición para ayudar.

Gracias, un saludo.

[jhonalone]

Hola, de nuevo.

Estoy pensando que mejor que UNIFICAR, la fecha/hora de todos los PCs de la Red, lo que voy a hacer es lo siguiente:

Puesto que el programa se puede iniciar desde el PC donde está ubicado o cualquier otro PC de la red.

Al iniciar el programa confirmamos la Fecha y Hora con el primer usuario que se conecta y la actualizamos en el PC servidor.

Cada vez que necesitemos utilizar la fecha y hora en el programa la leemos del PC servidor.

Pero ahora me surgen dos problemas:
1) No sé como cambiar la hora en el Servidor desde otro PC
2) No sé si se puede impedir que alguien cambie la Fecha/Hora en el Servidor mientras el programa está en uso.

Si alguien puede ayudarme con alguna de las dos cuestiones os lo agradecería.

Mientras voy a ir desarrollando las funciones correspondientes, basadas en la función de Ecfisa.

Saludos.

[ecfisa]

Hola jhonalone.

Evitar el cambio de fecha en el equipo servidor, para Windows XP revisa este [enlace] y para Vista y 7 [este].
Lo que ignoro y deberás probar, es si las directivas tienen alcance general o sólo local.

Saludos.

[jhonalone]

Gracias Ecfisa.
Lo miro y te cuento.
Un Saludo.