Http协议访问DataSnap Rest 服务器

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

用TIDHttp访问DataSnap Rest服务器，在服务器采用了用户验证的情况下，客户端需要注意下面的细节，否则不能正常连接。

假如服务器有如下的用户验证：

procedure TSC.DSAuthenticationManager1UserAuthenticate(Sender: TObject;

  const Protocol, Context, User, Password: string; var valid: Boolean;

  UserRoles: TStrings);

var

  sCheckCode : string;

begin

  valid := False;

  sCheckCode := CMBSrvIniSetting.SrvCnnCheckCode;

  if PassWord.Equals(sCheckCode) then

  begin

    valid := True;

  end;

end;

那么在客户端连接的时候，必须把这个密码传递过去，否则会发生401错误。

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;