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:
Code: Copy
 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"
 
My mistake )

Code: Copy
 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
Back
Top