| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как получить время с сервера? [D6, D7, WinXP]

Иванов__ ©   (2005-10-05 12:07:00) 

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

---

Leonid Troyanovsky   (2005-10-05 17:42:00) [1]

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


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

--
Regards, LVT.

---

Leonid Troyanovsky   (2005-10-05 17:21:00) [2]

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


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

--
Regards, LVT.

---

Иванов__   (2005-10-05 16:44:00) [3]

Код 11004

---

DiamondShark   (2005-10-05 15:23:00) [4]

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

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

---

Иванов__   (2005-10-05 15:08:00) [5]

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

---

Alexander Panov   (2005-10-05 14:23:00) [6]

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.


---

Leonid Troyanovsky   (2005-10-05 14:18:00) [7]

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


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

--
Regards, LVT.

---

clickmaker   (2005-10-05 14:10:00) [8]

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

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

---

Иванов__   (2005-10-05 13:17:00) [9]

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

---

clickmaker   (2005-10-05 12:43:00) [10]

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

---

Наверх