Hello,
I have a problem with userdata feature omnithread task i can set when i want to create task
like that
idxdata := tstringlist.Create;
idxdata.Add('aaa');
for n := 0 to 9 do begin
OTLMonitors[n] := TOmniEventMonitor.create(self);
OTLMonitors[n].OnTaskMessage := OTLMonitorTaskMessage;
OTLMonitors[n].OnTaskTerminated := OTLMonitorTaskTerminated;
FTasks[n] := CreateTask(TaskProcedure,'Task ' + Char(n + ord('A')) + ': ')
.SetParameter('param','val1')
.SetUserData(1,idxdata)
.MonitorWith(OTLMonitors[n])
.Run;
end;
but I can't find any example or code how can I use in task procedure.
My procedure snippet is this.
procedure TaskProcedure(const task: IOmniTask);
var
comm: IOmniCommunicationEndpoint;
n : cardinal;
begin
comm := task.Comm;
//showmessage(task.Param['param']);
//showmessage(form1.Memo1.Lines[5]);
end;
could you help me?
best regards.