Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Problem bei TJclTaskTrigger (https://www.delphipraxis.net/118022-problem-bei-tjcltasktrigger.html)

Angel4585 30. Jul 2008 08:02


Problem bei TJclTaskTrigger
 
Hallo,

ich möchte mir gerade einen Scheduler basteln und dazu die Aufgabenplanung von Windows nutzen.
Darauf zugreifen möchte ich mit der JCL-Komponente: TJclTaskSchedule;

Aktuell sieht das so aus:

Delphi-Quellcode:
var
t : TJclTaskTrigger;
tlist : TJclTaskTriggers;
LTask : TJclScheduledTask;
begin
FSchedule := TJclTaskSchedule.Create;
LTask := FSchedule.Add('Scheduletest');
tlist := TJclTaskTriggers.Create(LTask);
t := tlist.Add;
with t.Trigger do //Zugriffsverletzung bei Adresse 0
  begin
  wBeginYear:=2008;
  wBeginMonth:=7;
  wBeginDay:=30;
  wStartHour:=8;
  wStartMinute:=30;
  wEndYear:=2008;
  wEndMonth:=7;
  wEndDay:=31;
  Type_.Daily.DaysInterval:=1;
  TriggerType:=TASK_TIME_TRIGGER_DAILY;
  end;
with LTask do
  begin
  ApplicationName:='C:\Programme\Programm.exe';
  WorkingDirectory:='C:\Programme\';
  AccountName:='Benutzer';
  Password:='Passwort';
  Save;
  end;
In der markierten Zeile kommt eben eine Zugriffsverletzung und ich weis nicht warum.

t ist nicht nil, wird ja ne Zeile drüber erst erzeugt und Trigger ist ne Property die über ne Getter Methode ein Record holt.

DeddyH 30. Jul 2008 08:12

Re: Problem bei TJclTaskTrigger
 
Ich weiß nicht, ob das jetzt die Ursache ist, aber ich würde tlist mal umbenennen, es gibt ja bereits eine gleichnamige Klasse.

Angel4585 30. Jul 2008 08:19

Re: Problem bei TJclTaskTrigger
 
ok habs umbenannt in xList aber der Fehler kommt trotzdem noch

DeddyH 30. Jul 2008 09:12

Re: Problem bei TJclTaskTrigger
 
Und wenn Du mal versuchst, auf andere Properties des Triggers zuzugreifen? Syntaktisch scheint der Code jedenfalls korrekt zu sein, hab aber den Jedi-Source nicht hier und kann daher nicht nachsehen.

Angel4585 30. Jul 2008 09:20

Re: Problem bei TJclTaskTrigger
 
ShowMessage(t.DisplayName);

Also das funzt

Allerdings wenn ich

ShowMessage(t.TriggerString);

aufrufe kommt auch die Zugriffsverletzung..

Ich denke es liegt irgendwie am erzeugen der Triggers.
Ich erzeuge ja ne eigene Triggerliste, weil in der TJclScheduledTask keine Methoden sind um Trigger hinzuzufügen. Vllt überseh ich da was *such *nix find :|

Angel4585 30. Jul 2008 10:40

Re: Problem bei TJclTaskTrigger
 
ok, wenn ich beim debuggen mit der Maus über

t.Trigger fahre kommt da als Hint "Die aufzurufende Funktion GetTrigger wurde vom Linker entfernt."

Edit: Komisch auch wenn ich die Optimierung ausschalte kommt die Zugriffsverletzung

Der Jan 30. Jul 2008 12:56

Re: Problem bei TJclTaskTrigger
 
Möglicherweise denk ich grad voll falsch

Delphi-Quellcode:
with t.Trigger do
Trigger ist ein Property vom Typ TTaskTrigger, evtl. liegts daran, vlt. solltest du ne extra Variable deklarieren und es mit der versuchen, nur als Idee.

Angel4585 30. Jul 2008 14:01

Re: Problem bei TJclTaskTrigger
 
hab ich auch schon probiert, kommt aber der gleiche Fehler

Delphi-Quellcode:
t:=xlist.Add;
tt:=t.Trigger;//Hier

alzaimar 30. Jul 2008 14:01

Re: Problem bei TJclTaskTrigger
 
Hast Du denn T.Trigger schon etwas zugewiesen?

Angel4585 30. Jul 2008 14:20

Re: Problem bei TJclTaskTrigger
 
So sieht das aktuell aus:

Delphi-Quellcode:
t:=xlist.Add;
tt:=t.Trigger;//Diese Zeile war mal auskommentiert
with tt do
  begin
  wBeginYear:=2008;
  wBeginMonth:=7;
  wBeginDay:=30;
  wStartHour:=8;
  wStartMinute:=30;
  wEndYear:=2008;
  wEndMonth:=7;
  wEndDay:=31;
  Type_.Daily.DaysInterval:=1;
  TriggerType:=TASK_TIME_TRIGGER_DAILY;
  end;
t.Trigger:=tt;
Die eine Zeile war mal auskommentiert, das ist dass was alzaimar wissen möchte denke ich.

Also es funtkioniert beides nicht.
und bevor ihr fragt: TTasktrigger ist ein Record und muss daher nicht erzeugt werden ;)


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:30 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz