Цитата:
|
Сообщение от 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;