Hallo Andi,
ich bin dabei, aber wie vieles bei
JEDI ist
auch diese Klasse spärlich dokumentiert.
(Der Spruch kommt nicht von mir.)
Einige Sachen fehlen noch, bzw. sind intern schon drin
aber noch nicht nach aussen gelegt,
vielleicht aber auch noch nicht vollständig implementiert.
Ohne Kommentar:
Last modified: $Date: 2005/03/08 08:33:17 $
Das schlimmste ist, dass es kein Bsp. gibt ;(
Unten stehend meine bisherigen Versuche.
Beide properties liefern 14.11.2006 (Now) zurück.
Irgendein OnExecute habe ich im Code noch nicht gefunden.
Das intern interfaces benutzt werden, habe ich eh Probleme
Meine letzten Versuche damit endeten in schönen Schutzverletzungen.
Ein Versuch StartTime zu setzen, um pro Tag mehrere Events zu erzeugen,
versagten, weil das property zar in einer internen Klasse(und Interface) drinsteht,
aber nicht in der Scheduler-Klasse.
Ich erweitere gerade den Code, aber so richtig klappt nüscht ;(
Ich werde mal sehen, ob in der Entwickler-Version schon neues drin sit.
Zur benutze ich die 1.97.
Delphi-Quellcode:
var
JclSchedule: IJclSchedule;
begin
JclSchedule:= CreateSchedule;
JclSchedule.RecurringType:= srkDaily;
JclSchedule.StartDate:= DateTimeToTimeStamp(Now);
// to add some properties to listview
ListItem:= LV_Data.Items.Add;
ListItem.Caption:= 'NextEventFromNow';
tdtNextEventFromNow:= JclSchedule.NextEventFromNow;
if CompareTimeStamps(tdtNextEventFromNow, NullStamp)=0 then
begin
ListItem.SubItems.Add('no events found');
end
else
begin
ListItem.SubItems.Add(FormatDateTime('dd.mm.yyyy',
TimeStampToDateTime(tdtNextEventFromNow)));
end;
ListItem:= LV_Data.Items.Add;
ListItem.Caption:= 'LastTriggered';
tdtLastTriggered:= JclSchedule.LastTriggered;
if CompareTimeStamps(tdtLastTriggered, NullStamp)=0 then
begin
ListItem.SubItems.Add('no data')
end
else
begin
ListItem.SubItems.Add(
FormatDateTime('dd.mm.yyyy', TimeStampToDateTime(tdtLastTriggered)));
end;
Heiko