Процедура Delphi, которая извлекает текущее время и дату с сервера времени

Question

Я ищу Delphi 7 подпрограмму, которая подключается к серверу времени для получения правильного времени и даты , и подпрограмму для обновления времени и дата ПК.

Процедура, конечно, должна учитывать часовой пояс, который использует компьютер.

Если возможно, используя ICS компонент suite от Overbyte (потому что я уже использую этот набор бесплатных компонентов для доступа по html и ftp). Но если нет, то любое решение будет оценено.

Заранее спасибо.

Answer 1

Посмотрите на компонент Indy IdDayTime. Укажите его на своем любимом сервере времени и проверьте свойство DayTimeStr.

  IdDayTime1.Host := 'time-a.nist.gov';
  Label1.Caption := IdDayTime1.DayTimeStr;

Редактировать : Результат в формате UTC, поэтому вам, вероятно, потребуется преобразовать его .

Answer 2

Возможно, вы захотите использовать Google для «Delphi 7 NTP» или «Delphi 7 Network Time Protocol». Кроме того, должно быть тонн бесплатных компонентов, которые вы можете использовать бесплатно.