Как получить дату и время из Интернета
 |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
| ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
| [18.118.227.69] |
|
|
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Соблюдайте общие правила форума
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как запустить программу/файл? (и дождаться ее завершения)
5. Как перехватить API-функции, поставить hook? (перехват сообщений от мыши, клавиатуры - внедрение в удаленное адресное прстранство)
... (продолжение следует) ...
Внимание:
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки - бан.
Мат в разделе - бан на три месяца...
Полезные ссылки:
MSDN Library 
FAQ раздела 
Поиск по разделу 
Как правильно задавать вопросы
Выразить свое отношение к модераторам раздела можно здесь:
Rouse_, Krid
Соблюдайте общие правила форума
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как запустить программу/файл? (и дождаться ее завершения)
5. Как перехватить API-функции, поставить hook? (перехват сообщений от мыши, клавиатуры - внедрение в удаленное адресное прстранство)
... (продолжение следует) ...
Внимание:
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки - бан.
Мат в разделе - бан на три месяца...
Полезные ссылки:
MSDN Library FAQ раздела Поиск по разделу Как правильно задавать вопросыВыразить свое отношение к модераторам раздела можно здесь:
Rouse_, Krid
Как получить дату и время из Интернета
Сообщ.
#1
,
|
|
|
|
Здравствуйте!
Подскажите, пожалуйста, как получить дату и время из интернета? |
|
Сообщ.
#2
,
|
  |
На форму кинь idTime (Indy компонент)
  var lts:TDateTime; LTime:TIdTime; begin LTime := TIdTime.Create(nil); try LTime.Host := 'time.nist.gov'; LTS := LTime.DateTime; ShowMessage(DateTimeToStr(LTS)); // do something finally LTime.Free; end; end; |
|
Сообщ.
#3
,
|
|
|
|
^D^ima, спасибо большое! Все получилось!!!
|
|
Сообщ.
#4
,
|
|
|
|
Почему-то при повторном запуске программы, выскакивает такая ошибка: Socket Error # 10054 Connection reset by peer. Как исправить?
LTime.Host := 'time.nist.gov'; LTS := LTime.DateTime; //label2.Caption:=DateTimeToStr(LTS); // do something LTime.Disconnect(); |
|
Сообщ.
#5
,
|
|
 |
Может, там лимит есть на число запросов? В любом случае, надо иметь не один time.nist.gov, а несколько NTP-серверов для опроса, чтобы как раз такие нештатные ситуации отрабатывать и переспрашивать у другого сервака в списке.
|
|
Сообщ.
#6
,
|
|
 |
Можно еще на низком уровне.
В общем случае копать надо в сторону анализа работы ntp (Linux) или выше упомянутых компонентов. Реализуется такое отправкой одного UDP запроса и получением ответа, но ответ часто не приходит потому нужно повторно отправлять. |
0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
0 пользователей:
[ Script execution time: 0,0294 ] [ 16 queries used ] [ Generated: 20.04.24, 06:47 GMT ]