(PureBasic) Parse a URL into its Component Parts

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkUrl.pb"

Procedure ChilkatExample()

    url.i = CkUrl::ckCreate()
    If url.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    urlStr.s = "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"

    success.i = CkUrl::ckParseUrl(url,urlStr)
    ; Assume success..

    Debug "URL: " + urlStr
    Debug "Host: " + CkUrl::ckHost(url)
    Debug "Port: " + Str(CkUrl::ckPort(url))
    Debug "HostType: " + CkUrl::ckHostType(url)
    Debug "Ssl: " + Str(CkUrl::ckSsl(url))
    Debug "Path: " + CkUrl::ckPath(url)
    Debug "Query: " + CkUrl::ckQuery(url)
    Debug "Frag: " + CkUrl::ckFrag(url)
    Debug "----"

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

    success = CkUrl::ckParseUrl(url,urlStr)
    ; Assume success..

    Debug "URL: " + urlStr
    Debug "Host: " + CkUrl::ckHost(url)
    Debug "Port: " + Str(CkUrl::ckPort(url))
    Debug "HostType: " + CkUrl::ckHostType(url)
    Debug "Ssl: " + Str(CkUrl::ckSsl(url))
    Debug "Login: " + CkUrl::ckLogin(url)
    Debug "Password: " + CkUrl::ckPassword(url)
    Debug "Path: " + CkUrl::ckPath(url)
    Debug "Query: " + CkUrl::ckQuery(url)
    Debug "Frag: " + CkUrl::ckFrag(url)


    CkUrl::ckDispose(url)


    ProcedureReturn
EndProcedure