Dim req As HttpJob
req.Initialize("myjob", Me)
req.PutString("https://xxxxx.firebaseio.com/Name.json", JSONstring)
Sub JobDone (Job As HttpJob)
If Job.Success = True Then
Log(Job.GetString)
Else
Log("Error: " & Job.ErrorMessage)
End If
Job.Release
End Sub
curl -X DELETE \
'https://docs-examples.firebaseio.com/rest/saving-data/users/alanisawesome.json'curl -X POST -d '{"Authenticated POST request"}' \
'https://docs-examples.firebaseio.com/rest/saving-data/auth-example.json?auth=CREDENTIAL'
// These rules require authentication via token
{
"rules": {
".read": "auth.token != null",
".write": "auth.token != null"
}
}Public Sub PostString2(Link As String, Text As String, Parameters() As String) ' WORKING!!!!
Dim sb As StringBuilder
sb.Initialize
sb.Append(Link)
If Parameters.Length > 0 Then
sb.Append("?")
End If
'
Dim su As StringUtils
For i = 0 To Parameters.Length - 1 Step 2
If i > 0 Then sb.Append("&")
sb.Append(su.EncodeUrl(Parameters(i), "UTF8")).Append("=")
sb.Append(su.EncodeUrl(Parameters(i + 1), "UTF8"))
Next
PostBytes(sb.ToString, Text.GetBytes("UTF8") )
End SubPublic Sub POST(strPath As String, mapData As Map, strJobTag As String) ' WORKING with authentication over access token
Dim jsonGen As JSONGenerator
jsonGen.Initialize(mapData)
Dim strJsonToSend As String = jsonGen.ToString
Dim job1 As HttpJob
job1.Initialize("FiBaDb_write", Me)
job1.Tag = strJobTag
job1.PostString2(strFiBaDbRoot & strPath & ".json", strJsonToSend, Array As String("auth", Starter.strFirebaseSignedInUserToken))
job1.GetRequest.SetContentType("application/json")
End Sub
I´ll capture the thread here to give a impression of the lib i wrapped so far... Basically it is working. Did not made much tests with it for sure...
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim realtime As FirebaseDatabase
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
realtime.Initialize("Realtime")
realtime.PersistenceEnabled = True
realtime.goOnline
Dim ref As DatabaseReference
ref.Initialize("Reference",realtime.getReferencefromUrl("https://tactical-patrol-603.firebaseio.com/"))
ref.addChildEventListener
ref.addListenerForSingleValueEvent
ref.addValueEventListener
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Reference_onCancelled(errnum As Int,error As String)
Log($"ref_onCancelled(${errnum},${error})"$)
End Sub
Sub Reference_onChildAdded(snapshot As Object, child As String)
Log($"ref_onChildAdded(${child})"$)
End Sub
Sub Reference_onChildChanged(snapshot As Object, child As String)
Log($"ref_onChildchanged(${child})"$)
End Sub
Sub Reference_onChildMoved(snapshot As Object, child As String)
Log($"ref_onChildMoved(${child})"$)
End Sub
Sub Reference_onChildRemoved(snapshot As Object)
Log($"ref_onChildRemoved()"$)
End Sub
Sub Reference_onDataChange(snapshot As Object)
Log($"ref_onDatachange()"$)
Dim snap As DataSnapshot = snapshot
Log("Value="&snap.Value)
'Dim json As JSONParser
'json.Initialize(snap.Value)
'Dim root As Map = json.NextObject
'Log(root)
'Dim keys As List = snap.Children
'Log(keys.Size)
'Log(snap.Children)
End Sub** Service (starter) Create **
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
ref imagesizes = (DatabaseReference) https://tactical-patrol-603.firebaseio.com
** Activity (main) Resume **
ref_onChildAdded(null)
ref_onChildAdded(boolean)
ref_onChildAdded(imagesizes)
ref_onChildAdded(number)
ref_onDatachange()
Value={ValueINt=8192, imagesizes=[{width=407, height=746, filename=0024.png, ext=png}, {width=338, height=574, filename=0025.png, ext=png}, {width=308, height=674, filename=0026.png, ext=png}, {width=330, height=545, filename=0027.png, ext=png}, {width=176, height=119, filename=100_0113.png, ext=png}, {width=256, height=346, filename=1250.png, ext=png}, {width=1667, height=714, filename=1251.png, ext=png}, {width=269, height=120, filename=2000likes001.png, ext=png}], welcomeMessage=Hello B4X World!
but how this works in B4A? How "set", "update" and "push" can be made only to authenticated users if no session here?
Hi Fredo, one very simple question.
