Почему FireSharp не работает потоковое прослушивание - PullRequest
0 голосов
/ 24 января 2019

Я только что опробовал FireSharp в приложении для Windows. Я могу подключаться, запрашивать и обновлять данные без проблем. Однако я не могу заставить слушателя работать.

После вызова OnSync для создания прослушивателя objListener = Nothing. Нет ошибки, просто не возвращает значение.

*** OBJECT ***
Public Class AlertData
    Private new_value As String = Nothing

    Public Property NewValue() As String
        Get
            Return new_value
        End Get
        Set(ByVal value As String)
            new_value = value
        End Set
    End Property


End Class

*** CONNECTING\LISTENING ***
            objConfig = New FirebaseConfig()
            With objConfig
                .AuthSecret = "<My Secret>"
                .BasePath = "<My URL>"
            End With

            objClient = New FireSharp.FirebaseClient(objConfig)

            If objClient IsNot Nothing Then
                Dim objListener As EventStreamResponse = Await objClient.OnAsync("alert", Function(s, args, context) {txtUpdate.Text = args.ToString})
            End If


*** READING ***
        Dim objResult As AlertData
        Dim objResponse As FireSharp.Response.FirebaseResponse
        Try
            objResponse = Await objClient.GetAsync("alert")
            objResult = objResponse.ResultAs(Of AlertData)
            txtUpdate.Text = objResult.NewValue

        Catch ex As Exception
            strErrMsg = ex.Message
        End Try


*** WRITING ***
        Dim objData As AlertData
        Dim objResult As AlertData
        Dim objResponse As SetResponse
        Try

            objData = New AlertData()
            objData.NewValue = Now.ToString("yyyy-MM-dd hh:mm:ss")

            objResponse = Await objClient.SetAsync("alert", objData)
            objResult = objResponse.ResultAs(Of AlertData)

        Catch ex As Exception
            strErrMsg = ex.Message
        End Try



...