Solved

can't compile demo from TaskScheduler.zip (www.delphi-jedi.org)

Posted on 2003-11-24
3
794 Views
Last Modified: 2007-12-19
I downloaded TaskScheduler.zip (www.delphi-jedi.org). I loaded the TaskSchDemo.dpr project and tied to compile it. I got the following error when I try to compile the demo:
What am I doing wrong with the setup(I am using Delphi 7)?


[Error] main.pas(202): Constant object cannot be passed as var parameter
[Error] main.pas(890): Constant object cannot be passed as var parameter
[Error] main.pas(891): Constant object cannot be passed as var parameter
[Fatal Error] TaskSchDemo.dpr(10): Could not compile used unit 'main.pas'



197      function GetITask(TaskName: string): ITask;
198      var
199        PITask: IUnknown;
200        hr: HRESULT;
201      begin
202        hr := SchedulingAgent.Activate(StrToWide(TaskName), IID_ITask, PITask);
203        if hr = S_OK then Result := ITask(PITask)
204        else
205        begin
206          ShowMessage('Error in SchedulingAgent.Activate.Error Code :' + IntToHex(hr, 8));
207          Result := nil;
208        end;
209
210      end;



890      procedure TfrmMain.btnNewWorkItemClick(Sender: TObject);
890      var
890        HR: HRESULT;
890        TaskName: string;
890        WorkItem: IUnknown;
890      
890      begin
890        TaskName := InputBox('Enter Task Name', 'Name?', '');
890        if TAskName = '' then
890        begin
890          ShowMessage('You have to enter a task name');
890          exit;
890        end;
890        Init;
890        HR := SchedulingAgent.NewWorkItem(StrToWide(TaskName), CLSID_CTask,
890          IID_IScheduledWorkItem, WorkItem);
890        Task := ITask(WorkItem); //required for save
890        ScheduledWorkItem := IScheduledWorkItem(WorkItem);
890        if HR = S_OK then StatusMemo.Lines.Add(Taskname + ' created successfully')
890        else
890        begin
890          StatusMemo.Lines.Add('Could not create the job ' + taskname + ' Error Code :' + IntTohex(hr, 8));
890          exit;
890        end;
890        hr := SaveTAsk;
890        if hr <> S_OK then StatusMemo.lines.add('Save task failed with error code' + IntTohex(hr, 8) + #13#10);
890        BtnGetTasksClick(self); //for updating
890      end;
0
Comment
Question by:philippe_beauregard
  • 2
3 Comments
 
LVL 22

Accepted Solution

by:
Ferruccio Accalai earned 500 total points
ID: 9814431
you cannot pass a constant as a variable so change code as follows:

function GetITask(TaskName: string): ITask;
var
  PITask: IUnknown;
  hr: HRESULT;
  MyIid_ITask: TGuid;
begin
  MyIid_ITask := IID_ITask;
  hr := SchedulingAgent.Activate(StrToWide(TaskName),  MyIid_ITask, PITask);
  if hr = S_OK then Result := ITask(PITask)
  else
  begin
    ShowMessage('Error in SchedulingAgent.Activate.Error Code :' + IntToHex(hr, 8));
    Result := nil;
  end;

end;

procedure TfrmMain.btnNewWorkItemClick(Sender: TObject);
var
  HR: HRESULT;
  TaskName: string;
  WorkItem: IUnknown;
  MyCLSID_CTask, MYIID_IScheduledWorkItem: TGuid;
begin
  MyCLSID_CTask := CLSID_CTask;
  MyIID_IScheduledWorkItem := IID_IScheduledWorkItem;
  TaskName := InputBox('Enter Task Name', 'Name?', '');
  if TAskName = '' then
  begin
    ShowMessage('You have to enter a task name');
    exit;
  end;
  Init;
  HR := SchedulingAgent.NewWorkItem(StrToWide(TaskName), MyCLSID_CTask,
    MyIID_IScheduledWorkItem, WorkItem);
  Task := ITask(WorkItem); //required for save
  ScheduledWorkItem := IScheduledWorkItem(WorkItem);
  if HR = S_OK then StatusMemo.Lines.Add(Taskname + ' created successfully')
  else
  begin
    StatusMemo.Lines.Add('Could not create the job ' + taskname + ' Error Code :' + IntTohex(hr, 8));
    exit;
  end;
  hr := SaveTAsk;
  if hr <> S_OK then StatusMemo.lines.add('Save task failed with error code' + IntTohex(hr, 8) + #13#10);
  BtnGetTasksClick(self); //for updating
end;

F68 ;-)

0
 

Author Comment

by:philippe_beauregard
ID: 9814497
Thanks F68,

That's exactly what was needed.

-phil

0
 
LVL 22

Expert Comment

by:Ferruccio Accalai
ID: 9814535
pleased for having helped 'u' :)
0

Featured Post

PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Mydac connection data base issue 3 157
How to call a form that is in a DLL  from an application? 13 71
Delphi: making a BW image transparent 10 38
enhance the following code 3 31
A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Microsoft Active Directory, the widely used IT infrastructure, is known for its high risk of credential theft. The best way to test your Active Directory’s vulnerabilities to pass-the-ticket, pass-the-hash, privilege escalation, and malware attacks …
This video shows how to quickly and easily add an email signature for all users on Exchange 2016. The resulting signature is applied on a server level by Exchange Online. The email signature template has been downloaded from: www.mail-signatures…

770 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question