Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=421234&view=findpost&p=3857747 Sat, 15 Jan 2022 14:04:47 +0000 Как получить дату и время из Интернета https://forum.sources.ru/index.php?showtopic=421234&view=findpost&p=3857747 В общем случае копать надо в сторону анализа работы ntp (Linux) или выше упомянутых компонентов.
Реализуется такое отправкой одного UDP запроса и получением ответа, но ответ часто не приходит потому нужно повторно отправлять.]]> vvs777 Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=421234&view=findpost&p=3845206 Fri, 05 Mar 2021 11:11:57 +0000 Как получить дату и время из Интернета https://forum.sources.ru/index.php?showtopic=421234&view=findpost&p=3845206 Mr.Delphist Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=421234&view=findpost&p=3845197 Thu, 04 Mar 2021 16:58:35 +0000 Как получить дату и время из Интернета https://forum.sources.ru/index.php?showtopic=421234&view=findpost&p=3845197 Socket Error # 10054 Connection reset by peer. Как исправить?
        LTime.Host := 'time.nist.gov';
        LTS := LTime.DateTime;
        //label2.Caption:=DateTimeToStr(LTS);
        // do something
        LTime.Disconnect();
]]> DDim1000 Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=421234&view=findpost&p=3845192 Thu, 04 Mar 2021 10:57:59 +0000 Как получить дату и время из Интернета https://forum.sources.ru/index.php?showtopic=421234&view=findpost&p=3845192 ^D^ima, спасибо большое! Все получилось!!!]]> DDim1000 Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=421234&view=findpost&p=3845191 Thu, 04 Mar 2021 10:33:38 +0000 Как получить дату и время из Интернета https://forum.sources.ru/index.php?showtopic=421234&view=findpost&p=3845191
    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 Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=421234&view=findpost&p=3845188 Thu, 04 Mar 2021 09:25:53 +0000 Как получить дату и время из Интернета https://forum.sources.ru/index.php?showtopic=421234&view=findpost&p=3845188 Подскажите, пожалуйста, как получить дату и время из интернета?]]> DDim1000 Delphi: Система, Windows API