' CLIENT
' [mStringUtils, mB4XSerializator and tProva are declared, of course]
' Called by Private Sub ws_TextMessage(msg As String)
Public Sub TestRoutine(Params As List)
Dim Base64 As String = Params.Get(0)
Dim Data() As Byte = mStringUtils.DecodeBase64(Base64)
Dim Prova As tProva
Prova = mB4XSerializator.ConvertBytesToObject(Data)
LogColor("Ricevuti: " & Prova.ID & TAB & Prova.Name, Colors.Blue)