Форум: "Сети";
Текущий архив: 2005.03.13;
Скачать: [xml.tar.bz2];
ВнизСинхронизация времени Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.045 c