Fórum Data e Hora do Servidor! #240705

01/07/2004

0

Delphi

Pessoal,

Bom dia!
Estou trabalhando em uma aplicação Cliente-Servidor... com Delphi 7 e Interbase 6.0.
Como faço para receber a data e hora do servidor? É que tem alguns procedimentos que devem ser executados de acordo com datas e não acho seguro trabalhar com a data da máquina do cliente.
Agradeço desde já.


Mmbarros

Mmbarros

Responder

Posts

01/07/2004

Sanses

Olá amigo

Bem para responder esta pergunta voce precisaria passar mais informações a respeito do seu programa, vou exemplificar:

1- voce utiliza algum tipo de comunicação esntre os micros por software como o caso dos sockets?

2- prefere que todas as máquinas se atualizem de acordo com o server ou o server estando certo e sendo ele o gerenciador do banco de dados não se faz necessário que máquinas clientes estejam em sincronia

Seja mais específico para poder ter a melhor opção, ok

Sanses


Responder

Gostei + 0

01/07/2004

Bon Jovi

Sendo o segundo caso é mole: Se usa CURRENT_TIMESTAMP ou CAST(´´NOW´´ AS TIMESTAMP).

function TDataModule2.ObtemDataServidor: TDateTime;
begin
  SQLDataSet1.CommandText := ´SELECT CURRENT_TIMESTAMP AS DATA FROM RDB$DATABASE´;
                             //ou
  SQLDataSet1.CommandText := ´SELECT CAST(´´NOW´´ AS TIMESTAMP) FROM RDB$DATABASE´;
  SQLDataSet1.Open;
  try
    Result := SQLDataSet1.FieldByName(´DATA´).AsDateTime;
  finally
    SQLDataSet1.Close;
  end;
end;



Responder

Gostei + 0

01/07/2004

Bon Jovi

faltou AS DATA:

´SELECT CAST(´´NOW´´ AS TIMESTAMP) AS DATA FROM RDB$DATABASE´;


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar