(DataFlex) HTTP POST (Duplicate Simple HTML Form POST)

Demonstrates how to duplicate a simple HTML form POST.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Variant vReq
    Handle hoReq
    Handle hoHttp
    Boolean iSuccess
    String sDomain
    Integer iPort
    Boolean iTls
    Variant vResp
    Handle hoResp
    String sTemp1
    Boolean bTemp1

    // This example requires the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

    Get Create (RefClass(cComChilkatHttpRequest)) To hoReq
    If (Not(IsComObjectCreated(hoReq))) Begin
        Send CreateComObject of hoReq
    End
    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    // This example simulates this FORM:
    // <form action="echoPost.asp" method="post">
    // First name: <input type="text" name="firstName"><br />
    // Last name: <input type="text" name="lastName"><br />
    // <input type="submit" value="Submit">
    // </form>
    // The online FORM is found at this URL:
    // https://www.chilkatsoft.com/simpleForm.html

    // Build an HTTP POST Request:
    Set ComHttpVerb Of hoReq To "POST"

    // The FORM target is http://www.chilkatsoft.com/processPost.asp
    // An easy way of filling out most of the HTTP request object
    // is to call SetFromUrl:
    Send ComSetFromUrl To hoReq "https://www.chilkatsoft.com/echoPost.asp"

    // Send form params using application/x-www-form-urlencoded
    Set ComContentType Of hoReq To "application/x-www-form-urlencoded"

    // The only remaining task is to add the params to the 
    // HTTP request object:
    Send ComAddParam To hoReq "firstName" "Matt"
    Send ComAddParam To hoReq "lastName" "Jones"

    // Send the HTTP POST and get the response.
    // The POST is being sent to chilkatsoft.com, on port 443 (using TLS)
    Move "chilkatsoft.com" To sDomain
    Move 443 To iPort
    Move True To iTls

    // The HTTP POST is sent here:
    Get pvComObject of hoReq to vReq
    Get ComSynchronousRequest Of hoHttp sDomain iPort iTls vReq To vResp
    If (IsComObject(vResp)) Begin
        Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
        Set pvComObject Of hoResp To vResp
    End
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Display the HTML source of the page returned.
    Get ComBodyStr Of hoResp To sTemp1
    Showln sTemp1


End_Procedure