Dienst, Sleep oder Timer

[hoika]

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