Add a Path Substitution Parameter to a REST Request

See more REST Examples

Demonstrates Rest.AddPathParam, which adds or replaces a path-substitution parameter. Before a request is sent, each occurrence of the name in the URI path is replaced with its value.

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set rest = CreateObject("Chilkat.Rest")

'  Connect to the REST server.  The 3rd argument enables TLS (use 1 for HTTPS on port 443),
'  and the 4th enables automatic reconnection if the connection is dropped between requests.
bTls = 1
bAutoReconnect = 1
success = rest.Connect("example.com",443,bTls,bAutoReconnect)
If (success = 0) Then
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

'  Add path-substitution parameters.  Before a request is sent, each occurrence of the name in the
'  URI path is replaced with the value.  This keeps the path template readable.
success = rest.AddPathParam("{userId}","12345")
success = rest.AddPathParam("{orderId}","98765")

'  The placeholders in the path are replaced before the request is sent.
responseText = rest.FullRequestNoBody("GET","/users/{userId}/orders/{orderId}")
If (rest.LastMethodSuccess = 0) Then
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(responseText)

outFile.Close