zoukankan      html  css  js  c++  java
  • RTC,登陆后添加权限值

    修改单元:rtcMW.DM.Main;

    修改组件:fnLogin

    在方法中添加:

     服务端:

    const
    SQL_SELECT_USER = 'SELECT * FROM Users WHERE UserName=:UserName';

    with TRtcHttpServer(Sender) do
    begin
    // OpenSession();
    Session.asText['UserName'] := UserName;
    Session.asText['UserID'] := FieldByName('UserID').AsString;
    Session.asText['ConnectionDefName'] := ConnectionDef.Name;
    Result.asRecord.asText['token'] := Session.ID.ToLower;
    Result.asRecord.asInteger['UploadFileSizeMax'] := UploadFileSizeMax;
    Result.asRecord.asString['Permission'] := FieldByName('permission').AsString; //添加此
    end;

    编译服务端

    客户端

    文件:rtcMW.Comp.Client

    1.

     private

     FPermission:string; //权限

    public

        property Permission:string read FPermission  write FPermission; //权限


    function TRFConnection.DoLoginResult(Value: TRtcValue): Boolean;
    begin
    Result := False;
    FAccessToken := EmptyStr;

    if Value.isType = rtc_Record then
    begin
    FUserLoginState := TUserLoginState(Value.asRecord.asInteger['LoginState']);
    Result := FUserLoginState = lsSucceed;
    if Result then
    begin
    FAccessToken := Value.asRecord.asText['Token'];
    FUploadFileSizeMax := Value.asRecord.asInteger['UploadFileSizeMax'];
    FPermission:=Value.asRecord.asString['Permission']; //权限     新增
    end;

    if Assigned(FUserLoginEvent) then
    FUserLoginEvent(FUserLoginState, FAccessToken);
    end
    else if Value.isType = rtc_Exception then
    raise Exception.Create(Value.asException);

    end;

  • 相关阅读:
    SQL Server死锁产生原因及解决办法
    SqlServer表死锁的解决方法
    SQL Server中解决死锁的新方法介绍
    SQL Server 中WITH (NOLOCK)浅析
    二分图匹配
    java list三种遍历方法性能比较
    CSharp Algorithm
    存几个html画图的网站
    [HDU 1358]Period[kmp求周期]
    Android解析Excel文档完整示例
  • 原文地址:https://www.cnblogs.com/carcode/p/5847474.html
Copyright © 2011-2022 走看看