【结贴】寻找一种解决方案

huixiangtao

1、代码如下：
lFlowParam := TLoadFlowParam.Create;   //流程参数
       lTaskParam := TLoadTaskParam.Create;   //任务参数
       lTasks := TTasks.Create;
       lTaskslist:=TList.Create;
       try
         DoGetFlowGUIDs(flow_field_value,lFlowParam.GUIDs);
         lTaskParam.States := [TTaskState.tsStarted, TTaskState.tsProcessing, TTaskState.tsWaiting];
         //以给定的条件查询任务（这里给定的条件由lFlowParam和lTaskParam共同给出，lFlowParam的限定条件是流程Guid值，lTaskParam的限定条件：是按照任务状态，只查询出需要处理的任务）
         Flow.FlowEngine.GetTasks(lFlowParam, lTaskParam, lTasks);
        if lTasks.Count<>0 then
        begin
        lTaskMessage:=lTasks.Items[0].TaskMessages[0];
        lTaskslist.Add(lTasks.Items[0]);
        lFlowContext := GetFlowContext(GetPositionContext);
        if lFlowContext = nil then
          Exit;
           lOrgUrl := TOrgUrl.Create(lTaskMessage.ReceiverDeptID,lTaskMessage.ReceiverPositionID, lTaskMessage.ReceiverID);
            try
            FFlowControl.ExecuteTask(lTasks.Items[0], lOrgUrl);
            lFuncURL := GetTaskFuncURL(lTasks.Items[0]);
            lFunc := GetTaskFunc(lFlowContext, lFuncURL);
            FFlowControl.Func := lFunc;

   finally
    lOrgUrl.Free;
  end;
  FFlowControl.FlowBack(lTaskslist);

        end;
       finally
         lFlowParam.Free;
         lTaskParam.Free;
         lTasks.Free;
         lTaskslist.Free;
       end;
2、在这样的代码基础上，能用你给的链接中的方法吗？
我在窗体上放了个flowbroker，创建了事件，并写了代码：
procedure TMainForm.FlowBroker1CreateFlowBackFlowTasks(Sender: TObject; Command: TFlowBackCommand);
begin
dialogs.ShowMessage(tjr);

end;
结果表明这段代码没有执行。

zfang

那你看一下环境 是否没有流程环境。

huixiangtao

怎么看有没有流程环境呢？
21楼代码中这句：  lFlowContext := GetFlowContext(GetPositionContext);
是不是就代表有流程环境了呢？

GetFlowContext（），还有GetPositionContext函数都是从论坛上搜出来的代码。

zfang

环境链，ctrl+shift+alt+O（是O不是零）

huixiangtao

是不是就是这个玩意呢？

zfang

对，从你给的图上看，没有流程环境。

huixiangtao

那我该怎么办呢？

zfang

建议楼主采用15楼链接的方法以及18楼的例子

huixiangtao

18楼的那个例子，我怎么打开呢，之前在我这儿我是打不开的。

zfang

现在没有那个环境，导不了资源了
你在studio中--业务资源管理器，把它拷贝进去，然后直接打开功能看代码部分（报错你可以不管他，就是少了数据表）