B4J Question .NET B4XSerializator and DBCommand

Vikjh

Member
Licensed User
Hi
I'm trying to do VB.NET client for JRDC2 server using B4XSerializator
and no way to solve the problem with creating a "DBCommand".
Perhaps someone has already solved this problem?
Something like this:
B4X:
 Dim CmdObj As New Dictionary(Of Object, Object)
      CmdObj.Add("Sel_List", {2, 10, "", ""})
      
 Dim CMD As New B4XType("DBCommand", CmdObj)
 
 Dim B4xD As New Dictionary(Of Object, Object)
     B4xD.Add("command", CMD)
     B4xD.Add("UDev", DevID)
     B4xD.Add("Appv", AppVer)   

Dim ser As New B4XSerializator
ser.ConvertObjectToBytes(B4xD)
And server can't recognize this "DBCommand"
 

Vikjh

Member
Licensed User
My mistake )

B4X:
 Dim CmdObj As New Dictionary(Of Object, Object)
     CmdObj.Add("Name","Sel_List")  '<-
     CmdObj.Add("Parameters", {2, 10, "", ""}) ' <-

Dim CMD As New B4XType("DBCommand", CmdObj)

Dim B4xD As New Dictionary(Of Object, Object)
     B4xD.Add("command", CMD)
     B4xD.Add("UDev", DevID)
     B4xD.Add("Appv", AppVer)  

Dim ser As New B4XSerializator
ser.ConvertObjectToBytes(B4xD)
 
Upvote 0
Top