datasnap 授权验证DSAuthenticationManager方法应用

Posted 胖达没有海

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了datasnap 授权验证DSAuthenticationManager方法应用相关的知识,希望对你有一定的参考价值。

服务端


1.服务端只需要增加DSAuthenticationManager1并且把dshttpservice的AuthenticationManager属性设置为DSAuthenticationManager1即可。

2.在DSAuthenticationManager1的OnUserAuthenticate方法中进行用户名密码验证操作具体示例代码如下:

procedure TfrmServerContainer.DSAuthenticationManager1UserAuthenticate(
  Sender: TObject; const Protocol, Context, User, Password: string;
  var valid: Boolean; UserRoles: TStrings);
begin
  if (User =\'admin\') and (Password =\'pwd123\') then
  begin
    valid := True;
  end
  else
    valid := False;
end;

3.也可以在dshttpservice中设置DSAuthUser及DSAuthPassword进行验证限制,并在DSAuthenticationManager1的roles中增加用户组对方法的访问,只需在OnUserAuthenticate中把用户加到相应的用户组即可。

代码如下:UserRoles.Add(AdminGroup‘); //加入到AdminGroup组别

 

客户端


1.可以设置SQLConnection的DSAuthUser和DSAuthPassword就行了

2.如果是用普通http协议的话,例如idhttp控件,则客户端代码如下:

procedure TForm15.Button2Click(Sender: TObject);
var
  url, params, Text: string;
  code: Integer;
  http: TIDHttp;
begin
  http:= TIDHttp.Create(nil);
  http.Request.BasicAuthentication := True;
  http.request.password := \'密码\';
  params := Edit1.Text;

  url:= \'http://192.168.10.182:8081/datasnap/rest/TSM/EchoString/\';
  try
    text := http.Get(URL+TIdURI.ParamsEnCode(params));
    Edit2.Text := Text;
  except
    on E: Exception do
    begin

    end;
  end;
end;

 

以上是关于datasnap 授权验证DSAuthenticationManager方法应用的主要内容,如果未能解决你的问题,请参考以下文章

delphi 中的datasnap 是啥意思 Developing Datasnap Application 中文意思是啥

DataSnap初步二

Delphi 中DataSnap技术网摘

datasnap——动态注册服务类

DATASNAP远程方法返回TSTREAM正解(转咏南兄)

DELPHI DATASNAP 2010入门操作(1)为啥要用datasnap 2010