DataFlex

Socket Convenience Method: BuildHttpGetRequest

See more Socket/SSL/TLS Examples

Demonstrates the BuildHttpGetRequest method. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoSocket
    String sUrl
    String sReqStr
    Handle hoReq

    // The BuildHttpGetRequest method is a convenience method for building
    // an HTTP GET request.  Normally, an application would use Chilkat's HTTP or REST API's
    // for sending HTTP requests.  

    Get Create (RefClass(cComChilkatSocket)) To hoSocket
    If (Not(IsComObjectCreated(hoSocket))) Begin
        Send CreateComObject of hoSocket
    End

    Move "http://www.chilkatsoft.com/test.asp?x=123&y=456" To sUrl
    Get ComBuildHttpGetRequest Of hoSocket sUrl To sReqStr
    Showln sReqStr
    Showln "----"

    // The result is:

    // 	GET /test.asp?x=123&y=456 HTTP/1.1
    // 	Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
    // 	Connection: keep-alive
    // 	User-Agent: Mozilla/5.0 (Windows NT 6.3; WOW64; rv:49.0) Gecko/20100101 Firefox/49.0
    // 	Accept-Language: en-us,en;q=0.5
    // 	Host: www.chilkatsoft.com

    // The result is meant to look like a request from a browser.

    // The same thing can be done using the Url and HttpRequest classes, but with more flexibility.

    Get Create (RefClass(cComChilkatHttpRequest)) To hoReq
    If (Not(IsComObjectCreated(hoReq))) Begin
        Send CreateComObject of hoReq
    End
    Send ComSetFromUrl To hoReq sUrl
    Get ComGenerateRequestText Of hoReq To sReqStr
    Showln sReqStr
    Showln "----"

    // The result is:

    // 	GET /test.asp?x=123&y=456 HTTP/1.1
    // 	Host: domain

    // Add some headers..
    Send ComAddHeader To hoReq "Host" "www.chilkatsoft.com"
    Send ComAddHeader To hoReq "Accept-Language" "en-us,en;q=0.5"
    Send ComAddHeader To hoReq "Some-Other-Header" "123456"

    Get ComGenerateRequestText Of hoReq To sReqStr
    Showln sReqStr

    // The result is now:

    // 	GET /test.asp?x=123&y=456 HTTP/1.1
    // 	Host: www.chilkatsoft.com
    // 	Accept-Language: en-us,en;q=0.5
    // 	Some-Other-Header: 123456


End_Procedure