помогите выбрать сервер времени

[linda88]

не конектица:

IdTime1.Host := 'ntps1-0.uni-erlangen.de';
 IdTime1.Connect;
 if IdTime1.Connected then
   CurrTime := IdTime1.DateTime;
 IdTime1.Disconnect;
 IdTime1.Free;
 DecodeTime(CurrTime, HH, NN, SS, MS);
 label12.Text:=datetostr(CurrTime);

[p51x]

ntp.msk-ix.ru

[linda88]

var
  Form1: TForm1;
   CurrTime: TDateTime;
 YY,MM,DD,HH,NN,SS,MS: Word;
implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
 IdTime1.Timeout:=8000;
IdTime1.Host := 'ntp.msk-ix.ru';
 IdTime1.Connect;
 if IdTime1.Connected then
    CurrTime := IdTime1.DateTime;
 IdTime1.Disconnect;
 IdTime1.Free;
 DecodeTime(CurrTime, HH, NN, SS, MS);
  label1.Text:=datetostr(CurrTime);

end;

[p51x]

Есть еще ntp.ix.ru. Если и он у вас не работает, проверяйте код и свою сеть.

[linda88]

Тогда помогите с кодом:

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Controls.Presentation, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdTime;

type
  TForm1 = class(TForm)
    IdTime1: TIdTime;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

   CurrTime: TDateTime;
 YY,MM,DD,HH,NN,SS,MS: Word;
implementation

{$R *.fmx}





procedure TForm1.Button1Click(Sender: TObject);
begin
 IdTime1.Timeout:=8000;
 IdTime1.Port:=10060;
IdTime1.Host := 'ntp.ix.ru';

 IdTime1.Connect;
 if IdTime1.Connected then
 begin
    CurrTime := IdTime1.DateTime;
 IdTime1.Disconnect;
 IdTime1.Free;
 DecodeTime(CurrTime, HH, NN, SS, MS);
  label1.Text:=datetostr(CurrTime);
 end;


end;

end.

[Desc]

Ошибка: Socket Error 10060 Connection timed out
часто может возникать при блокировке соединения файрволом на стороне клиента, сервера или там и там.

[linda88]

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

Ошибка: Socket Error 10060 Connection timed out
часто может возникать при блокировке соединения файрволом на стороне клиента, сервера или там и там.

Есть возможность обойти это?

[Desc]

Попробуйте так.

procedure TForm1.Button1Click(Sender: TObject);
begin
      //IdTime1.Timeout:=8000;
      //IdTime1.Port:=10060;
      //IdTime1.Host := 'pool.ntp.org';
      IdTime1.Host := 'time.nist.gov';
      IdTime1.Connect;
   if IdTime1.Connected then
 begin
      IdTime1.Disconnect;
 try;
      CurrTime := IdTime1.DateTime;
 Except end;
      IdTime1.Free;
      FormatDateTime('dd mm yyyy', CurrTime);
      label1.Caption:=DateToStr(CurrTime);
 end;
 end;
end.