Internet Zeit

[stone rock]

Danke - habe die Indy in meine form gezogen. Nun erkennt es Idtime1 - Danke.

mein code soweit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  AtomZeit: String;
begin
  IdDayTime1.Host := 'ptbtime1.ptb.de';
  AtomZeit := IdDayTime1.DayTimeStr;
  IdTime1.Disconnect;
  try
     Label1.Caption := AtomZeit;
  except
    Writeln('Fehler beim lesen des Zeit Servers ');
  end;

wenn ich die procedure ausfuehre kommt:
Socket Error #10061 conection refused.

Weisst du hier was zu tun ist?

Danke fuer die Hilfe.

Gruss
Martin