B4J Question [solved] DHL-Internet Poststamps

    Dim su As StringUtils

    Dim values As Map
    values.Initialize
    values.Put("grant_type",su.EncodeUrl("client_credentials","UTF-8"))
    values.Put("username",su.EncodeUrl(apiusername,"UTF-8"))
    values.Put("password",su.EncodeUrl(apipassword,"UTF-8"))
    values.Put("client_id",su.EncodeUrl(apikey,"UTF-8"))
    values.Put("client_secret",su.EncodeUrl(apisecret,"UTF-8"))

    Dim JSON As JSONGenerator
    JSON.Initialize(values)
    Dim data As String =   JSON.ToPrettyString(1)


    Dim j As HttpJob
    j.Initialize("",Me)
    'j.PostMultipart("https://api-eu.dhl.com/post/de/shipping/im/v1/user",values,Null)
    j.PostBytes("https://api-eu.dhl.com/post/de/shipping/im/v1/user",data.GetBytes("UTF8"))
    j.GetRequest.SetHeader("Content-Type", "application/x-www-form-urlencoded; charset=UTF-8")
    'headers.Put("Content-Type", "application/x-www-form-urlencoded")
    J.GetRequest.SetContentEncoding("UTF-8")
    'J.GetRequest.SetContentType("application/x-www-form-urlencoded")
    Wait For (j) JobDone(j As HttpJob)
    If j.Success Then
        Log(j.GetString)
    End If
    j.Release

j.GetRequest.SetContentType("application/x-www-form-urlencoded")

Sub AppStart (Args() As String)
    GetAuthorizationToken
    StartMessageLoop
End Sub

Sub GetAuthorizationToken
    Log("Requesting authorization token...")
    Dim job As HttpJob
    job.Initialize("", Me)
    Dim sb As StringBuilder
    sb.Initialize
    sb.Append("grant_type=client_credentials").Append("&")
    sb.Append("username=franz.klammer").Append("&")
    sb.Append("password=abfahrt123#").Append("&")
    sb.Append("client_id=XjSnyVWgQp1ShIQ5HQ6Vq5PIYLN2jGNS").Append("&")
    sb.Append("client_secret=TICgJWGRysH7mA57")
    Dim body As String = sb.ToString
    job.PostString("https://api-eu.dhl.com/post/de/shipping/im/v1/user", body)
    job.GetRequest.SetHeader("content-type", "application/x-www-form-urlencoded")
    job.GetRequest.SetHeader("Content-Length", 0)
    Wait For (job) JobDone (job As HttpJob)
    If job.Success Then
        Dim response As Map = job.GetString.As(JSON).ToMap
        Log(response)
    Else
        'Log(job.ErrorMessage)
        Dim response As Map = job.ErrorMessage.As(JSON).ToMap
        Log(response)
    End If
    job.Release
End Sub