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

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

Синхронизация времени [D7, WinXP]

Ivnish ©   (2005-01-02 11:49:00) 

Подскажите пожалуйста, как можно синхронизировать время с сервером в интернете (time.windows.com например) и выдать сообщение о удачности (неудачности) этого процесса

---

Alexander Panov   (2005-01-04 16:19:00) [1]

program SetTime;
uses
 Windows, SysUtils, IdTime;

var
 CurrTime: TDateTime;
 st: TSystemTime;
 YY,MM,DD,HH,NN,SS,MS: Word;
begin
 CurrTime := Now;
   try
     with tIdTime.Create(nil) do
     begin
//        Host := 'ntps1-0.uni-erlangen.de';
       Host := '192.168.0.1';
       try
         CurrTime := DateTime;
       except
         Free;
       end;
       Free;
     end;
   except
   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.


---

PZ   (2005-01-04 15:05:00) [2]

В начале ноября 2004 г был такой вопрос и дана готовая программа.

---

Eraszer   (2005-01-02 20:03:00) [3]

В Indy специальный компонент есть...

---

Наверх