Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Как узнать время на сервере

Автор: Rakhim 10.2.2005, 14:57

Как узнать время на сервере.
Для этого на сервере обязательно нужна служба времени или нет

Автор: _hunter 10.2.2005, 15:43

а у кого ты время спрашивать собрался, если на том конце никого нет?

Автор: Snowy 10.2.2005, 16:34

net time \\server

Автор: Alex 10.2.2005, 18:24

http://forum.vingrad.ru/index.php?showtopic=31740&hl=net+time

Автор: Rakhim 11.2.2005, 07:36

А как изменить формат вывода времени команды net time. Выводятся только минуты, а нужны секунды и миллисекунды?

Автор: Snowy 11.2.2005, 08:39

RFC-1305

Цитата

Временные метки NTP характеризуются 64-битным числом без знака с фиксированной запятой, которое равно количеству секунд с 0 часов 1 января 1900.

Нет там милисекунд. Да это и не возможно.
Идея конечно интересная. Теб более, что все NT машины работают с SNTP по умолчанию.
Если есть желание, то можешь накропать модуль, который будет забирать точное время.
Дока в инете есть.
Вот, например, подробно все расписано:
http://sgroup.auditory.ru/cx5/protokol/sntp.htm
Имено по SNTP работает net time
Как вариант, можешь попробовать поковырять саму net.exe

Автор: Rakhim 11.2.2005, 08:49

Прочитаю,

А как вообще можно изменть изменть так формат чтобы выводиль секунды?

Автор: Snowy 11.2.2005, 12:45

Да никак. Там фиксировано формат забит.
А то мало-ли, захочет кто-нить вывод перенаправить, а формат на всех машинах одинаковый.

Автор: Rakhim 14.2.2005, 13:46

Есть ли у когони-буть пример использования компонента TidSNTP?

Автор: _hunter 14.2.2005, 15:53

а справка на что?
создаем объект и читаем его DateTime. все.

Автор: Rakhim 14.2.2005, 16:55

Создаю объект, присваиваю хост, порт 123 (как написано в протоколе SNTP) не соединяется.
На сервере win2000.
А команда net получает время.

Чем отличается запрос времени с помощью команды net и протокола SNTP smile

Автор: Snowy 14.2.2005, 18:02

Да ничем.

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Caption:=TimeToStr(IdSNTP1.DateTime);
end;

Работает как часы smile

тОЛЬКО прописать Host и выставить Active в true.

Автор: Rakhim 18.2.2005, 09:27

idSNTP1.DateTime возвращает 0.0

по справке

Цитата

The value in DateTime can be 0.0 when the NTP datagram response is either an empty string or ignored based on values in LeapIndicator, Stratum, or TransmitTimestamp fields of the response TNTPGram.

То есть, ощибка возникла при проверке ответа.

Мне не нужно синхронизировать время, как напрямую обратится значению Transmit Timestamp?