(PowerBuilder) 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

integer li_rc
oleobject loo_Url
string ls_UrlStr
integer li_Success

loo_Url = create oleobject
// Use "Chilkat_9_5_0.Url" for versions of Chilkat < 10.0.0
li_rc = loo_Url.ConnectToNewObject("Chilkat.Url")
if li_rc < 0 then
    destroy loo_Url
    MessageBox("Error","Connecting to COM object failed")
    return
end if

ls_UrlStr = "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"

li_Success = loo_Url.ParseUrl(ls_UrlStr)
// Assume success..

Write-Debug "URL: " + ls_UrlStr
Write-Debug "Host: " + loo_Url.Host
Write-Debug "Port: " + string(loo_Url.Port)
Write-Debug "HostType: " + loo_Url.HostType
Write-Debug "Ssl: " + string(loo_Url.Ssl)
Write-Debug "Path: " + loo_Url.Path
Write-Debug "Query: " + loo_Url.Query
Write-Debug "Frag: " + loo_Url.Frag
Write-Debug "----"

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

li_Success = loo_Url.ParseUrl(ls_UrlStr)
// Assume success..

Write-Debug "URL: " + ls_UrlStr
Write-Debug "Host: " + loo_Url.Host
Write-Debug "Port: " + string(loo_Url.Port)
Write-Debug "HostType: " + loo_Url.HostType
Write-Debug "Ssl: " + string(loo_Url.Ssl)
Write-Debug "Login: " + loo_Url.Login
Write-Debug "Password: " + loo_Url.Password
Write-Debug "Path: " + loo_Url.Path
Write-Debug "Query: " + loo_Url.Query
Write-Debug "Frag: " + loo_Url.Frag


destroy loo_Url