(DataFlex) Parse a URL into its Component Parts

Demonstrates how to parse a URL into it's component parts.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoUrl
    String sUrlStr
    Boolean iSuccess
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

    Get Create (RefClass(cComChilkatUrl)) To hoUrl
    If (Not(IsComObjectCreated(hoUrl))) Begin
        Send CreateComObject of hoUrl
    End

    Move "https://www.amazon.com/Anarchy-State-Utopia-Robert-Nozick/dp/0465051006/ref=sr_1_1?s=books&ie=UTF8&qid=1430344305&sr=1-1&keywords=nozick#frag123" To sUrlStr

    Get ComParseUrl Of hoUrl sUrlStr To iSuccess
    // Assume success..

    Showln "URL: " sUrlStr
    Get ComHost Of hoUrl To sTemp1
    Showln "Host: " sTemp1
    Get ComPort Of hoUrl To iTemp1
    Showln "Port: " iTemp1
    Get ComHostType Of hoUrl To sTemp1
    Showln "HostType: " sTemp1
    Get ComSsl Of hoUrl To bTemp1
    Showln "Ssl: " bTemp1
    Get ComPath Of hoUrl To sTemp1
    Showln "Path: " sTemp1
    Get ComQuery Of hoUrl To sTemp1
    Showln "Query: " sTemp1
    Get ComFrag Of hoUrl To sTemp1
    Showln "Frag: " sTemp1
    Showln "----"

    Move "http://matt:secret@www.chilkatsoft.com:8080/somepath.asp?test=123&size=2" To sUrlStr

    Get ComParseUrl Of hoUrl sUrlStr To iSuccess
    // Assume success..

    Showln "URL: " sUrlStr
    Get ComHost Of hoUrl To sTemp1
    Showln "Host: " sTemp1
    Get ComPort Of hoUrl To iTemp1
    Showln "Port: " iTemp1
    Get ComHostType Of hoUrl To sTemp1
    Showln "HostType: " sTemp1
    Get ComSsl Of hoUrl To bTemp1
    Showln "Ssl: " bTemp1
    Get ComLogin Of hoUrl To sTemp1
    Showln "Login: " sTemp1
    Get ComPassword Of hoUrl To sTemp1
    Showln "Password: " sTemp1
    Get ComPath Of hoUrl To sTemp1
    Showln "Path: " sTemp1
    Get ComQuery Of hoUrl To sTemp1
    Showln "Query: " sTemp1
    Get ComFrag Of hoUrl To sTemp1
    Showln "Frag: " sTemp1


End_Procedure