Problem bei TJclTaskTrigger

[alzaimar]

Zitat:

Zitat von Angel4585

und bevor ihr fragt: TTasktrigger ist ein Record und muss daher nicht erzeugt werden ;)

Ach, und wieso ist das dann nil? :gruebel:

[Angel4585]

TTaskTrigger ist ein record. Dieses wird über eine Getter Methode geladen:

In MSTask:

Delphi-Quellcode:

type
{$EXTERNALSYM _TASK_TRIGGER}
  _TASK_TRIGGER = record // SP: removed packed record statement as seemed to affect SetTrigger
    cbTriggerSize: WORD; // Structure size.
    Reserved1: WORD; // Reserved. Must be zero.
    wBeginYear: WORD; // Trigger beginning date year.
    wBeginMonth: WORD; // Trigger beginning date month.
    wBeginDay: WORD; // Trigger beginning date day.
    wEndYear: WORD; // Optional trigger ending date year.
    wEndMonth: WORD; // Optional trigger ending date month.
    wEndDay: WORD; // Optional trigger ending date day.
    wStartHour: WORD; // Run bracket start time hour.
    wStartMinute: WORD; // Run bracket start time minute.
    MinutesDuration: DWORD; // Duration of run bracket.
    MinutesInterval: DWORD; // Run bracket repetition interval.
    rgFlags: DWORD; // Trigger flags.
    TriggerType: TASK_TRIGGER_TYPE; // Trigger type.
    Type_: TRIGGER_TYPE_UNION; // Trigger data.
    Reserved2: WORD; // Reserved. Must be zero.
    wRandomMinutesInterval: WORD; // Maximum number of random minutes
                                   // after start time.

  end;
{$EXTERNALSYM TASK_TRIGGER}
  TASK_TRIGGER = _TASK_TRIGGER;
  TTaskTrigger = _TASK_TRIGGER;

In JclTask:

Delphi-Quellcode:

  TJclTaskTrigger = class(TCollectionItem)
  private
    FTaskTrigger: ITaskTrigger;
    procedure SetTaskTrigger(const Value: ITaskTrigger);
    function GetTrigger: TTaskTrigger;
    procedure SetTrigger(const Value: TTaskTrigger);
    function GetTriggerString: WideString;
  public
    property TaskTrigger: ITaskTrigger read FTaskTrigger;
    property Trigger: TTaskTrigger read GetTrigger write SetTrigger;
    property TriggerString: WideString read GetTriggerString;
  end;

Delphi sagt mir aber das die GetTrigger Methode vom Linker entfernt wurde, obwohl ich die Optimierung ausgeschaltet habe(!) :wall:

[alzaimar]

Wie sieht GetTrigger aus? Irgendwoher muss das 'Nil' ja kommen...

[Angel4585]

Delphi-Quellcode:

function TJclTaskTrigger.GetTrigger: TTaskTrigger;
begin
  Result.cbTriggerSize := SizeOf(Result);
  OleCheck(TaskTrigger.GetTrigger(Result));
end;

tasktrigger ist ein Interface vllt arbeitet das nichtnkorrekt.. ich probier das ganze mal auf Win XP, bin hier auf Vista..

[Angel4585]

OK, habs getestet, aber auf Windows XP kommt der gleiche Fehler :(

[frank-wob]

Hallo,

versuchs mal so:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
   myTask:TJclTaskSchedule;
   ATask:TJclScheduledTask;
   piNewTrigger:Word;
   ppTrigger:ITaskTrigger;
   pTrigger:_TASK_TRIGGER;
   myYear:Word;
   myMonth:Word;
   myDay:Word;
   myTriggerTypeUnion:TRIGGER_TYPE_UNION;
   myWeekly:TWeekly;
begin
     myTask:=TJclTaskSchedule.Create;
     ATask:=myTask.Add('Test Task');

     ATask.ApplicationName:='C:\Windows\notepad.exe';
     ATask.WorkingDirectory:='C:\windows\';
     //ATask.AccountName:='';
     //ATask.Password:='';
     ATask.ScheduledWorkItem.CreateTrigger(piNewTrigger,ppTrigger);

     DecodeDate(Now,myYear,myMonth,myDay);

     ZeroMemory(@pTrigger, sizeof(TASK_TRIGGER));
     pTrigger.cbTriggerSize:=sizeof(TASK_TRIGGER);;
     pTrigger.Reserved1:=0;
     pTrigger.wBeginYear:=myYear;
     pTrigger.wBeginMonth:=myMonth;
     pTrigger.wBeginDay:=myDay;
     pTrigger.wEndYear:=0;
     pTrigger.wEndMonth:=0;
     pTrigger.wEndDay:=0;
     pTrigger.wStartHour:=10;
     pTrigger.wStartMinute:=00;
     pTrigger.MinutesDuration := 0;
     pTrigger.MinutesInterval := 0;
     pTrigger.rgFlags := 0;
     pTrigger.TriggerType:= TASK_TIME_TRIGGER_DAILY;
     MyWeekly.WeeksInterval:=1;
     MyWeekly.rgfDaysOfTheWeek:= TASK_SUNDAY +
                                 TASK_MONDAY +
                                 TASK_TUESDAY +
                                 TASK_WEDNESDAY +
                                 TASK_THURSDAY +
                                 TASK_FRIDAY +
                                 TASK_SATURDAY;
     MyTriggerTypeUnion.Weekly:=MyWeekly;
     pTrigger.Type_:= MyTriggerTypeUnion;
     pTrigger.Reserved2:=0;
     pTrigger.wRandomMinutesInterval := 0;

     ppTrigger.SetTrigger(pTrigger);

     ATask.Save;

     FreeAndNil(myTask);  
end;

Gruß Frank

[Angel4585]

Cool frank-wob, das bringt zumindest schonmal keine Fehlermeldung.

Allerdings wird weder das Programm, noch der Trigger in der Aufgabenplanung angezeigt :gruebel:

Edit: Unter XP gehts, unter Vista nicht :shock: :wall:

[Angel4585]

Ach mist und als normaler Benutzer kann man garkeine Tasks anlegen :(

[waldforest]

Hallo,
dennoch eine Frage,
mit welchem Flag, Parameter kann ich denn die Checkbox "nur Ausführen wenn angemeldet".setzten


Wenn ich den Task manuell anlege startet er sobal die Checkbox gesetzt ist,

mfg
waldforest