Accueil > > > TIMESERVER V1.0.3
TIMESERVER V1.0.3
Information sur la source
Description
Un programme ridiculement simple par rapport au service qu'il rend !
Se connecte à des serveurs de temps de type strate2 ( liste sur http://www.cru.fr/services/ntp/serveurs_francais ) et vous retourne la date et l'heure d'une horloge atomique.
Vous permet également de synchroniser votre PC avec l'heure atomique.
Projet basé sur le super article suivant : ftp://ftp-developpez.com/svaillant/delphi_datetime /svaillant-datetime.pdf
Source
- Version : 1.0.3
- Date : 08 Mars 2010
-
- Micro Projet 03 - On utilise un composant Indy (TidSNTP) pour se connecter à un
- serveur de temps de type strate 2 pour récupérer la date et l'heure provenant
- d'une horloge atomique. Le composant bug dans les versions 6 et moins de Delphi,
- pour y remédier il faut avoir au moins la version 9.0 des composants Indy. Il
- faut avoir les droits d'administrateur pour changer l'heure et la date du PC.
- ===============================================================================}
- unit f_main;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient,
- IdSNTP, ExtCtrls;
-
- type
- TTimeServ = class(TForm)
- SNTP: TIdSNTP;
- ListeServeur: TListBox;
- ServeurNameBox: TGroupBox;
- LabServeur: TLabel;
- LocalBox: TGroupBox;
- LabDateLocale: TLabel;
- LabHeureLocale: TLabel;
- ServeurBox: TGroupBox;
- LabDateServeur: TLabel;
- LabHeureServeur: TLabel;
- BtnSysTime: TButton;
- Timer: TTimer;
- procedure FormCreate(Sender: TObject);
- procedure ListeServeurClick(Sender: TObject);
- procedure TimerTimer(Sender: TObject);
- procedure BtnSysTimeClick(Sender: TObject);
- private
- { Déclarations privées }
- public
- { Déclarations publiques }
- end;
-
- var
- TimeServ: TTimeServ;
-
- implementation
-
- {$R *.dfm}
- {$R 'Resources\UAC_Manifest.RES'} // Pour avoir les droits d'administrateur
-
- procedure TTimeServ.ListeServeurClick(Sender: TObject);
- begin
- // On affiche le nom du serveur sélectionné
- LabServeur.Caption := ListeServeur.Items[ListeServeur.ItemIndex];
- // On déclare le nom du serveur au composant TidSNTP
- SNTP.Host := ListeServeur.Items[ListeServeur.ItemIndex];
- end;
-
- // Interval = 100 donc on va exécuter cette routine 10 fois par seconde
- procedure TTimeServ.TimerTimer(Sender: TObject);
- var Date1 : TDateTime;
- begin
- // L'instant présent
- Date1 := Now;
- // On affiche la date locale
- LabDateLocale.Caption := DateToStr(Date1);
- // On affiche l'heure locale
- LabHeureLocale.Caption := TimeToStr(Date1);
- // On affiche la date du serveur de temps
- LabDateServeur.Caption := DateToStr(SNTP.DateTime);
- // On affiche l'heure du serveur de temps
- LabHeureServeur.Caption := TimeToStr(SNTP.DateTime);
- end;
-
- procedure TTimeServ.BtnSysTimeClick(Sender: TObject);
- var SysTime : TSystemTime;
- begin
- // On utilise une fonction interne du composant pour changer l'heure locale
- SNTP.SyncTime;
- end;
-
- procedure TTimeServ.FormCreate(Sender: TObject);
- begin
- // Teste si "servers.txt" est présent dans le répertoire courant
- if not FileExists(GetCurrentDir+'\servers.txt') then
- begin
- // Si le fichier n'existe pas dans notre répertoire, on le signale
- ShowMessage('le fichier "servers.txt" n''est pas dans le répertoire');
- // Et on met fin à l'application
- Application.Terminate;
- end
- else
- begin
- // On charge la liste des serveurs depuis le répertoire courant
- ListeServeur.Items.LoadFromFile(GetCurrentDir+'\servers.txt');
- // On sélectionne le premier serveur de la liste
- ListeServeur.ItemIndex := 0;
- // On affiche le nom du serveur sélectionné
- LabServeur.Caption := ListeServeur.Items[ListeServeur.ItemIndex];
- // On déclare le nom du serveur au composant TidSNTP
- SNTP.Host := ListeServeur.Items[ListeServeur.ItemIndex];
- SNTP.Active := True;
- end;
- end;
-
- end.
Version : 1.0.3
Date : 08 Mars 2010
Micro Projet 03 - On utilise un composant Indy (TidSNTP) pour se connecter à un
serveur de temps de type strate 2 pour récupérer la date et l'heure provenant
d'une horloge atomique. Le composant bug dans les versions 6 et moins de Delphi,
pour y remédier il faut avoir au moins la version 9.0 des composants Indy. Il
faut avoir les droits d'administrateur pour changer l'heure et la date du PC.
===============================================================================}
unit f_main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient,
IdSNTP, ExtCtrls;
type
TTimeServ = class(TForm)
SNTP: TIdSNTP;
ListeServeur: TListBox;
ServeurNameBox: TGroupBox;
LabServeur: TLabel;
LocalBox: TGroupBox;
LabDateLocale: TLabel;
LabHeureLocale: TLabel;
ServeurBox: TGroupBox;
LabDateServeur: TLabel;
LabHeureServeur: TLabel;
BtnSysTime: TButton;
Timer: TTimer;
procedure FormCreate(Sender: TObject);
procedure ListeServeurClick(Sender: TObject);
procedure TimerTimer(Sender: TObject);
procedure BtnSysTimeClick(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
TimeServ: TTimeServ;
implementation
{$R *.dfm}
{$R 'Resources\UAC_Manifest.RES'} // Pour avoir les droits d'administrateur
procedure TTimeServ.ListeServeurClick(Sender: TObject);
begin
// On affiche le nom du serveur sélectionné
LabServeur.Caption := ListeServeur.Items[ListeServeur.ItemIndex];
// On déclare le nom du serveur au composant TidSNTP
SNTP.Host := ListeServeur.Items[ListeServeur.ItemIndex];
end;
// Interval = 100 donc on va exécuter cette routine 10 fois par seconde
procedure TTimeServ.TimerTimer(Sender: TObject);
var Date1 : TDateTime;
begin
// L'instant présent
Date1 := Now;
// On affiche la date locale
LabDateLocale.Caption := DateToStr(Date1);
// On affiche l'heure locale
LabHeureLocale.Caption := TimeToStr(Date1);
// On affiche la date du serveur de temps
LabDateServeur.Caption := DateToStr(SNTP.DateTime);
// On affiche l'heure du serveur de temps
LabHeureServeur.Caption := TimeToStr(SNTP.DateTime);
end;
procedure TTimeServ.BtnSysTimeClick(Sender: TObject);
var SysTime : TSystemTime;
begin
// On utilise une fonction interne du composant pour changer l'heure locale
SNTP.SyncTime;
end;
procedure TTimeServ.FormCreate(Sender: TObject);
begin
// Teste si "servers.txt" est présent dans le répertoire courant
if not FileExists(GetCurrentDir+'\servers.txt') then
begin
// Si le fichier n'existe pas dans notre répertoire, on le signale
ShowMessage('le fichier "servers.txt" n''est pas dans le répertoire');
// Et on met fin à l'application
Application.Terminate;
end
else
begin
// On charge la liste des serveurs depuis le répertoire courant
ListeServeur.Items.LoadFromFile(GetCurrentDir+'\servers.txt');
// On sélectionne le premier serveur de la liste
ListeServeur.ItemIndex := 0;
// On affiche le nom du serveur sélectionné
LabServeur.Caption := ListeServeur.Items[ListeServeur.ItemIndex];
// On déclare le nom du serveur au composant TidSNTP
SNTP.Host := ListeServeur.Items[ListeServeur.ItemIndex];
SNTP.Active := True;
end;
end;
end.
Conclusion
Toujours à l'heure juste maintenant :)
Historique
- 08 mars 2010 22:22:25 :
- Ajout du fichier des serveurs
- 08 mars 2010 22:41:34 :
- Correction d'un bug
- 10 mars 2010 12:04:15 :
- Correction du code
- 11 mars 2010 16:03:11 :
- Utilisation d'une fonction interne au TidSNTP pour modifier l'heure.
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
date et heure d'un fichier [ par JCLK ]
salut à tousJe voudrais savoir comment récupérer la date et l'heure de modification d'un fichier.merci beaucoup
Gestion l'heure et date en client et serverur [ par scorpion103 ]
Salut!!J?aimerais savoir comment travailler avec NMTime NMDayTime pour connaître l?heure et la date sur mon serveur et pour synchronisé (heure, da
prob de conversion de date [ par patof ]
je voudrai mettre a jour l heure du pc avec l heure du serveur intranet, mais ce que je récupère est une string de la forme : "Monday, April 14, 2003
datetime et sybase [ par ohmonbateau ]
bonjour, j'essaie de transférer une date(format datetime) d'une db sybase ASE vers un champ datetime d'une db Sybase ASA. J'utilise ADO et je travail
Plannifier une action de mon application [ par josserand ]
Bonjour !!J'ai besoin de votre aide :Je dois envoyer un mail à une date et heure donnée.Donc mon application est lancée, date et heure d'envoie saisie
DateToStr [ par mathieu57100 ]
bonjour, dans mon appli, j'envoie un email (avec IdMessage et IdSMTP) dans lequel je veux afficher la date et l'heure...IdMessage.Body.Add('Le ' + Dat
date et heure [ par guigui265 ]
bonjourJe voudrait savoir comment afficher dans un label la date et l'heure en temps réel.merci
Date et heure...; [ par XgaletteX ]
Bonjour, Je dois sauvegarder des fichiers, en précisant dans leur nom la date et l'heure de création, le pb c'est que lorsq
Date et heure...; [ par XgaletteX ]
Bonjour, Je dois sauvegarder des fichiers, en précisant dans leur nom la date et l'heure de création, le pb c'est que lorsq
DateTimePicker [ par selma-elec ]
Bonjour,je voudrais abec un DateTimePicker pouvoir saisir une date ansi que l'heure.J'ai bien mis KIND = DTKTimeet Format = dd/MM/yyyy hh:mm.Pas de pr
|
Derniers Blogs
TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko [FRAMEWORK 4] LES TASKS ET LE THREAD UI[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi
Je viens de passer quelques temps au TechDay's et j'ai pu voir pas mal de session intéressante. Par contre une chose m'a un peu étonné lors de certaines de ces sessions qui abordaient les améliorations du framework .NET (donc le 4.5) : en gros, bea...
Cliquez pour lire la suite de l'article par fathi WORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBEWORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBE par JeremyJeanson
Depuis déjà un an, je conseille vivement les utilisateurs de Workflow Foundation 3 à migrer vers la version 4. L'information qui va suivre ne devrait donc pas trop prendre au dépourvu les personnes qui m'ont suivi. Je profite de ce poste, pour faire le re...
Cliquez pour lire la suite de l'article par JeremyJeanson TECHDAYS PARIS 2012 : NOUVELLES TENDANCES DU POSTE DE TRAVAIL - BRING YOUR OWN PCTECHDAYS PARIS 2012 : NOUVELLES TENDANCES DU POSTE DE TRAVAIL - BRING YOUR OWN PC par ROMELARD Fabrice
Speakers: Thierry Rapatout, Antoine Petit et Xavier Trebbia Cette session entre dans le cadre des RDV Décideurs des TechDays 2012, elle est liée à la consumérisation de l'IT et la mise en place du "DeskTop as a Service" dans de plus en ...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|