B4X

MercadoLibre - Create Test User

See more MercadoLibre Examples

Crea un usuario de test B4X

Dim success As Boolean = False

'  This example assumes the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

Dim http As ChilkatHttp
http.Initialize("http")

'  First get our previously obtained OAuth2 access token.
Dim jsonToken As ChilkatJsonObject
jsonToken.Initialize
success = jsonToken.LoadFile("qa_data/tokens/mercadolibre.json")

'  Implements the following CURL command:

'  curl -X POST -H "Content-Type: application/json" -d
'  '{
'     	"site_id":"MLA"
'  }'
'  https://api.mercadolibre.com/users/test_user?access_token=MY_ACCESS_TOKEN

'  Use the following online tool to generate HTTP code from a CURL command
'  Convert a cURL Command to HTTP Source Code

'  Use this online tool to generate code from sample JSON:
'  Generate Code to Create JSON

'  The following JSON is sent in the request body.

'  {
'    "site_id": "MLA"
'  }

Dim json As ChilkatJsonObject
json.Initialize
json.UpdateString("site_id", "MLA")

http.SetRequestHeader("Content-Type", "application/json")

http.SetUrlVar("access_token", jsonToken.StringOf("access_token"))

Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpJson("POST", "https://api.mercadolibre.com/users/test_user?access_token={$access_token}", json, "application/json", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Dim sbResponseBody As ChilkatStringBuilder
sbResponseBody.Initialize
resp.GetBodySb(sbResponseBody)
Dim jResp As ChilkatJsonObject
jResp.Initialize
jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = False

Log("Response Body:")
Log(jResp.Emit)

'  A response status code of 201 indicates success.
Dim respStatusCode As Int = resp.StatusCode
Log("Response Status Code = " & respStatusCode)
If respStatusCode >= 400 Then
    Log("Response Header:")
    Log(resp.Header)
    Log("Failed.")
    Return
End If


'  Sample JSON response:
'  (Sample code for parsing the JSON response is shown below)

'  {
'    "id": 577815702,
'    "nickname": "TETE5320415",
'    "password": "qatest4890",
'    "site_status": "active",
'    "email": "test_user_80450945@testuser.com"
'  }

'  Sample code for parsing the JSON response...
'  Use the following online tool to generate parsing code from sample JSON:
'  Generate Parsing Code from JSON



Dim id As Int = jResp.IntOf("id")
Dim nickname As String = jResp.StringOf("nickname")
Dim password As String = jResp.StringOf("password")
Dim site_status As String = jResp.StringOf("site_status")