【结贴】编译错误

huixiangtao

我怎么从论坛上找了段代码，编译都通不过呢。

while dsb_test.DataSet.Eof = False do
  begin
       lFlowParam := TLoadFlowParam.Create;
       lTaskParam := TLoadTaskParam.Create;
       lTasks := TTasks.Create;
       try
         DoGetFlowGUIDs(dsb_test.DataSet.FieldByName('eventID').AsString,lFlowParam.GUIDs);
         lTaskParam.States :=[Business.Model.Flow.TTaskState.tsStarted , Business.Model.Flow.TTaskState.tsProcessing, Business.Model.Flow.TTaskState.tsWaiting];
        //以给定的条件查询任务（这里给定的条件由lFlowParam给出，根据流程Guid值查询，lTaskParam条件是按照任务状态，只查询出需要处理的任务）
          Flow.FlowEngine.GetTasks(lFlowParam, lTaskParam, lTasks);
           //如果需要自动流转，则需要下面的代码vvvvvvvvvvvvvv
          clr:= lTasks.Items[0].TaskMessages[j].ReceiverName;
          lTasks.Items[0].TaskMessages[j].State := TTaskMessageState.tmsCanceled;
          lTasks.Items[0].State := TTaskState.tsCanceled;
          lTasks.Items[0].SaveToDB;
       finally
         lFlowParam.Free;
         lTaskParam.Free;
          lTasks.Free;
       end;
错误出现在：  Flow.FlowEngine.GetTasks(lFlowParam, lTaskParam, lTasks);   这句的gettask上。
错误为：没有匹配的方法。
这是怎么回事呢？

jiahaiming

TFlowEngine = class(Business.System.TObject)
protected
……
public
……
  procedure GetTasks(ATaskParam: TLoadTaskParam; ATasks: TTasks); overload;
  procedure GetTasks(AFlowParam: TLoadFlowParam; ATaskParam: TLoadTaskParam; ATasks: TTasks); overload;

似乎是参数类型声明错了，楼主对比studiohelp检查一下吧。

huixiangtao

这段代码是我从别人那儿拷过来的，在别人那儿可以正常运行呢。我也在studiohelp搜索了gettasks，也搜到了，并且我的代码中Flow.FlowEngine后面点“.”,系统给出的函数列表中是有个GetTasks这个函数的，但是就是编译通不过。
2、lTaskParam.States :=[Business.Model.Flow.TTaskState.tsStarted , Business.Model.Flow.TTaskState.tsProcessing, Business.Model.Flow.TTaskState.tsWaiting]; 这句话原本是lTaskParam.States :=[TTaskState.tsStarted , TTaskState.tsProcessing, TTaskState.tsWaiting]; 这么写的，但在我的环境中报错，所以我才加了前缀，才不报语法错的。

jiahaiming

你在声明和创建TTasks时，也加上前缀试试：Business.Model.Flow.TTasks

huixiangtao

ok,结贴！