На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! user posted image
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Соблюдайте общие правила форума

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как запустить программу/файл? (и дождаться ее завершения)
5. Как перехватить API-функции, поставить hook? (перехват сообщений от мыши, клавиатуры - внедрение в удаленное адресное прстранство)
... (продолжение следует) ...

Внимание:
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки - бан.
Мат в разделе - бан на три месяца...

Полезные ссылки:
user posted image MSDN Library user posted image FAQ раздела user posted image Поиск по разделу user posted image Как правильно задавать вопросы


Выразить свое отношение к модераторам раздела можно здесь: user posted image Rouse_, user posted image Krid

Модераторы: Rouse_, Krid
  
> Как получить дату и время из Интернета
    Здравствуйте!
    Подскажите, пожалуйста, как получить дату и время из интернета?
      На форму кинь idTime (Indy компонент)
      ExpandedWrap disabled
        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;
        ^D^ima, спасибо большое! Все получилось!!!
          Почему-то при повторном запуске программы, выскакивает такая ошибка: Socket Error # 10054 Connection reset by peer. Как исправить?
          ExpandedWrap disabled
                LTime.Host := 'time.nist.gov';
                LTS := LTime.DateTime;
                //label2.Caption:=DateTimeToStr(LTS);
                // do something
                LTime.Disconnect();
          Сообщение отредактировано: DDim1000 -
            Может, там лимит есть на число запросов? В любом случае, надо иметь не один time.nist.gov, а несколько NTP-серверов для опроса, чтобы как раз такие нештатные ситуации отрабатывать и переспрашивать у другого сервака в списке.
              Можно еще на низком уровне.
              В общем случае копать надо в сторону анализа работы ntp (Linux) или выше упомянутых компонентов.
              Реализуется такое отправкой одного UDP запроса и получением ответа, но ответ часто не приходит потому нужно повторно отправлять.
              0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
              0 пользователей:


              Рейтинг@Mail.ru
              [ Script execution time: 0,0322 ]   [ 16 queries used ]   [ Generated: 5.02.23, 07:46 GMT ]