(PureBasic) Download HTML from URL and Convert to XML

Downloads an HTML page from a URL and converts it to XML.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttp.pb"
IncludeFile "CkGlobal.pb"
IncludeFile "CkHtmlToXml.pb"

Procedure ChilkatExample()

    ; Note: This example requires the Chilkat Bundle license.

    ; Any string argument automatically begins the 30-day trial.
    glob.i = CkGlobal::ckCreate()
    If glob.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i = CkGlobal::ckUnlockBundle(glob,"30-day trial")
    If success <> 1
        Debug CkGlobal::ckLastErrorText(glob)
        CkGlobal::ckDispose(glob)
        ProcedureReturn
    EndIf

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

    html.s
    html = CkHttp::ckQuickGetStr(http,"http://www.intel.com/")
    If CkHttp::ckLastMethodSuccess(http) <> 1
        Debug CkHttp::ckLastErrorText(http)
        CkGlobal::ckDispose(glob)
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

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

    ; Indicate the charset of the output XML we'll want.
    CkHtmlToXml::setCkXmlCharset(htmlToXml, "utf-8")

    ; Set the HTML:
    CkHtmlToXml::setCkHtml(htmlToXml, html)

    ; Convert to XML:
    xml.s
    xml = CkHtmlToXml::ckToXml(htmlToXml)

    ; Save the XML to a file.
    ; Make sure your charset here matches the charset
    ; used for the XmlCharset property.
    success = CkHtmlToXml::ckWriteStringToFile(htmlToXml,xml,"qa_output/out.xml","utf-8")

    Debug "Finished."


    CkGlobal::ckDispose(glob)
    CkHttp::ckDispose(http)
    CkHtmlToXml::ckDispose(htmlToXml)


    ProcedureReturn
EndProcedure