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

[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.

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

[maloun]

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

я пробовал так... у меня она тупо зависает и все .... как тогда можно еще??

timetostr(now) - для того что бы показать время сейчаз, для того что бы время "шло" надо поставить таймер на 10 милисек и внего засунуть обновление времени по компу.

[cargo29]

ты имеешь ввиду получить время с самого компа? типа gettime??? а если время сбито надо получить время с интернета и синхранизировать его

может кто знает как сделать через IdTimeUDP1 IdTime1 IdSNTP1

[Johnson]

Тебе дали пример загрузки времени из интернета...
http://programmersforum.ru/showpost....5&postcount=11
Чего ещё хочешь? Если хочешь готовый, полностью рабочий код - сделаю за деньги.
А "помогите написать" и "напишите за меня" - вещи разные.

[cargo29]

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

Тебе дали пример загрузки времени из интернета...
http://programmersforum.ru/showpost....5&postcount=11
Чего ещё хочешь? Если хочешь готовый, полностью рабочий код - сделаю за деньги.
А "помогите написать" и "напишите за меня" - вещи разные.

ппц ту т люди писали может компоненты инди не робят может быть такое?:

[raxp]

Так, стоп. ТС, в чем у вас проблема? Не получается нажать F9 в готовом на winapi проекте gettime_net.dpr ? Зачем вам компоненты, в чем смысл вашей работы с Indy, если я вам скрин работающего приложения приложил?

[cargo29]

это через командную строку где то писал что я пробовал вызывать командную строку на компьютаре и через нее синхранизировать и неполучалось какой то доступ был закрыт и сам комп не мог синхранизировать время поэтому надо сделать подругому не через командную строку

[raxp]

TC, вы прикалываетесь что-ли?

[cargo29]

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

TC, вы прикалываетесь что-ли?

нет я серьезно не может он синхранизировать через командную строку... искал в инете специально прогу синхранизатор но лучше своего ничего нету ...

[raxp]

покажите как вы пробовали?