German HTTPUtils2 ident

[Matzele73]

Hallo zusammen,
ich versuche derzeit eine App zu erstellen, die von einem Server Daten mit Hilfe einer JSON-Struktur herunterlädt.
Hierzu muss ich mich anfangs zunächst mit Username und Passwort anmelden. Leider habe ich hier im Forum nichts zur Passwort-Abfrage gefunden.

Kann mir jemand ein einfaches Beispiel liefern?

Hier mein bisheriger Code:

Sub Globals

    Dim cmdGetUserDate As String = "https://www..xxx.net/getuserdata.php"
   
    Dim UserName As String ="abc"
    Dim UserPW As String ="xxx"

End Sub

Sub JobDone (Job As String)
Dim s As String
If HttpUtils.IsSuccess(cmdGetUserDate) Then
  s = HttpUtils.GetString(cmdGetUserDate)
  Log(s)
End If
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'parse the json file
HttpUtils.CallbackActivity = "Main" 'Current activity name.
HttpUtils.CallbackJobDoneSub = "JobDone"
HttpUtils.Download("Job1", cmdGetUserDate)

Vielen Dank im Voraus,
Matthias

 

[coyote]

Hallo Matthias,

schaue dir diese Tutorial an. HttpUtils2

Die Parameterübergabe per GET oder POST funktioniert so:

  'Send a GET request
  job1.Download2("http://www.b4x.com/print.php", _
      Array As String("first key", "first value :)", "second key", "value 2"))
  'Send a POST request
  job2.Initialize("Job2", Me)
  job2.PostString("http://www.b4x.com/print.php", "first key=first value&key2=value2")

In deinem Falls musst die die keys durch Username und PW ersetzen.

Gruß, Coyote