我正在尝试创建一个包含 TMS 工作流程的网站。尝试执行工作流时,我遇到了 EOSError 1400 问题。工作流在单击按钮时启动,然后转到 WorkflowStudio1TaskCreated 过程并继续到 WorkflowStudio1SendMail。然后它因上述错误而崩溃。我做错了什么?
单位代码:
unit Unit1;
interface
uses
Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes,
Data.DBXFirebird, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error,
FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool,
FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.FB, FireDAC.Phys.FBDef,
FireDAC.VCLUI.Wait, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf,
FireDAC.DApt, Vcl.Controls, IWVCLBaseControl, IWBaseControl,
IWBaseHTMLControl, IWControl, IWCompButton, Data.DB, FireDAC.Comp.DataSet,
FireDAC.Comp.Client, Data.SqlExpr, wsDB, wsDbx, wsClasses, wsMain;
type
TIWForm1 = class(TIWAppForm)
WorkflowStudio1: TWorkflowStudio;
WorkflowDBXDB1: TWorkflowDBXDB;
SQLConnection1: TSQLConnection;
FDConnectionTMS: TFDConnection;
FDQueryGET: TFDQuery;
FDQueryUPDADTE: TFDQuery;
FDConnectionMedusa: TFDConnection;
FDQueryGetUsers: TFDQuery;
FDQueryUsers: TFDQuery;
FDConnectionUPRO: TFDConnection;
FDQueryGetUser: TFDQuery;
qryInsertObject: TFDQuery;
qryGetZapoUsers: TFDQuery;
qryGetMedusaUsers: TFDQuery;
qryGetEmail: TFDQuery;
IWButton1: TIWButton;
procedure IWButton1Click(Sender: TObject);
procedure WorkflowStudio1TaskCreated(Sender: TObject;
ATaskIns: TTaskInstance);
procedure WorkflowStudio1SendMail(Sender: TObject; TaskIns: TTaskInstance;
AUser: TWorkflowUser; AEmailInfo: TEmailInformation; var Sent: Boolean);
public
end;
implementation
{$R *.dfm}
procedure TIWForm1.IWButton1Click(Sender: TObject);
var
Wrkins : TWorkflowInstance;
t : TTaskInstance;
begin
WorkflowStudio1.UserManager.Users.Add('1', 'Someone', 'temp@tempo.si');
Wrkins := WorkflowStudio1.WorkflowManager.CreateWorkflowInstanceByName('Temp');
Wrkins.Diagram.Variables.FindByName('User').Value := WorkflowStudio1.UserManager.Users.FindById('1').UserName;
WorkflowStudio1.WorkflowEngine.RunWorkflow(Wrkins);
end;
procedure TIWForm1.WorkflowStudio1SendMail(Sender: TObject;
TaskIns: TTaskInstance; AUser: TWorkflowUser; AEmailInfo: TEmailInformation;
var Sent: Boolean);
begin
WebApplication.ShowMessage('send mail');
Sent := True;
end;
procedure TIWForm1.WorkflowStudio1TaskCreated(Sender: TObject;
ATaskIns: TTaskInstance);
begin
WebApplication.ShowMessage('Task ' + ATaskIns.Key + ' created');
end;
initialization
TIWForm1.SetAsMainForm;
end.
服务器控制:
unit ServerController;
interface
uses
SysUtils, Classes, IWServerControllerBase, IWBaseForm, HTTPApp,
// For OnNewSession Event
UserSessionUnit, IWApplication, IWAppForm, IW.Browser.Browser;
type
TIWServerController = class(TIWServerControllerBase)
procedure IWServerControllerBaseNewSession(ASession: TIWApplication);
private
public
end;
function UserSession: TIWUserSession;
function IWServerController: TIWServerController;
implementation
{$R *.dfm}
uses
IWInit, IWGlobal;
function IWServerController: TIWServerController;
begin
Result := TIWServerController(GServerController);
end;
function UserSession: TIWUserSession;
begin
Result := TIWUserSession(WebApplication.Data);
end;
procedure TIWServerController.IWServerControllerBaseNewSession(
ASession: TIWApplication);
begin
ASession.Data := TIWUserSession.Create(nil, ASession);
end;
initialization
TIWServerController.SetServerControllerClass;
end.
在 UserSessionUnit 中没有添加任何内容