[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 аналогично:

Код:

1 2 3 4 5

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