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:

Zitat von luisk (Beitrag 1241015)

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.

[Bernhard Geyer]

Zitat:

Zitat von luisk (Beitrag 1241020)

Gibts da was neueres ?

Dutzendes. Siehe Link in Post #4

[luisk]

ok, Danke IdTime läuft und ist aktueller.

Das Datum der Windows-Dateien ist auch ne gut Idee doppelt hält besser

[ulilüding]

Software ohne gültige Lizenz zu verwenden ist etwas für nicht nette Leute. Und die finden wohl auch immer einen Weg, dem Rechner, auf dem Dein Programm läuft, ein falsches Datum vorzugaukeln. Daher halte ich die Idee, solches Treiben IM HINTERGRUND zu überprüfen, für die bessere Wahl. Siehe die Idee von B. Geyer. Idealerweise ist es Dein eigenes Programm, das regelmäßig die besagte Datei schreibt und dabei überprüft, ob es eine Version dieser Datei mit neuerem Datum gibt. Aber auch das bekommt man schnell heraus. Also solltest Du Dir die Konsequenzen für den ertappten Täter überlegen (von eMail an Dich - kann man auch wieder verhindern - bis hin zu Dingen tief in den Eingeweiden des besagten Rechners - evtl. juriustisch fraglich). Am besten macht man Geschäfte mit vertrauenswürdigen Leuten. LGU

[Bernhard Geyer]

Zitat:

Zitat von ulilüding (Beitrag 1241063)

... bis hin zu Dingen tief in den Eingeweiden des besagten Rechners - evtl. juriustisch fraglich).

Wäre Computersabotage. Würde ich nicht machen. Kann auch schnell nach hinten los gehen (Anklage wegen Schadensersatz bei fehlerhafter Prüfung).

Zitat:

Zitat von ulilüding (Beitrag 1241063)

Am besten macht man Geschäfte mit vertrauenswürdigen Leuten. LGU

Und woran erkennt man diese?

[Furtbichler]

Zitat:

Zitat von Bernhard Geyer (Beitrag 1241065)

Zitat:

Zitat von ulilüding (Beitrag 1241063)

Am besten macht man Geschäfte mit vertrauenswürdigen Leuten. LGU

Und woran erkennt man diese?

Fragebogen, machen die Amis mit Terroristen ja auch:
[ ] Haben Sie jemals versucht, Softwareschutzmechanismen zu umgehen?
[ ] Sind Sie ein Raubkopierer?
[ ] Besuchen Sie Märkte in osteuropäischen oder asiatischen Ländern?