(Visual FoxPro) Keeping Query Params in a Hashtable

Demonstrates how to use a Chilkat Hashtable to hold query params and re-emit as a query param string.

Note: The ToQueryString method was added in Chilkat v9.5.0.92.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loHt
LOCAL lnSuccess
LOCAL lcQp
LOCAL loKeys
LOCAL lnNumKeys
LOCAL lcKey
LOCAL lcVal
LOCAL i

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Hashtable')
loHt = CreateObject('Chilkat.Hashtable')

* Add name/value pairs from an existing query param string where the values are already URL encoded.
lcQp = "txt=this%20is%20a%20test&color=blue&fruits=apples%26oranges"
lnSuccess = loHt.AddQueryParams(lcQp)

* Add some additional name/value pairs.
loHt.AddStr("name","Jack Sparrow")
loHt.AddStr("movie","Pirates of the Carribean")

* Iterate over the hash table to show what we have..

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringTable')
loKeys = CreateObject('Chilkat.StringTable')
loHt.GetKeys(loKeys)
lnNumKeys = loKeys.Count

i = 0
DO WHILE i < lnNumKeys
    lcKey = loKeys.StringAt(i)
    lcVal = loHt.LookupStr(lcKey)
    ? lcKey + " = " + lcVal
    i = i + 1
ENDDO

* Output for the above loop:

* color = blue
* name = Jack Sparrow
* fruits = apples&oranges
* txt = this is a test
* movie = Pirates of the Carribean

* Get all name/value pairs as a query parm string with values URL encoded
lcQp = loHt.ToQueryString()
? lcQp

* Result:
* color=blue&name=Jack%20Sparrow&fruits=apples%26oranges&txt=this%20is%20a%20test&movie=Pirates%20of%20the%20Carribean

RELEASE loHt
RELEASE loKeys