Kbmmw。超时消息"未经授权的匿名用户"

时间:2016-01-16 14:28:08

标签: delphi

我提出了一个关于我的问题的新话题。

KIM告诉\

  

匿名请求通常意味着它找不到   用户名/密码不是客户端请求中的标记。记得   您第一次请求时获得的令牌应该被重用   所有客户端代码的后续请求(所有kbmMWSimpleClient,   kbmMWClientQuery,kbmMWClientResolver等)。在集中的过程中   是在数据模块上放置一个TkbmMWSimpleClient并指定所有   客户端查询组件使用此简单客户端实例作为   模板。然后作为客户端之前的第一件事   申请,做一个初始"登录"通过电话请求电话   SimpleClient的。

我在客户端应用上更改了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;

它还没有工作。

如何制作relogin?

1 个答案:

答案 0 :(得分:1)

授权演示显示客户端如何使用简单客户端作为所有客户端查询组件的模板(通过将其Client属性设置为指向simpleclient实例)。 设置令牌时,您特别不想设置用户名或密码,同样如果您要设置用户名和密码,请不要设置令牌。

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