PureBasic

HTML Encoding

Demonstrates HTML encoding and decoding. PureBasic

IncludeFile "CkCrypt2.pb"

Procedure ChilkatExample()

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

    s.s = "< é ü ç Ω Hello & World ✓ >"

    htmlEncoded.s = CkCrypt2::ckEncodeString(crypt,s,"utf-8","html")
    Debug htmlEncoded

    ; Output:
    ; < &eacute; &uuml; &ccedil; &ohm; Hello & World &check; >

    ; To decode:
    s = CkCrypt2::ckDecodeString(crypt,htmlEncoded,"utf-8","html")
    Debug s

    ; Output:
    ; < é ü ç Ω Hello & World ✓ >


    CkCrypt2::ckDispose(crypt)


    ProcedureReturn
EndProcedure