HORA de SISTEMA
 

Hola estoy haciendo un sistema de puntos de venta, donde tengo un servidor central con ORACLE 11g y como base local ORACLE XE.
En la XE tengo las bases principales para que la caja inicie.

Lo que necesito es poder tomar la hora del servidor principal de ORACLE 11g y cambiarselo desde mi aplicación al sistema operativo de la estación del punto de venta, para tener la hora sincronizada en ambas bds.

Bueno es cuestion de hacer una consulta SQL al servidor de Oracle consultando la hora del servidor y luego usar la API SetSystemTime para cambiar la hora de la maquina cliente.;).
En este hilo hay un ejemplo de como de cambiar la hora desde Delphi, aunque aqui va otro ejemplo pero en éste caso uso la API SetLocalTime ;)

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
SystemTime: TSystemTime;
Newtime, NewDate: string;
begin
Newtime:='12:00:00 ';
NewDate:='01.01.2010 ';
DateTimeToSystemTime(StrToDate(NewDate)+StrToTime(newtime),SystemTime);
SetLocalTime(SystemTime);
// Indicarle a Windows el cambio
PostMessage(HWND_BROADCAST,WM_TIMECHANGE,0,0);
end;

Saludos...:)

Muy bueno
 

Sos un groso
Gracias mañana lo estaré probando en el proyecto.
Justamente habia encontrado algo en un sitio de Microsoft sobre .net Framework.

Desde ya muchas gracias.-

Código Delphi [-]
/// eip.text es un edit que contiene el ip del servidor

WinExec(Pchar('COMMAND.COM /C net time \\'+eip.text+' /set /yes'), SW_HIDE);