Dim JSONList As List
JSONList.Initialize
Dim ZeileMap As Map
ZeileMap.Initialize
ZeileMap.put("username", txt_username.Text)
ZeileMap.put("email", txt_email.Text)
ZeileMap.put("password", txt_password.Text)
JSONList.add(ZeileMap)
Dim JSONGenerator As JSONGenerator
JSONGenerator.Initialize2(JSONList)
Dim JSONstring As String
JSONstring = JSONGenerator.ToString
Log(JSONstring)
Dim dlj As HttpJob
Dim content As String
dlj.Initialize("", Me)
dlj.PostString("https://safe-chamber-10868.herokuapp.com/api/Users/login", JSONstring)
dlj.GetRequest.SetHeader("Content-Type", "application/json")
dlj.GetRequest.Timeout=5000
Wait For (dlj) jobdone(j As HttpJob)
If dlj.Success Then
content=dlj.GetString
Log(content)