Получить время через интернет

Posted by Chas under Delphi

Появилась потребность в получении времени из интернет. Проблема в том, что всегда получаю почти тайм аут (или refused, но редко), только один раз получил время, когда попробовал европейский сервер.

doktor255

procedure TForm1.FormCreate(Sender: TObject);

var

 CurrTime: TDateTime;

begin

 IdTime1.Host := 'time-a.nist.gov';

 IdTime1.Connect;

  if IdTime1.Connected then

    begin

      IdTime1.Disconnect;

      try

        CurrTime := IdTime1.DateTime;

      Except end;

      ShowMessage(FormatDateTime('dddd d mmmm yyyy', CurrTime));

    end;

end;

raxp

program gettime_net;

{$APPTYPE CONSOLE}

uses Winsock;
begin

 if (paramcount > 0)and (paramstr(1)<>'') then begin // 'NET TIME \\server /SET /YES'

   WSAStartup(02,WD);

   S:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);

   Remote.sin_family:=AF_INET;

   //DayTime protocol - порт 13

   //Time protocol - порт 37

   //SNTP/NTP - порт 123

   Remote.sin_port:=ntohs(13);
   Remote.sin_addr:=TInAddr(Pointer((gethostbyname(pchar(paramstr(1))))^.h_addr_list^)^);

   connect(s,Remote,SizeOf(sockaddr_in));

   SetLength(Reply,$100);

   SetLength(Reply,recv(s,Reply[1],$100,0));

   Writeln(Reply);

   //SetSysTime(Reply)

 end else writeln('Set name time-server? For example ntp1.kangran.su or time-b.nist.gov')

end.

тема на форуме

Похожие статьи

• Получить разницу между датами
• Определить время сортировки
• Как в datetimepicker взять только дату
• WinSock в Asm пример
• Как сделать чтобы полученное время показывалось к примеру на 5 часов больше действительного?
• Открыть интернет страницу в браузере
• Посоветуйте ПО для защиты ПК с пред-настройкой «групп файлов». На примере Comodo.
• Проблема с интернетом — нет интернета. Как определить причину?
• Формат TDateTime выдает неверный результат, если дата менее 30 декабря 1899 года
• Загрузить изображение по ссылке с кириллицей