iOS Question How to get map to group key/value pairs

[davepamn]

I need my json string to format

[{"key":"1","keyvalue":"a"},{"key":"2","keyvalue":"b"}]

Server Code:

<Serializable> _
    Public Class cKeyItem
        Private m_key As String
        Private m_keyValue As String
        PublicProperty key() AsString
            Get
                Return m_key
            End Get
            Set(value As String)
                m_key = value
            End Set
        EndProperty
        Public Property keyValue() As String
            Get
                Return m_keyValue
            End Get
            Set(value As String)
                m_keyValue = value
            End Set
        EndProperty
    EndClass

<WebMethod()> _
Sub Save(sJSON as string)
Dim jSearializer As System.Web.Script.Serialization.JavaScriptSerializer = New System.Web.Script.Serialization.JavaScriptSerializer()

        Dim objItemList = jSearializer.Deserialize(Of List(Of cKeyItem))(sJSON)
        Dim oKeyItem As cKeyItem
        For Each oKeyItem In objItemList
            sRetVal = sRetVal & oKeyItem.key & "=" & oKeyItem.keyValue
        Next
End Sub

How do I get the map function to serialize the json string into key value pairs?

    Dim sJSONString As String
    Dim oJSONGenerator As JSONGenerator
    oJSONGenerator.Initialize2(oKeyValueList)
    sJSONString=oJSONGenerator.ToString

 

[Erel]

[{"key":"1","keyvalue":"a"},{"key":"2","keyvalue":"b"}]

Dim values As List = Array(CreateMap("key": "1", "keyvalue": "a"), CreateMap("key": "2", "keyvalue": "b"))
Dim jg As JsonGenerator
jg.Initialize2(values)
log(jg.ToString)

 

[davepamn]

thanks

 

[davepamn]

jobTestIdValues.Download2("http://server/Save", Array As String("sJSON",sJSONString))

I tested a large JSON string on the server and it worked.

There seems to be a problem with the sJSONString on the client.

Dim oKeyValueList As List
oKeyValueList.Initialize

... (loop)
oKeyValueList.Add(CreateMap("key":sTestId,"keyvalue":sTestValue))  '100 of these tests
...

Dim sJSONString As String
Dim oJSONGenerator As JSONGenerator
oJSONGenerator.Initialize2(oKeyValueList)
sJSONString=oJSONGenerator.ToString

Msgbox(sJSONString,"json")

Dim jobTestIdValues As HttpJob

jobTestIdValues.Initialize("JobSaveTestIdValues",Me)
jobTestIdValues.Download2("http://www.abc.com/Save", ArrayAsString("sJSON",sJSONString))

The msgbox shows the JSON string is being generated correctly.

The code works for 20 tests.

 

[Erel]

Please post the code and the error from the logs.

 

[davepamn]

It seems like the maximum number of characters I can post to the server is 1024

https://supportcontent.ca.com/cadocs/0/CA Workload Automation ESP Edition 11 4 - PUBLIC BOOKS ONLY-ENU/Bookshelf_Files/HTML/WA_AgentAppServ_UserGuide/index.htm?toc.htm?460296.html

This article says there is a filter length of 1024 characters.

I still am not able to post large JSON strings

 

[davepamn]

I wrote a VB app and set a large JSON string to the server and it parsed. The asp.net server works.

 

[Erel]

You should create a POST request and send the string as the post payload. This way there won't be any limit.

 

[davepamn]

Dim jobTestIdValues As HttpJob
jobTestIdValues.Initialize("JobSaveTestIdValues",Me)
jobTestIdValues.PostString("http://www.abc.com/Save", "sJSON=" & sJSONString)

This Worked!

 

[davepamn]

Thanks