Indy IdDayTime and syncronization 1

[gcaramia]

Hello

I want syncronize pc-clock every 6 hours.
Can somebody help me in using Indy IdDayTime Component or something else?

thanks
Giovanni Caramia

 

[Stretchwickster]

1) Drop a TTimer on your form and set its Interval property to 21600000 (6 hours = 360 minutes = 21600 seconds = 21600000 milliseconds)
2) Drop a TIdDayTime on your form and set its Host property to the server from which you will be retrieving (e.g. time.nist.gov). You also need to set its Port property to the port number you will be using to make the connection.
3) In the OnTimer event of the TTimer you need something like the following code. I have been unable to test this due to network restrictions at work but I imagine it's something like this:

IdDayTime1.Connect;
Label1.Caption := IdDayTime1.DayTimeStr;
IdDayTime1.Disconnect;

or this:

Label1.Caption := IdDayTime1.DayTimeStr;

Clive
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
"To err is human, but to really foul things up you need a computer."
Paul Ehrlich
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
To get the best answers from this forum see: faq102-5096

 

[gcaramia]

Thanks Clive
I solved syncronization with TIdTime component.

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdTime1.Host := 'time.nist.gov';
  try
    IdTime1.SyncTime ;
  finally
    IdTime1.Disconnect;
  end;
end;

For anyone interested i post this link

http://www.ntp-servers.com/uk/world-time-server.html

for a lot of public NTP servers.

Thanks again
Giovanni Caramia

 

[gcaramia]

Sorry ...
and NIST Sercices :

http://www.boulder.nist.gov/timefreq/service/its.htm.

Giovanni Caramia