Delphi ile windows tarih saatini internetten güncelleme

[savasgti]

Herkese kolay gelesin arkadaşlar.
windowsun özelliği olan tarih saati internet sunucusuyla eşle özlleliği olan time.windows.com aldığı saat tarihi sistemin ki ile değiştiriyor. bunu delphi aracılığı ile nasıl yapabilirim. teşekkür ederim şimdiden.

[SimaWB]

Indy'nin TIdTime komponenti ile yapabilirsin.

Kod: Tümünü seç

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

Kullanabileceğin NIST Internet Time Serverların adresleri: http://tf.nist.gov/tf-cgi/servers.cgi

[savasgti]

bu adreslerin hiç birisi çalışmıyor tidtime ın portu 37 acaba portmu yanlış

[SimaWB]

Ben listedeki ilk server'ı (nist1-ny.ustiming.org) denedim ve çalıştı

[savasgti]

Bende çalışmıyor tekrar denedim 'Socket Error # 10060 Connection Time Out.' hatası veriyor. İp yi de adresi de denedim aynı hata veriyor.

üstat peki ip (64.90.182.55 ) mi yoksa adresi (nist1-ny.ustiming.org) mi kullanıyorsunuz.

[SimaWB]

ikisi de çalıştı.

[savasgti]

Üstat ya benim internet bağlantım ile kaynaklı ya kullandığım işletim sistemi ile yada formun üzerine bir buton bi idtime koyup butonun içerisine kodu yazmaktan başka bişi yapıyorsunuz siz.