Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Como obtener la hora y fecha de otro equipo (https://www.clubdelphi.com/foros/showthread.php?t=22488)

fayala 16-06-2005 20:49:42

Como obtener la hora y fecha de otro equipo
 
Un saludo a todos, estoy desarollando un programa que va a registrar la hora de entrada y salida de personal, pero quiero tomara la fecha y hora del servidor, para que el usuario no pueda cambiar estos parámetros, alguien me puede ayudar.?

De antemano muchas gracias.

delphi.com.ar 16-06-2005 21:01:21

¿Utilizas una BD en el servidor?... dependiendo de ello te recomiendo utilizarla con ese fin. ¿Qué motor utilizas?

Sino, tienes que tener privilegios para poder hacer un:
Cita:

net time \\Raul
Habría que buscar su "sinónimo" en la NetApi

roman 16-06-2005 21:56:17

También podrías usar las componentes Indy. Un ejemplo rápido:

En el servidor colocas una aplicación "Server" en la que usas una componente TIdTCPServer. A esta componente le asignas un puerto accesible desde fuera, digamos:


Código Delphi [-]
IdTCPServer1.Port := 1245;

En su evento OnConnect pones:


Código Delphi [-]
AThread.Connection.Write(FormatDateTime('hh:mm:ss', Time));

y corres la aplicación asegurándote de que IdTCPServer1.Active está en true.

En la aplicación cliente pones una componente TIdTCPClient a la que asignas el mismo puerto que al servidor.

Cuando quieras leer la hora pones:


Código Delphi [-]
IdTCPClient1.Connect;

y en su evento OnConnect pones:


Código Delphi [-]
Edit1.Text := IdTCPClient1.ReadString(8); // <-- el 8 es la longitud de la cadena
IdTCPClient1.Disconnect;

En las demos de las INDY viene este ejemplo mucho más completo (Basic ClientServer demo)

// Saludos

fayala 16-06-2005 22:56:31

ok, les agradezco mucho, gracias.

david duarte 31-01-2006 19:52:21

Hola a todos!!!

Tengo el siguiente problema, y me lei los temas que aparecen el clubdelphi, pero no me gustaria crear un bat con el net time.
No existe otra opcion. tengo lo siguiente para recuperar la fecha y la hora, pero esto es local

Código Delphi [-]
    archivo.Lines.Add(autenti.txtlogin.Text + ' ....... Captura de datos... 
                   Fecha: '+ datetostr(date)+ ' Hora: '+ TimeToStr(Time));

no existe una funcion algo parecida que le des
Código:

  datetostr(\\xxx.xxx.xxx.xxx\Date);
o algo por el estilo
asignarle a una variable fecha la fecha del servidor y en la viariable hora la hora del servidor?

No he encontrado como hacerlo!!!!
Alguien sabe algo parecido?

Gracias.!!!
Cómo te sientes hoy???


La franja horaria es GMT +2. Ahora son las 22:42:42.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi