JsonList.Initialize
JsonZeileMap.Initialize
JsonZeileMap.put("Action", "Insert")
JsonZeileMap.put("uname", "xxxx")
JsonZeileMap.put("upw", SHA256Hash("pw"))
JsonZeileMap.put("umail", "kk@kk.de")
JsonZeileMap.put("myimage", SomeBase64String)
JsonList.add(JsonZeileMap)
Dim JSONGenerator As JSONGenerator
JSONGenerator.Initialize2(JsonList)
Dim JSONstring As String
JSONstring = JSONGenerator.ToString
Log(JSONstring)
Dim LoginJob As HttpJob
LoginJob.Initialize("InsertNew", Me)
LoginJob.PostString(Servername & "/login/loginpre.php", JSONstring)