Zeitversetzt senden

[Thomas F]

Wie kann ich eine Email zeitversetzt senden.

Das normale Versenden mit Button.Onclick hab ich schon fertig und es funktioniert auch,

müßte nur noch , vermutlich mit TTimer , eine Zeit einstellen und dann verschicken.

z.B in 15 Minuten oder 21:00 Uhr

[Matze]

Hi,

wo ist nun dein Problem? Wenn du das Timer-Intervall auf 1000 ms setzt, kannst du eine Variable hochzählen lassen und nach x Sekunden eine Aktion ausführen. Die DateTime-Funktionen kannst du zum Vergleichen mit der Systemzeit verwenden.

Grüße, Matze

[Thomas F]

Zitat:

Zitat von Matze

Hi,

wo ist nun dein Problem? Wenn du das Timer-Intervall auf 1000 ms setzt, kannst du eine Variable hochzählen lassen und nach x Sekunden eine Aktion ausführen. Die DateTime-Funktionen kannst du zum Vergleichen mit der Systemzeit verwenden.

Grüße, Matze

Die Differenz aus Systemzeit und Versende_Zeit ermitteln, und dann mit dem Timer hochzählen.

[DeddyH]

In 15 Minuten -> Timer.Interval := 15000, zu einer bestimmten Uhrzeit könntest Du im Timer die aktuelle Zeit pollen und vergleichen (natürlich mit einer gewissen Toleranz).

[Noedel]

DeddyH
dir ist aber schon bewusst, dass 15.000 Millisekunden 15 Sekunden sind, oder ? :D
Wenn dann 900.000 ms ;)

[DeddyH]

:oops: klar

[Thomas F]

Zitat:

Zitat von DeddyH

In 15 Minuten -> Timer.Interval := 15000, zu einer bestimmten Uhrzeit könntest Du im Timer die aktuelle Zeit pollen und vergleichen (natürlich mit einer gewissen Toleranz).

Delphi-Quellcode:

procedure TForm1.Zeitversetzt_Senden;
var Systemzeit,Systemzeit_Datum,Versende_Zeit_Datum,Versende_Zeit,Differenz:TDatetime;
begin
Systemzeit:=Time;
Systemzeit_Datum:=Date;
Versende_Zeit:= Datetimepicker2.Time;
Versende_Zeit_Datum:=Datetimepicker1.Date;
If   Systemzeit_Datum =  Versende_Zeit_Datum then
Differenz:= Versende_Zeit - Systemzeit;
end;

aber wie rechnet man die Differenz in Timer1.Intervall um , wenn Timer1.Intervall:=1000 ist ?????

[DeddyH]

Musst Du doch gar nicht. Wie schon beschrieben, merk Dir die "Startzeit" und schau im Timer nach, ob sie erreicht ist.

[Thomas F]

Zitat:

Zitat von DeddyH

Musst Du doch gar nicht. Wie schon beschrieben, merk Dir die "Startzeit" und schau im Timer nach, ob sie erreicht ist.

Achso, jetzt hab ichs kapiert.....

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval:= 1000;
if Systemzeit = Versende_Zeit then
Zeitversetzt_Senden; 

end;

[DeddyH]

Das wird so wahrscheinlich nicht funktionieren, Du solltest auf größer oder gleich abfragen.