Timer

[deagel]

hallo

ich beschäftige mich erst seit ein paar monaten mit delphi und habe im moment ein kleines problem:

ich habe ein feld angelegt in das ich eine ZEit eingeben kann.
des weiteren möchte ich meine Sysstemzeit auslesen lassen. dann soll delphi diese beiden zeiten vergleicen und wenn die Systemzeit dann gleich der von mir gewählten zeit ist, dann soll das programm eine procedure starten.

Wie geht das, ich bitte um eure hilfe....
danke...

MfG
deagel

[Dagon]

Hallo

So kannst du die Systemzeit anzeigen: TimeToStr(Now)

[deagel]

thx, wie kann ich dann die zeit mit meiner eingabe vergleichen und dann die procedure starten lassen, wenn die zeit erreicht ist?

und ist es möglich die Urzeit eines servers anzeigen zu lassen, also eines rechners generell der im www hängt.???

[Niels]

Moin!

Guck dir mal in der Delphi Hilfe die Funktion CompareTime an. Die ist direkt fürs Vergleichen gedacht.

Du kannste auch die Daten mit DateTimeToTimeStamp in nen TimeStamp umwandeln (is ne längere Zahl und wird im Internet meist benutzt) und dann die beiden vergleichen

[edit]Wie meinste das mit dem Server? Willste die Zeit von außen abfragen?[/edit]

[edit2]verschrieben[/edit2]

[deagel]

jo genau ich will das das proggy mir die systemzeit eines im www hängenden Pcs anzeigt.
wie kann ich machen das zeit.text:=TimeToStr(Now); mitläuft und nicht unverändert dann da steht?

[Niels]

Moin!

Du kannst mit nem Timer alle n Sekunden die Systemzeit prüfen und mit der im Editor vergleichen.

MfG Niels

[deagel]

procedure TForm1.Timer1Timer(Sender: TObject);
begin

end;

end.


das da oben steht da wenn ich auf den timer doppelklicke....jetzt bitte ich euch drum das mal so zu modden das er funktionieren würde, und ich es dann auch verstehe...

danke.

[Niels]

Zuerst stellste im OI ein, in welchem Zeitabstand der diese Prozedur ausführen soll (Zeit in ms).

In die Prozedur muss nur der Vergleich zwischen den beiden Zeiten rein.

MfG Niels

[deagel]

jo das ich nen vergleich brauche iss mir schon klar nur weiss ich leider net wie genau das aussehen soll.

ich hab ein feld namens zeit in dem die zeit eingetippt wird. könnte mir jmd bitte den quelltext hier posten, und etwas erklären, dass selbst ich als delphi noob verstehe?danke
also ich denke an ein konkretes beispiel danke...

wie verknüpfe ich den timer mit dem eingabe fenster und wie stelle ich esan dass er die procedure die normal über knopfdruck beginnt durch den timer ins laufen gebracht wird?

[Niels]

Moin!

Also du machst das folgendermaßen

Delphi-Quellcode:

if DateTimeToTimeStamp(StrToTime(Edit1.Text)).Time < DateTimeToTimeStamp(now).Time then // wenn Zeit im Edit-Feld kleiner als aktuelle
    //mach was
  else
    //mach was anderes