Discussion :

[cantador]

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

[popo]

C'est plutôt flou comme question.
La date et l'heure d'Internet dépend forcément du lieu depuis lequel tu consulte Internet et donc ça revient à chercher la date et l'heure locale (un simple appel à Now())

Tu veux récupérer l'heure affichée sur un site en particulier ?

Si ton but est de rechercher la date et l'heure UTC alors ceci devrait faire l'affaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
function GetUtcDateTime: TDateTime;
var Time : TSystemTime;
begin
  GetSystemTime(Time);
  Result := SystemTimeToDateTime(Time); 
end;

[Andnotor]

Pas de problème en IPv4 sur le port standard 123.

[cantador]

@popo :

C'est plutôt flou comme question.

oui, effectivement.
je reformule :

je souhaite qu'un PC se mette au jour et à l'heure automatiquement au démarrage d'une application.
car, si l'agent change la date et l'heure de son micro le code suivant ne donne pas la date et l'heure atomique
mais la date et heure de son micro tenant compte de sa modification.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function GetUtcDateTime: TDateTime;
var
  Time: TSystemTime;
begin
  GetSystemTime(Time);
  Result := SystemTimeToDateTime(Time);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(DateTimeToStr(GetUtcDateTime));
end;
 
end.

C'est la raison pour laquelle, je souhaite récupérer les date et heure atomiques quelque part
ou encore pouvoir exécuter la fonction windows qui déclenche la mise à jour internet des date et heure par le serveur time.windows.com
et l'idéal serait bien sûr lancer cette fonction dès l'instant où il y a effectivement une modification de la date.

merci

[pprem]

Je ne me souviens plus du nom exact du composant mais il y a un client NTP dans les composants Indy : TIdNTPClient ou un truc de ce genre. Ca permet d'interroger un service NTP (dont celui de Microsoft) pour en récupérer la date et l'heure officielles.

[cantador]

@pprem :

TidSNTP

ça ressemble à mon premier message
non ?