问访问Intraweb中的UserSession时的访问冲突

EN

你需要在会话中创建'data‘

procedure TIWServerController.IWServerControllerBaseNewSession(
  ASession: TIWApplication; var VMainForm: TIWAppForm);
begin
  ASession.Data := TUserSession.Create;
end;

请注意，在此示例中

TUserSession

是用户定义的类

type
  TUserSession = class
  public
    UserCount: Integer;
  end;

请看本教程，其中解释了如何在IW - http://etutorials.org/Programming/mastering+delphi+7/Part+IV+Delphi+the+Internet+and+a+.NET+Preview/Chapter+21+Web+Programming+with+IntraWeb/Building+IntraWeb+Applications/中进行会话管理

或者参考atozed提供的technical documentation。

我试着只添加一个评论，显然我需要更多的点数。如果你进入RBA给出的响应，答案就会找到，但这里是简短的形式：

IW确实会自动创建和管理用户会话。然而，TIWUserSession只是你的一部分。为了在会话中包含您自己的数据，需要对TIWUserSession执行.Create操作，并将其添加为会话的.Data。在IWServerControllerBaseNewSession中，使用以下命令执行此操作：

  ASession.Data := TIWUserSession.Create(nil, ASession);

请注意，该过程的ASession参数是由IW管理的会话。

要访问您的TIWUserSession，请在ServerController中创建一个过程：

function UserSession: TIWUserSession;
begin
    Result := TIWUserSession(WebApplication.Data);
end;

在接口部分公开该过程。

丹

我突然想到，我们可能“解决了错误的问题”。

您指出这是在实现登录表单时发生的。您还指出WServerControllerBaseNewSession()中的中断集未命中。

在ServerController中，是否将"AuthBeforeNewSession“设置为True？如果是，则将其设置为False，并查看行为是否发生更改。

丹