x-www-form-urlencoded

x-www-form-urlencoded.pas

procedure TServiceLogin.Example;
var
  LResponse: IHTTPResponse;
  LFormUrlencoded: TStringList;  
  LRequest: THTTPClient;
begin
  LRequest := THTTPClient.Create;
  LFormUrlencoded := TStringList.Create;
  try
    LFormUrlencoded.Add('grant_type=my-grant-type');
    LFormUrlencoded.Add('client_id=my-client-id');
    LFormUrlencoded.Add('client_secret=my-client-secret');
    LResponse := LRequest.Post(Servers.Keycloak, LFormUrlencoded);
    if LResponse.StatusCode = 200 then
    begin
      // Write your code here!!!
    end;
  finally
    LFormUrlencoded.Free;
    LRequest.Free;
  end;
end;