Как получить время с сервера?

← →
Иванов__ (2005-10-05 12:07) [0]

Какие нужны компоненты и если можно примерчик. Заранее спасибо.

← →
clickmaker © (2005-10-05 12:43) [1]

с какого сервера?

← →
Иванов__ (2005-10-05 13:17) [2]

Есть комп. с Win2000 на котором есть стандартный сервер времени на 37 порте. Нужно с него получить время.

← →
clickmaker © (2005-10-05 14:10) [3]

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/randz/protocol/client_sntp_request.asp

Есть ли готовые функции или компоненты - не уверен. Поищи по ключевым словам NTP, server time

← →
Leonid Troyanovsky © (2005-10-05 14:18) [4]

> Иванов__ (05.10.05 12:07)
> Какие нужны компоненты и если можно примерчик. Заранее спасибо.
>

http://groups.google.com/group/fido7.ru.delphi/msg/c7d4f67c8d1d3ce1

--
Regards, LVT.

← →
Alexander Panov © (2005-10-05 14:23) [5]

program SetTime; uses Windows, SysUtils, IdTime; var CurrTime: TDateTime; st: TSystemTime; YY,MM,DD,HH,NN,SS,MS: Word; begin try with tIdTime.Create(nil) do begin // Host := "ntps1-0.uni-erlangen.de"; Host := "192.168.0.1"; try CurrTime := DateTime; except end; Free; end; except Exit; end; GetLocalTime(st); DecodeDate(CurrTime,YY,MM,DD); DecodeTime(CurrTime,HH,NN,SS,MS); st.wYear := YY; st.wMonth := MM; st.wDay := DD; st.wHour := HH; st.wMinute := NN; st.wSecond := SS; st.wMilliseconds := MS; SetLocalTime(st); end.

← →
Иванов__ (2005-10-05 15:08) [6]

Ошибка "Сокет еррор". Че деять?

← →
DiamondShark © (2005-10-05 15:23) [7]

> Ошибка "Сокет еррор". Че деять?

Как минимум, сообщить код ошибки.

← →
Иванов__ (2005-10-05 16:44) [8]

Код 11004

> Иванов__ (05.10.05 16:44) [8]
> Код 11004

Скорее всего, оный хост выключен, или, просто, неправильно обозван.

--
Regards, LVT.

> Иванов__ (05.10.05 13:17) [2]
> Есть комп. с Win2000 на котором есть стандартный сервер
> времени на 37 порте.

А что есть "стандартный сервер времени" для Win2K?
И, чего, он, в самом деле, на 37 порту?

--
Regards, LVT.

Как получить время с сервера? Найти похожие ветки