【搞定】无流程任务 编译不通过[请求]**

jxsong

这段代码编译不通过

procedure TMyThread.SendTask(remindtype, thetime, timeperson, timedep, timepos, remindperson : String);
var
  lTask   : TTask;
  lOrgURl: TOrgURL;
begin
  lTask := TTask.Create;
  lOrgURl := TOrgURL.Create(timedep,timepos,timeperson);
  try
    {任务信息的定义}
    lTask.Subject := remindtype;
    lTask.Kind:= 'ftkNotify';                             //无流程任务为空
  lTask.Description := '人员 ' + timeperson + ' 的 ' + remindtype + ' : ' + thetime;
   
    lTask.TaskMessages.AddTaskMessage(nil, lOrgURl, TTaskmessagestate.tmsSend, 0,
      False);                                    //添加到任务列表

    {保存任务}
    Flow.FlowEngine.SaveTask(lTask);             //保存任务信息到‘系统空间\系统数据库\任务表’，任务消息到‘任务消息表’
  finally

    lTask .Free;
    lOrgURL.Free;
  end;
end;

一个错误是在Flow.FlowEngine.SaveTask(lTask); ----------Incompatible types: "TTask" and "TTask"
一个错误是在lTask .Free;------------ Undeclared identifier "Free"

lisb

uses处加上Business.Model.Flow

jxsong

uses处已经有Business.Model.Flow了

jxsong

我在 标准风格主窗体 中加入的线程调用这个函数启动任务，会不会是和其他的函数之类的冲突了，不过我没找到哪里有冲突的地方

jxsong

哦，问题解决了，窗体本身引用了Business.Model.Flow 和 TaskLib
不过有个新的问题，还是编译不通过
lTask.TaskMessages.AddTaskMessage(nil, lOrgURl, TTaskmessagestate.tmsSend, 0, False);------没有匹配的方法

使用lTask.TaskMessages.AddTaskMessage(nil, lOrgURl); 就可以通过

jxsong

TTaskmessagestate原来也有多个，这个帖子可以结了

jxsong

运行
Flow.FlowEngine.SaveTask(lTask);            
会报错

jxsong

解决了，结贴吧

lisb

谢谢反馈。