Bonjour,

je souhaite récupérer les date et heure d'internet.

j'ai testé le composant TIdSNTP de Indy 9 avec Id_IPv6
pour la propriété IPVersion.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := DateToStr(IdSNTP1.DateTime) + ' - ' + TimeToStr(IdSNTP1.DateTime);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  IdSNTP1.Host := 'time.windows.com';
  IdSNTP1.Port := 13;
  IdSNTP1.Active := true;
  Timer1.Enabled := true;
end;
Mais, rien ne s'affiche..

merci de vos conseils