Passing Client-Id and Client-Secret

[rasaliad]

Hi Good day

How can I pass the Client-id and the Client-Secret to POST Request.

This is the post comand:

`procedure TFrmMain.btnPOSTClick(Sender: TObject);
var
LResponse: IResponse;
begin
LResponse := TRequest.New.BaseURL(edtBaseURL.Text)
.Accept(edtAccept.Text)
.AddBody(mmCustomBody.Lines.Text)
.AddHeader('Client-id', edClientId.Text)
.AddHeader('Client-secret', edClientSecret.Text)
.Post;

mmBody.Lines.Text := LResponse.Content;
lblStatusCode.Caption := LResponse.StatusCode.ToString;
end;`

This is the Error a I get

{"timestamp":"2022-08-03T12:20:23.098+00:00","status":400,"error":"Bad Request","message":"Missing request header 'client-id' for method parameter of type String","path":"/integration/hsusa/gadint"}
Thanks

[viniciussanchez]

Try .AddHeader('client-id', edClientId.Text)

[rasaliad]

Thanks Very much Mr. Sanchez

I change .AddHeader('Client-id', edClientId.Text) for .AddHeader('client-id', edClientId.Text) and the error persist:

{"timestamp":"2022-08-03T12:20:23.098+00:00","status":400,"error":"Bad Request","message":"Missing request header 'client-id' for method parameter of type String","path":"/integration/hsusa/gadint"}

In Postman it is working, following is screenshot from postman:

What you think I'm doing wrong?

Thanks

[viniciussanchez]

.AddHeader('Client-id', edClientId.Text, [poDoNotEncode])

[rasaliad]

Hi Mr. Sanchez

Sorry for my ignorance, but I'm vey new Working with API.

But after I add the [poDoNotEncode] the get the following error:

[dcc32 Error] Samples.Main.pas(85): E2034 Too many actual parameters

I need to USES some another unit.

This is the event:

Thanks for your Help!!

[viniciussanchez]

Uses REST.Types
https://docwiki.embarcadero.com/Libraries/Sydney/en/REST.Types.TRESTRequestParameterOption

[rasaliad]

Ok, Mr.

Now the red underline disappears, but the .AddHeader('client-id', edClientId.Text, [poDoNotEncode]) only accept two parameters.

I'm using Delphi 10.2 Tokio.

`
uses RESTRequest4D, REST.Types;

procedure TFrmMain.btnPOSTClick(Sender: TObject);
var
LResponse: IResponse;
begin
LResponse := TRequest.New.BaseURL(edtBaseURL.Text)
.Accept(edtAccept.Text)
.AddBody(mmCustomBody.Lines.Text)
.AddHeader('client-id', edClientId.Text, [poDoNotEncode]) // the poDoNotEncode parameter is not accepted
.AddHeader('client-secret', edClientSecret.Text, [poDoNotEncode]) // the poDoNotEncode parameter is not accepted .Post;

mmBody.Lines.Text := LResponse.Content;
lblStatusCode.Caption := LResponse.StatusCode.ToString;
end;`

Thanks,