Kbmmw。超时消息“匿名用户未授权”

Question

我针对我的问题提出了一个新主题。

KIM 告诉\

匿名请求通常意味着它找不到 用户名/密码不是客户端请求中的令牌。记住 您在第一个请求中获得的令牌应该被所有人重复使用 所有客户端代码的后续请求（所有 kbmMWSimpleClient， kbmMWClientQuery、kbmMWClientResolver 等）。在集中化的路上 就是在数据模块上放一个 TkbmmMWSimpleClient 并指定所有 客户端查询组件使用这个简单的客户端实例作为 模板。然后作为您客户中其他任何事情之前的第一件事 应用程序，通过 简单客户端。

我在客户端应用程序上更改了 ServerSideQueryAllClick。我将令牌从服务器端复制到客户端 Edit1.text。

procedure TForm1.btnNamedServerSideQueryAllClick(Sender: TObject);
begin
     // Gets all records from server event table.
     If Length(Trim(Edit1.Text)) > 0 then
        Begin
          kbmMWSimpleClient1.Disconnect;

          kbmMWSimpleClient1.Username:= CB1.Text; // Login -> Franz
          kbmMWSimpleClient1.Password:= CB2.Text; // Password -> FranzPassword

          kbmMWSimpleClient1.Token := Edit1.Text; // Token from server
          kbmMWSimpleClient1.Connect;

        End;

     if qServerSide.Active then qServerSide.Close;

     // Use named query.
     qServerSide.Query.Text:='@ALL_EVENTS';
     qServerSide.Open;
end;

它不起作用。

如何重新登录？

Answer 1

授权演示展示了客户端如何拥有一个 simpleclient，用作所有客户端查询组件的模板（通过将其 Client 属性设置为指向 simpleclient 实例）。 在设置token的时候，你特别不想设置用户名和密码，同样如果你在设置用户名和密码，也不要设置token。

还要确保 qServerSide.Client 指向您的 simpleclient。 这样做你通常只需要在打开任何东西之前在 simpleclient 上设置一次用户名/密码，然后例如打开查询组件，之后 simpleclient.token 值将自动从服务器更新为分配的登录令牌。