B4J Question ODataV4: I can't connect to server with Windows / NTLM

Private Sub Button1_Click
    Dim SU As StringUtils
    Dim usr, pass As String
    usr = "Aladdin"
    pass = "open sesame"
    Dim s As String  = usr & ":" & pass
    Dim credentials As String  = SU.EncodeBase64(s.GetBytes("UTF8"))
    Log(credentials)
    
    Dim b() As Byte = SU.DecodeBase64(credentials)
    Dim d As String = BytesToString(b, 0, b.Length, "UTF8")
    Log(d)
    
    Dim j As HttpJob
    j.Initialize("", Me)
    'j.Username = "xxx"
    'j.Password = "yyy"
    j.Download("http://192.168.0.10:19058/BC190_DD/ODataV4/Company('LA%20COOPERATIVA')/LocationListPage")
    'j.GetRequest.Timeout = 3000 * 1000
    'j.GetRequest.SetHeader("Content-Type","application/x-www-form-urlencoded; charset=utf-8")
    'j.GetRequest.SetContentType("plain/text")
    j.GetRequest.SetHeader("Authorization", "Basic " & credentials)
        Wait For (j) JobDone(j As HttpJob)
    If j.Success Then
        Log(j.GetString)
    End If
    j.Release
End Sub

    Dim j As HttpJob
    j.Initialize("", Me)
    j.Download("http://192.168.0.10:19058/BC190_DD/ODataV4/LocationListPage")
    j.GetRequest.Timeout = 3000 * 1000
    j.GetRequest.SetHeader("Accept", "application/json")
    j.GetRequest.SetHeader("Authorization", "NTLM " & credentials)
    Wait For (j) JobDone(j As HttpJob)

ResponseError. Reason: Bad Request, Response:

Error 400

To connect to an OData API with Windows user authentication in a B4J application, you can use the jODataClient library, which is a B4J-compatible OData client library capable of handling Windows user authentication. Here is an example of how to do it:

Add the jODataClient library:

Download the jODataClient library from the B4X forum: https://www.b4x.com/android/forum/threads/jodataclient-v2-0.90197/
In your B4J project, go to the "Libraries" menu and select "Add External Jar". Next, select the .jar file you downloaded from jODataClient.

Write the code for the OData request:

import jODataClient.Main;
import jODataClient.Entities;
import jODataClient.CredentialCache;

Sub AppStart(Form1 As Form, Args() As String)
    ' URL de la API OData
    Dim odataURL As String
    odataURL = "https://tu-api-odata.com/endpoint"

    ' Crea una instancia de Main
    Dim jOData As Main
    jOData.Initialize

    ' Crea una instancia de CredentialCache para la autenticación de Windows
    Dim credentials As CredentialCache
    credentials.Initialize

    ' Agrega las credenciales de Windows al caché
    credentials.AddWindowsCredentials("usuario", "contraseña")

    ' Establece las credenciales en la instancia de Main
    jOData.CredentialCache = credentials

    ' Realiza la solicitud OData
    Dim entities As Entities
    entities = jOData.ExecuteQuery(odataURL, "Entities")

    ' Procesa la respuesta OData
    If jOData.IsSuccess Then
        Dim result As String
        result = entities.ToString
        Log(result)
    Else
        Log("Error en la solicitud OData: " & jOData.ErrorMessage)
    End If
End Sub

Original:
    hj.PostString("http://192.168.0.10:19058/BC190_DD/ODataV4/",tp)
changed to
    hj.Download("http://192.168.0.10:19058/BC190_DD/ODataV4/")
and added
    hj.GetRequest.Timeout = 5 * 60 * 1000