(PureBasic) Re-Encode (How to convert encodings)

Demonstrates how to convert a string from one encoding to another.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkCrypt2.pb"

Procedure ChilkatExample()

    ; This example assumes the Chilkat API to have been previously unlocked.
    ; See Global Unlock Sample for sample code.

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

    s1.s = "This is a test / = abc 123"

    ; The ReEncode method converts a string from one encoding
    ; to another.
    ; Valid encodings are "url", "base64", "qp", "hex", "ansi", "modbase64", "base64url", "base32", "base58",
    ; and any of the encodings listed here:  http://cknotes.com/chilkat-binary-encoding-list

    ; Use "ansi" for an unencoded ANSI string.

    ; Encode to URL-encoding:
    s2.s = CkCrypt2::ckReEncode(crypt,s1,"ansi","url")
    Debug s2

    ; Convert from URL-encoding to base64:
    b64.s
    b64 = CkCrypt2::ckReEncode(crypt,s2,"url","base64")
    Debug b64

    ; Convert from base64 to hex:
    hex.s
    hex = CkCrypt2::ckReEncode(crypt,b64,"base64","hex")
    Debug hex


    CkCrypt2::ckDispose(crypt)


    ProcedureReturn
EndProcedure