Форум: "Основная";
Текущий архив: 2005.10.30;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Иванов__   (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

---

← →
Leonid Troyanovsky ©   (2005-10-05 17:21) [9]

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


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

--
Regards, LVT.

---

← →
Leonid Troyanovsky ©   (2005-10-05 17:42) [10]

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


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

--
Regards, LVT.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.10.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.038 c