Android Question WebSocket listening to a byte array

[Ertan]

Hi, I have a server that listens to 1 Websockets. It was done with .net.
There are many devices connected to this server that can send and receive data.

and when I try it with the postman application, I can still send and receive data.
my problem is this: I can send data with B4A, but I can't get data.

The server sends data to All Devices, but data does not fall into my application.
How do I overcome this problem ?

#Region  Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'Private wsh As WebSocketHandler
    Private ws As WebSocket
    Private link As String = "ws://192.168.1.54:2030/PtsWebServis"
End Sub

Sub Globals
    Private btnConnect As Button
    Private lblServerTime As Label
    Private lblStatus As Label
    Private btnSend As Button
    Private EditText1 As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
    '    wsh.Initialize(Me,"wsh")
        ws.Initialize("wsh")
    End If
    Activity.LoadLayout("1")
    'accept all trust manager
End Sub

Sub btnSend_Click
    ws.SendText("Test")
    EditText1.RequestFocus
    EditText1.SelectAll
End Sub

Sub EditText1_EnterPressed
    If btnSend.Enabled Then btnSend_Click
End Sub

Sub wsh_TextMessage (Message As String)
    MsgboxAsync(Message,"Message")
End Sub

Sub wsh_Connected
    UpdateStatus
End Sub

Sub wsh_Closed (Reason As String)
    UpdateStatus
    ToastMessageShow(Reason, True)
End Sub

Sub Activity_Resume
    UpdateStatus
End Sub

Sub UpdateStatus
    If ws.Connected Then
        lblStatus.Text = "Status: Connected"
    Else
        lblStatus.Text = "Status: Disconnected"
    End If
    btnConnect.Enabled = Not(ws.Connected)
    btnSend.Enabled = ws.Connected
End Sub

Sub Activity_Pause (UserClosed As Boolean)
 
End Sub

Sub btnConnect_Click
    ws.Connect(link)
 
    lblStatus.Text = "Status: Connecting..."
End Sub

 

[DonManfred]

The Websocket mentioned in the Code does not match the one in the Screenshots!?

 

[Ertan]

The Websocket mentioned in the Code does not match the one in the Screenshots!?

Yes you are right. I edited the IP Address. My problem continues. Data coming to Postman comes from .net server.

 

[Ertan]

The Websocket mentioned in the Code does not match the one in the Screenshots!?

I found the problem. I can get String to the data. I can't get byte array data. How do I overcome this problem ?

 

[Ertan]

Is there anyone who can help? or any keywords?

 

[Ertan]

Sub wsh_TextMessage (Message As String)
    MsgboxAsync(Message,"Message")
End Sub

"wsh_TextMessage" is not triggered in the data I send to byte array. But if I send a String of data, it is triggered.

 

[DonManfred]

isn´t there not event-sub missing?

Sub wsh_BinaryMessage(Data() As Byte)
    Log($"WS_BinaryMessage(${Data.Length})"$)   
End Sub

 

[Ertan]

isn´t there not event-sub missing?

Sub wsh_BinaryMessage(Data() As Byte)
    Log($"WS_BinaryMessage(${Data.Length})"$)  
End Sub

Thank you.

 

[DonManfred]

Note that the event is available in B4J. Above code is from a B4J Testapp of mine.
Not sure if it is included in B4A as well and how.

Edit: with the newest release it works in b4a the same.