Visual FoxPro

Initialize an HTTP Request from a URL

See more HTTP Examples

Demonstrates how to initialize an HTTP request object from a URL. Visual FoxPro

LOCAL loReq
LOCAL i
LOCAL lnNumParams

loReq = CreateObject('Chilkat.HttpRequest')

*  Loads the HTTP request object from a URL
loReq.SetFromUrl("https://www.youtube.com/watch?v=fAZdTchQePc&t=45s")

*  The verb will be "GET"
? "verb = " + loReq.HttpVerb
*  The path will be "/watch"
? "path = " + loReq.Path

*  The output of this loop will be
*  0) v: fAZdTchQePc
*  1) t: 45s

lnNumParams = loReq.NumParams
FOR i = 0 TO lnNumParams - 1
    ? STR(i) + ") " + loReq.GetParamName(i) + ": " + loReq.GetParamValue(i)
NEXT

*  View the request that would be sent if HttpSReq is called.
*  The HTTP request will be a GET that looks like this:
*  
*      GET /watch?v=fAZdTchQePc&t=45s HTTP/1.1
*      Host: domain
*  
*  Note: The HOST header will automatically get filled in with the actual domain when HttpSReq is called.

? loReq.GenerateRequestText()

*  We can add additional params
loReq.AddParam("artist","Richard Bona")
loReq.AddParam("musicType","Jazz")
loReq.AddParam("festival","Estival Jazz Lugano")
loReq.AddParam("year","2008")

*  Now examine the request that would be sent
*  
*      GET /watch?v=fAZdTchQePc&t=45s&artist=Richard%20Bona&musicType=Jazz&festival=Estival%20Jazz%20Lugano&year=2008 HTTP/1.1
*      Host: domain
*  
? loReq.GenerateRequestText()

*  We can remove a parameter:
loReq.RemoveParam("t")
? loReq.GenerateRequestText()

*  What happens if we change the request from a GET to a POST?
loReq.HttpVerb = "POST"
*  The request will now look like this:
*  
*     POST /watch HTTP/1.1
*     Host: domain
*     Content-Length: 93
*     
*     v=fAZdTchQePc&artist=Richard%20Bona&musicType=Jazz&festival=Estival%20Jazz%20Lugano&year=2008
*  
? loReq.GenerateRequestText()

*  What happens if we make it a multipart/form-data?
loReq.ContentType = "multipart/form-data"
*  Now the POST looks like this:
*     
*     POST /watch HTTP/1.1
*     Content-Type: multipart/form-data; boundary=------------020906020106050705030807
*     Host: domain
*     Content-Length: 545
*     
*     --------------020906020106050705030807
*     Content-Disposition: form-data; name="v"
*     
*     fAZdTchQePc
*     --------------020906020106050705030807
*     Content-Disposition: form-data; name="artist"
*     
*     Richard Bona
*     --------------020906020106050705030807
*     Content-Disposition: form-data; name="musicType"
*     
*     Jazz
*     --------------020906020106050705030807
*     Content-Disposition: form-data; name="festival"
*     
*     Estival Jazz Lugano
*     --------------020906020106050705030807
*     Content-Disposition: form-data; name="year"
*     
*     2008
*     --------------020906020106050705030807--

? loReq.GenerateRequestText()

RELEASE loReq