Data e Hora de Brasilia

[marco_visao]

Boa noite,

Estou precisando de retorna a data e hora de Brasilia pelo componentes

REST Client + Rest Request + Rest Response no delphi 10.3

Atenciosamente

Marco Antonio

[EMBarbosa]

10 horas atrás, marco_visao disse:

Estou precisando de retorna a data e hora de Brasilia

Retornar de onde? O que você já tentou? Qual o impedimento pra prosseguir?

Por favor dê uma olhada nesse post sobre como elaborar um tópico pedindo ajuda:

 

 

[Waldir Paim]

13 horas atrás, marco_visao disse:

Boa noite,

Estou precisando de retorna a data e hora de Brasilia pelo componentes

REST Client + Rest Request + Rest Response no delphi 10.3

Atenciosamente

Marco Antonio

Veja se te serve: 

declare a unit sntpsend.pas;

uses um dos servidores abaixo para obter as respostas:

1. pool.ntp.org 

2.  

   time.windows.com

function TrySNTPDateTime(out ADate: TDateTime; const AServer: string; const
  ATimeOut: Integer = 2000): Boolean;
var
  V: TSNTPSend;
begin
  V := TSNTPSend.Create;
  try
    try
      V.Timeout := ATimeOut;
      V.TargetHost := AServer;

      with V.Sock do
      begin
        SetTimeout(ATimeOut);
        ConnectionTimeout := ATimeOut;
        InterPacketTimeout := False;
        NonblockSendTimeout := ATimeOut;
        SocksTimeout := ATimeOut;
      end;

      Result := V.GetSNTP;
      if Result then
        ADate := TTimeZone.local.ToLocalTime(V.NTPTime);
    except
      on E: Exception do
      begin
        ADate := 0;
        Result := False;
      end;
    end;
  finally
    V.Free;
  end;
end;

 

Editado 11 Fevereiro, 2019 por Waldir Paim
Inclusão de servidores