[Thundefined]

какую команду посылать на NTP сервер, чтобы он вернул в качестве строки дату текущую?
Реализовать с помощью Indy хочу, вроде компоненту IdTime юзать надо
Простите, быть может, за глупые вопросы, но читая IndyInDepth пока нужного решения не нашёл (:
Непонятно конкретно какую команду посылать на сервер, и каким образом эту дату принимать.

[poli-smen]

Сообщение от Thundefined

какую команду посылать на NTP сервер, чтобы он вернул в качестве строки дату текущую?
Реализовать с помощью Indy хочу, вроде компоненту IdTime юзать надо
Простите, быть может, за глупые вопросы, но читая IndyInDepth пока нужного решения не нашёл (:
Непонятно конкретно какую команду посылать на сервер, и каким образом эту дату принимать.

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdTime1.Host := 'time.nist.gov';
  ShowMessage(DateTimeToStr(IdTime1.DateTime));
end;

[Thundefined]

Сообщение от poli-smen

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdTime1.Host := 'time.nist.gov';
  ShowMessage(DateTimeToStr(IdTime1.DateTime));
end;

Огромнейшее спасибо!))

[poli-smen]

Сообщение от Thundefined

Огромнейшее спасибо!))

Пожалуйста. Единственно только TIdTime получает дату/время не по протоколу NTP, а по более простому и менее точному протоколу TIME (RFC 868)

[Thundefined]

Сообщение от poli-smen

Пожалуйста. Единственно только TIdTime получает дату/время не по протоколу NTP, а по более простому и менее точному протоколу TIME (RFC 868)

Сначала я ставил порт 123 и всё нормально отображалось.Что интересно при первой компиляции всё нормально, когда компилируешь второй раз то начинают вылазить ошибки уровня сети, типа socket error #10061(refused connection) или #10060(time out). С чем связано - хз. Брандмаэур отключен, добавил в исключения антивируса и запускаю от имени админа(раньше помогало), как можно решить эту проблему? Явно проблема на программном режиме вылазит, но как решить?

[poli-smen]

Сообщение от Thundefined

Сначала я ставил порт 123 и всё нормально отображалось.Что интересно при первой компиляции всё нормально, когда компилируешь второй раз то начинают вылазить ошибки уровня сети, типа socket error #10061(refused connection) или #10060(time out). С чем связано - хз. Брандмаэур отключен, добавил в исключения антивируса и запускаю от имени админа(раньше помогало), как можно решить эту проблему? Явно проблема на программном режиме вылазит, но как решить?

Речь всё ещё идёт о TIdTime? Если так, то TIdTime умеет работать только с протоколом TIME, который использует 37 порт TCP/UDP. Для работы с протоколом NTP компонент TIdTime не подходит.

Среди компонентов Indy есть ещё компонент TIdSNTP который получает время по протоколу SNTP (это упрощённая версия протокола NTP).
Используется TIdSNTP аналогично:

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
  IdSNTP1.Host := 'ntp.time.in.ua';
  ShowMessage(DateTimeToStr(IdSNTP1.DateTime));
end;