AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Suche Scheduler Timer Komponente

Ein Thema von bekrause · begonnen am 7. Mai 2015 · letzter Beitrag vom 8. Mai 2015
Antwort Antwort
bekrause

Registriert seit: 31. Mär 2003
Ort: Essen
24 Beiträge
 
Delphi XE Professional
 
#1

Suche Scheduler Timer Komponente

  Alt 7. Mai 2015, 08:23
Guten Morgen,
ich bin auf der Suche nach einer Komponente, die ähnlich wir ein TTimer funktioniert. Der unterschied soll darin bestehen, dass ich der Komponente, ein TDateTime übergeben möchte, an der ein Event ausgelöst werden soll. Am liebsten noch im der Angabe von intervallen (Auslösen jeden Monat, jeden Tag, jede Stunde o.ä.)

Ich könnte das natürlich mit einem TTimer selber realisieren und einer eigene Klasse schreiben. Aber ich dachte, ein wenig Marktforschung vorher kann nicht schaden.

(Gesucht habe ich übrigens schon)

Gruß Benno
Lernen, ohne zu denken, ist eitel; denken, ohne zu lernen, ist gefährlich. Konfuzius
  Mit Zitat antworten Zitat
hathor
(Gast)

n/a Beiträge
 
#2

AW: Suche Scheduler Timer Komponente

  Alt 7. Mai 2015, 10:54
Schau mal hier rein:
http://delphi.icm.edu.pl/ftp/d50free/TaskSched.zip
(in TaskSched.pas: uses Variants hinzufügen)

Threads mit SetWaitableTimer gibt es hier massenhaft.
  Mit Zitat antworten Zitat
SvB

Registriert seit: 21. Okt 2004
Ort: Eckenroth
425 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#3

AW: Suche Scheduler Timer Komponente

  Alt 8. Mai 2015, 09:53
Da gibt es auch in den JEDIs das TJvScheduledEvents

Ich mach das z.B. so:
Delphi-Quellcode:
FJvScheduledEvents: TJvScheduledEvents;
dTime := StrToTime('17:30:00');
with FJvScheduledEvents.Events.Add do begin
   Name := 'IrgendeinName';
   Schedule.RecurringType := srkWeekly;
   Schedule.StartDate := DateTimeToTimeStamp(now());
   Schedule.EndType := sekNone;
   (Schedule as IJclWeeklySchedule).DaysOfWeek := [swdTuesday];
   (Schedule as IJclWeeklySchedule).Interval := 1;
   (Schedule as IJclScheduleDayFrequency).StartTime := MilliSecondOfTheDay(dTime);
   (Schedule as IJclScheduleDayFrequency).EndTime := MilliSecondOfTheDay(dTime);
   (Schedule as IJclScheduleDayFrequency).Interval := 1;
   OnExecute := ScheduleEvent;
end;

procedure ScheduleEvent(Sender: TJvEventCollectionItem; const IsSnoozeEvent: Boolean);
begin
  if TJvEventCollectionItem(Sender).Name = 'IrgendeinNamethen begin
    // mach was
  end;
end;

oder einfach über die Eigenschaften der Komponente
Sven

Alle sagen, das geht nicht. Da kam einer, der wusste das nicht und hat es gemacht.
  Mit Zitat antworten Zitat
bekrause

Registriert seit: 31. Mär 2003
Ort: Essen
24 Beiträge
 
Delphi XE Professional
 
#4

AW: Suche Scheduler Timer Komponente

  Alt 8. Mai 2015, 10:09
Danke, das war genau das, was ich gesucht habe.

Lernen, ohne zu denken, ist eitel; denken, ohne zu lernen, ist gefährlich. Konfuzius
  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 08:06 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf