Время из Интернет

[Larboss]

Появилась потребность в получении времени из интернет.

Среда разработки: Delphi XE5
Используемый компонент: TidTime (Indy)
Сервер времени брал отсюда: http://www.pool.ntp.org/zone/ru

Код такой:

var
 CurrTime: TDateTime;
 YY,MM,DD,HH,NN,SS,MS: Word;
begin
 IdTime1.Host := '0.ru.pool.ntp.org';
 IdTime1.Connect;
 if IdTime1.Connected then
   CurrTime := IdTime1.DateTime;
 IdTime1.Disconnect;
 IdTime1.Free;
 DecodeTime(CurrTime, HH, NN, SS, MS);

Проблема в том, что всегда получаю почти тайм аут (или refused, но редко), только один раз получил время, когда попробовал европейский сервер.

Где я тут с утра натупил?

PS. Может способ хреновый?

[Utkin]

if IdTime1.Connected then
   CurrTime := IdTime1.DateTime;

Возможно до наступления этого момента должно пройти время...

[Larboss]

Да с таймаутом игрался... все тоже самое

[Аватар]

А без явного Connect?

IdTime1.Host := '0.ru.pool.ntp.org';
CurrTime := IdTime1.DateTime;

[Larboss]

Тоже самое

[doktor255]

procedure TForm1.FormCreate(Sender: TObject);
var
 CurrTime: TDateTime;
begin
 IdTime1.Host := 'time-a.nist.gov';
 IdTime1.Connect;
  if IdTime1.Connected then
    begin
      IdTime1.Disconnect;
      try
        CurrTime := IdTime1.DateTime;
      Except end;
      ShowMessage(FormatDateTime('dddd d mmmm yyyy', CurrTime));
    end;
end;

[raxp]

http://programmersforum.ru/showpost....5&postcount=11

[Larboss]

Спасибо за помощь. Выяснилось, что сервер был не правильный. С этим time-a.nist.gov нормально работает.