Datum aus dem Internet

[luisk]

Hallo,
kann mir jemand sagen, wie ich am Besten das aktuelle Datum über Delphi aus dem Internet lesen kann?
so bekomme ich nur die Zeit:

Delphi-Quellcode:

NMTime1.Host := 'ptbtime2.ptb.de';
l_AtomZeit := NMTime1.TimeStr;

[himitsu]

Was ist denn NMTime1?

Schonmal geschaut, oder es noch was Anderes, außer TimeStr kennt?



TIdTime.DateTime

[luisk]

NMTime1 kennt nur TimeStr - leider.

[Bernhard Geyer]

Ist das überhaupt noch nötig? Windows kann man schon lange so konfigurieren das es sich selbst die Zeit von einem NTP-Server holt.
Wieso sowas dann selbst machen wenn das schon im OS eingebaut ist.

Ansonsten: Google mal nach "ntp delphi client" und du findest einiges an Hinweisen.
Ganz einfach ist das z.B. hier beschrieben.

[luisk]

es geht mir nicht um die Zeit, sondern um das Datum.
Das soll von Usern nicht verstellt werden können, sondern vom Delphi-Programm immer beim Start
richtig eingestellt werden können. Verfallene Lizenzen sollen damit nicht umgangen werden können.

[himitsu]

Dann leite ich deine Anfrage an den NTP-Server um, an meinen Eigenen (TIdTimeServer), und geb dem die falsche Zeit.
Ist nur eine kurze Zeile dafür nötig, damit Windows das für mich macht.

Wenn die Zeit im Windows nicht verstellt werden darf, dann nimmt man dem Benutzer die Rechte dafür weg.


Und wenn du nichtmal verraten willst, was dieses NMTime1 eigentlich ist, kann dir kaum einer helfen.

[Furtbichler]

NMTime erinnert mich an NetMaster, irgensone schrullige Komponentenschießmichtot von Delphiannodazumal (um es mal ganz präzise zu formulieren).

[hathor]

Gerade getestet: Funktioniert!

Wichtig!
SyncTime funktioniert nur, wenn man das Programm mit Rechtsklick "Als Administrator ausführen" startet!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
//BaseDate= '01.01.1900';
  try
    IdTime1.Host := 'ptbtime1.ptb.de';
       Label1.Caption := TimeToStr(IdTime1.DateTime);  
       Label2.Caption := DateToStr(IdTime1.DateTime);
    IdTime1.SyncTime ;
  finally
    IdTime1.Disconnect;
  end;
end;

[luisk]

Unit NMTime
Beschreibung
Die Komponente TNMTime wird zum Abrufen der Uhrzeit von Internet-Zeit-Servern, wie in RFC 868 beschrieben, verwendet.

ist ne Komponente aus Fastnet. Ja, uralt !

Gibts da was neueres ?

[Bernhard Geyer]

Zitat von luisk:

es geht mir nicht um die Zeit, sondern um das Datum.
Das soll von Usern nicht verstellt werden können, sondern vom Delphi-Programm immer beim Start
richtig eingestellt werden können. Verfallene Lizenzen sollen damit nicht umgangen werden können.

Ah. D.h. ich setze meinen eigenen NTP-Server auf, ändere die lmhost-Datei und freu mich das die Lizenz nicht mehr abläuft.
Andere Lizenzierungskomponenten(AFAIK FlexLM) macht das so das es prüft ob irgendeine Windows-Datei neuer ist als das aktuelle Datum.