Android Question vb to b4a

[vmag]

What am I doing wrong?
I'm translating the code from VB

Dim myUrl As String
Dim answer As String
myUrl = "https://...."
Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("MSXML2.XMLHTTP")
WinHttpReq.Open "GET", myUrl, False
WinHttpReq.setRequestHeader "Content-Type:", "application/json"
WinHttpReq.setRequestHeader "X-API-KEY:", "abcdef........"
WinHttpReq.send
answer = WinHttpReq.responseText

to B4A

Dim http As HttpJob
    Dim url As String
    url = "https://..."
    http.Initialize("",Me)
    http.PostString(url,"")
    http.GetRequest.SetHeader("Content-Type:", "application/json")
    http.GetRequest.SetHeader("X-API-KEY:", "abcdef........"")
    txtAnsv.text=http.GetString

there are no errors, but the application does not work

 

[vmag]

What am I doing wrong?
I'm translating the code from VB

Dim myUrl As String
Dim answer As String
myUrl = "https://...."
Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("MSXML2.XMLHTTP")
WinHttpReq.Open "GET", myUrl, False
WinHttpReq.setRequestHeader "Content-Type:", "application/json"
WinHttpReq.setRequestHeader "X-API-KEY:", "abcdef........"
WinHttpReq.send
answer = WinHttpReq.responseText

to B4A

Dim http As HttpJob
    Dim url As String
    url = "https://..."
    http.Initialize("",Me)
    http.PostString(url,"")
    http.GetRequest.SetHeader("Content-Type:", "application/json")
    http.GetRequest.SetHeader("X-API-KEY:", "abcdef........"")
    txtAnsv.text=http.GetString

there are no errors, but the application does not work

It's decided:

Dim j As HttpJob
    Dim url As String
    url = "https://....."
    j.Initialize("",Me)
    j.Download(url)
    j.GetRequest.SetHeader("Content-Type","application/json")
    j.GetRequest.SetHeader("X-API-KEY", "abcd.....")
    wait for (j) jobdone(j As HttpJob)
    If j.Success Then
        txtAnsv.text=j.GetString
        Else
            xui.MsgboxAsync("Error","!")
    End If
    j.Release

 

[Erel]

Content type must be set with j.GetRequest.SetContentType