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 ?

[pprem]

ça ressemble à mon premier message non ?

En effet et je ne comprends pas du tout pourquoi je n'ai pas vu les premiers échanges de cette discussion. Toutes mes excuses.

Du coup j'ai fait quelques recherches et il est possible que le port ne soit pas le bon ou tout bêtement que time.windows.com ne le gère pas comme tu l'espérais (ou ne réponde toujours). Tu peux essayer avec pool.ntp.org que j'utilise sur mes serveurs.

Tu auras probablement des pistes en lisant
https://stackoverflow.com/questions/...time-in-delphi

[ShaiLeTroll]

TIdSNTP c'est ce qui remplace TIdDayTime ?

[cantador]

@pprm :
j'avais vu l'article de StackOverFlow.
et j'ai testé leurs solutions
mais rien ne fonctionne..
il doit bien y avoir une API windows qui fait le travail avec Time.windows.com..
merci quand même.
cantador

[cantador]

@ShaiLeTroll :

ça fonctionne avec TIdDayTime
et je n'ai pas de blocage pour l'instant..
juste un souci, le programme ne tient pas compte du changement d'heure..