Get internet time in delphi

i want to get time and date from internet

i used following code

IdDayTime1.R开发者_JAVA技巧eadTimeout := 5000;
IdDayTime1.Host := 'www.time.windows.com';
IdDayTime1.Port := 37     ;
Label1.Caption := IdDayTime1.DayTimeStr;

but i get : socket error # 11004

whats is this and what did i do wrong

my internet and other things are ok

DayTime protocol is not the NTP protocol. DayTime uses port 13, not 37. 37 is used by the Time protocol, which, again, in not the NTP protocol, which uses 123 (UDP). I do not know if time.windows.com supports the DayTime and Time protocols, the most common used protocols to get time from a reliable time source nowadays is NTP, and its simpler sibling SNTP, which superseded both DayTime and Time protocols.

Socket error 11004 means 'bad address". You need to get rid of the www. prefix, the correct adddress is time.windows.com.

Here is some simple code showing the use of the idSNTP components

var
  SNTPClient: TIdSNTP;
begin
  SNTPClient := TIdSNTP.Create(nil);
  try
    SNTPClient.Host := 'pool.ntp.org';
    SNTPClient.SyncTime;
  finally
    SNTPClient.Free;
  end;
end;

If you get Time and Date use Indy IdSNTP component and set: host: time.windows.com

and on event Timer1Timer (TTimer component) write:

Label1.Caption := DateToStr(IdSNTP1.DateTime)
   + ' - ' + TimeToStr(IdSNTP1.DateTime);
Label2.Caption := IdSNTP1.Host;

you see on form (labe1, label2) Date now AND Time now. So if you set Time synchronized put IdSNTP1.SyncTime; in event Timer1Timer.

Try using the Indy ntp client components with the ntp pool.org servers. Works for me if you have any trouble I will post some example code.