DataFlex

HTTP POST (Duplicate Simple HTML Form POST)

Demonstrates how to duplicate a simple HTML form POST. DataFlex

Use ChilkatAx-win32.pkg

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

    Move False To iSuccess

    // 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 Create (RefClass(cComChilkatHttpResponse)) To hoResp
    If (Not(IsComObjectCreated(hoResp))) Begin
        Send CreateComObject of hoResp
    End
    Get pvComObject of hoReq to vReq
    Get pvComObject of hoResp to vResp
    Get ComHttpSReq Of hoHttp sDomain iPort iTls vReq vResp To iSuccess
    If (iSuccess = 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