Аутентификация DUO API с клиентом REST Delphi - PullRequest
1 голос
/ 29 апреля 2020

Я создаю Delphi REST-клиент для взаимодействия с DUO API. Я смог протестировать свои ключи авторизации и все другие параметры в Почтальоне просто отлично. Однако я не могу повторить то же самое в Delphi REST. Я не уверен, что делаю это неправильно. Ниже приведен пример кода:

//aside from the parameters below
//RESTClient1 baseurl is set to: https://api-sample123.duosecurity.com/
//RESTRequest1 Resource is set to this standard resource: admin/v1/users

procedure TfrmMain.Button1Click(Sender: TObject);
    var
      sAuthorization, nDate, sUsername, sPassword : string;
    begin
    try   

      nDate := formatdatetime('ddd, d mmm yyyy hh:mm:ss', now()) + ' +1000';   

      sAuthorization := 'Basic justasamplekeyhere123:alsoatesthmacsha1hash';
      Restclient1.Params.Add();
      RESTClient1.Params[0].Name := 'Date';
      RESTClient1.Params[0].Value := nDate;
      Restclient1.Params[0].Options := [poDoNotEncode];
      Restclient1.Params.Add();
      RESTClient1.Params[1].Name := 'Authorization';
      RESTClient1.Params[1].Value := sAuthorization;
      Restclient1.Params[1].Options := [poDoNotEncode];
      Restclient1.ContentType := 'ctAPPLICATION_X_WWW_FORM_URLENCODED'; //application/x-www-form-urlencoded';

      RESTRequest1.Execute;  
      MEMO1.Lines.Add(RestRequest1.Response.Content);

    Except
      On E: Exception do
                begin
                   MessageDlg(E.Message, mtError, [mbOK], 0);
                end;
    end;
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...