Discussion :

[UPNE387]

Bonjour à tous,
Je ne sais pas si je suis sur le bon forum, mais comme je développe en Delphi, voici la question :
- comment remettre le PC à l'heure à partir de l'heure d'un autre PC du réseau ?
Je sais manipuler les routines de gestion de l'heure sur le PC même, mais je voudrais que mon programme remette le PC à l'heure d'un serveur du réseau par exemple ou voire d'un autre PC.
Merci à l'avance.

[Maddelphi]

salut,

Regarde du coté de Net time

F1 le meilleur ami du programmeur (sous l'explorer)

[Bordelique]

Si tu utilise IdTime (composant de Indy) tu peux ajuster ton heure PC comme ceci (coté client....)

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
 
Var
  SysTime             : TSystemTime;
  tmpTime             : TDateTime;
  AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond : Word;
begin
  try
    IdTime1.Host := "Nom de domaine du serveur";
    IdTime1.Port := "N° de port du serveur : 37 en général....";
    IdTime1.TimeOut:=1000;
    tmpTime:=IdTime1.DateTime;
    IdTime1.Disconnect;
    DecodeDateTime(tmpTime,AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond);
    SysTime.wYear:=AYear;
    SysTime.wMonth:=AMonth;
    SysTime.wDay:=ADay;
    SysTime.wHour:=AHour;
    SysTime.wMinute:=AMinute;
    SysTime.wSecond:=ASecond;
    SysTime.wMilliseconds:=AMilliSecond;
    if SetSystemTime(SysTime)=false then " mise à l'heure OK..."
    else "mise à l'heure pas effectué..."
  except
    "mise à l'heure pas effectué..."
  end;
end;

Coté serveur, utilise un IdTimeServer, dans une application qui toune en toile de fond, tu verras c'est magic et surtout c'est pas plus compliqué que ça...
A+

[UPNE387]

Merci MadDelphi, j'ai opté pour cette solution qui fonctionne.
On ne pense plus aux bases.