AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Internet Zeit

Offene Frage von "lima"
Ein Thema von stone rock · begonnen am 13. Okt 2007 · letzter Beitrag vom 14. Nov 2008
Antwort Antwort
stone rock

Registriert seit: 13. Okt 2007
5 Beiträge
 
#1

Internet Zeit

  Alt 13. Okt 2007, 22:15
Hallo,

moechte gerne in meinem program die internet zeit ( oder heisst diese Atomzeit) einlesen.

Wie geht das am einfachsten? bin da beim googlen ueber Indy gestossen.
IdTime....

Leider weiss ich nicht wie ich diese verwenden soll.

ich sollte da ein beispiel haben, wie dies angewendet wird und welche parameter da gebraucht werden.

Ist das dann eine variable, welche deklariert werden muss?

Sorry, ich weiss es nicht besser.

danke fuer eure hilfe.

gruss
Martin

PS: verwende Delphi 7 Personal
  Mit Zitat antworten Zitat
Benutzerbild von arbu man
arbu man

Registriert seit: 3. Nov 2004
Ort: Krefeld
1.108 Beiträge
 
Delphi 7 Professional
 
#2

Re: Internet Zeit

  Alt 13. Okt 2007, 22:17
Indy Demos anschauen, da gibt es eine die das macht.

mfg, Björn
Björn
>> http://bsnx.net <<
Virtual DP Stammtisch v1.0"iw" am 19.09.2007 - ich war dabei!
  Mit Zitat antworten Zitat
stone rock

Registriert seit: 13. Okt 2007
5 Beiträge
 
#3

Re: Internet Zeit

  Alt 16. Okt 2007, 02:01
Danke - habe die Indy in meine form gezogen. Nun erkennt es Idtime1 - Danke.

mein code soweit:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);

var
  AtomZeit: String;
begin
  IdDayTime1.Host := 'ptbtime1.ptb.de';
  AtomZeit := IdDayTime1.DayTimeStr;
  IdTime1.Disconnect;
  try
     Label1.Caption := AtomZeit;
  except
    Writeln('Fehler beim lesen des Zeit Servers ');
  end;

wenn ich die procedure ausfuehre kommt:
Socket Error #10061 conection refused.

Weisst du hier was zu tun ist?

Danke fuer die Hilfe.

Gruss
Martin
  Mit Zitat antworten Zitat
Benutzerbild von WordsBG
WordsBG

Registriert seit: 17. Sep 2005
63 Beiträge
 
Delphi 7 Professional
 
#4

Re: Internet Zeit

  Alt 16. Okt 2007, 03:14
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    IdTime1.Host := 'ptbtime1.ptb.de';
    lbTime.Caption := TimeToStr(IdTime1.DateTime);
  finally
    IdTime1.Disconnect;
  end;
end;
geht bei mir einwandfrei. Diese Zeit ist allerdings mitnichten die Atomzeit sondern die normale Serverzeit die per NTP (Networktimeprotocol) zu dir gesendet wird. Sofern der Server also nicht explizit angiebt das die Zeit genau ist, muss sie es nicht sein. Du kannst solche Server auch selbst basteln mit den Indis, siehe dazu TIdTimeServer.
  Mit Zitat antworten Zitat
stone rock

Registriert seit: 13. Okt 2007
5 Beiträge
 
#5

Re: Internet Zeit

  Alt 20. Okt 2007, 01:20
Danke. Funktioniert super!

Ich hatte vorher CodeGear RAD studio 2007 (dachte es waer Delphi 7 - sorry) verwendet und dort kommt immer socket error.....

Hab deinen code dann aber mit Delphi 5 probiert und siehe da, keine fehlermeldung mehr.

Learning's : denke ich deinstalliere das 2007. Vieleicht kommt die fehlermeldung auch nur wegen dem indy 10.
Doch da ich nicht weiss, wie man das aendert, bleib ich bei Delphi 5.

Nochmals Danke fuer deine nuetzliche Hilfe.

Gruss
Martin
  Mit Zitat antworten Zitat
lima

Registriert seit: 30. Dez 2002
32 Beiträge
 
Delphi 2007 Enterprise
 
#6

Re: Internet Zeit

  Alt 14. Nov 2008, 14:40
Ist zwar ein altes Thema, aber folgendes:

An was kann das liegen, wenn man den Code von WordsBG nutzt, aber die Zeit nicht synchronisiert wird, sondern sich das Programm aufhängt? Bin als Administrator angemeldet und hab auch die Komponente "IdTime1" eingebunden.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:36 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf