Как сделать синхранизатор времени???

[cargo29]

net time \\time.windows.com /set /yes серваки разные пробовал .... все так же

правильно???

[raxp]

http://forum.ixbt.com/topic.cgi?id=22:66460

[asmodey1]

Да. У меня сработало только с pool.ntp.org. Все остальные молчали...

[cargo29]

Сообщение от asmodey1

Да. У меня сработало только с pool.ntp.org. Все остальные молчали...

ну вот.... поэтому охото свою собрать прогу синхранезировать время и дату

[Vitali76]

Сообщение от 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.

думаю код установки системных часов нароете сами.

подскажите как в Writeln(Reply); получить только номер месяца и номер года?

Спасибо заранее.

[kutani]

...парсить вестимо. Для конкретного сервера свои позиции.

program gettime_net;

{$APPTYPE CONSOLE}
uses Winsock;

var wd: wsadata;
    i: integer;
    remote: sockaddr_in;
    Reply: string[255];
    s: string;
begin
 s:= 'utcnist2.colorado.edu';
 if (paramcount = 0)or(paramstr(1)='') then
  writeln('Set name time-server? For example: utcnist2.colorado.edu')
   else s:= paramstr(1);

 WSAStartup(02,WD);
 i:= 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(s)))^.h_addr_list^)^);
 connect(i,Remote,SizeOf(sockaddr_in));

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

 Writeln(copy(reply,11,2));
 Writeln(copy(reply,14,2));
 //SetSysTime(Reply)
end.