Текущий архив: 2005.03.13;
Скачать: CL | DM;

Вниз

Синхронизация времени   Найти похожие ветки 

← →
Ivnish ©   (2005-01-02 11:49) [0]

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

---

← →
Eraszer   (2005-01-02 20:03) [1]

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

---

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

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

---

← →
Alexander Panov ©   (2005-01-04 16:19) [3]

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.


---

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

Текущий архив: 2005.03.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.025 c