Basic Authentication Error

[staff@ergosoft.it]

Hi,

I have a problem on a API REST call.

I always get the authentication error: HTTP/1.1 401 Unauthorized

this is my code in delphi 11.3

thanks
Alessandro Romano
//-----------------------------------------------------------
var
lHTTP: TIdHTTP;
SSL : TIdSSLIOHandlerSocketOpenSSL;
Comando, RisultatoPost : Ansistring;
lPostData: TStringStream;
base64: TBase64Encoding;
myUser, MyPass : string;
begin
  Comando := 'https://apirest... etc';
  base64 := TBase64Encoding.Create(0);

  myUser := 'myuser';
  MyPass := 'mypass';

  lPostData := TStringStream.Create('', TEncoding.UTF8);
  with TJSONObject.Create do
  try
      AddPair('Authorization', 'Basic ' + base64.Encode(myUser + ':' + MyPass));
      lPostData.Writestring(ToJSON);
  finally
    Free;
  end;

  lPostData.Position := 0;
  try
    lHTTP := TIdHTTP.Create;
    SSL := TIdSSLIOHandlerSocketOpenSSL.Create(lHTTP);
    SSL.SSLOptions.Method := sslvTLSv1_2;

        lHTTP.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(lHTTP);
        lHTTP.IOHandler := SSL;
        lHTTP.HandleRedirects := True;
        lHTTP.Request.CustomHeaders.Clear;
        lHTTP.Request.CustomHeaders.FoldLines := False;
        lHTTP.Request.Accept := 'application/json';

        //lHTTP.Request.ContentType := 'application/json';
        //lHTTP.Request.CharSet := 'UTF-8';

        RisultatoPost := lHTTP.Post(Comando, lPostData);
         

    finally
      SSL.Free;
      lHTTP.Free;
      lPostData.Free;
      base64.Free;
  end;