(PowerBuilder) Quoted-Printable Encode/Decode a String

PowerBuilder example to quoted-printable encode and decode a string.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Crypt
string s
string ls_Qp
string ls_Decoded
string ls_Qp
string ls_Decoded

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

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

// Here's a string in Icelandic using non us-ascii chars:
s = "Ég get etið gler án þess að meiða mig."

loo_Crypt.CryptAlgorithm = "none"
loo_Crypt.EncodingMode = "quoted-printable"

// Quoted-printable encode/decode the iso-8859-1
// representation of the string.  Notice how each
// Icelandic char is represented by 1 byte:
loo_Crypt.Charset = "iso-8859-1"
ls_Qp = loo_Crypt.EncryptStringENC(s)
Write-Debug "iso-8859-1:"
Write-Debug ls_Qp
ls_Decoded = loo_Crypt.DecryptStringENC(ls_Qp)
Write-Debug ls_Decoded

// Now do the same using utf-8. Notice how each
// Icelandic char is represented by 2 bytes in utf-8:
loo_Crypt.Charset = "utf-8"
ls_Qp = loo_Crypt.EncryptStringENC(s)
Write-Debug "utf-8:"
Write-Debug ls_Qp
ls_Decoded = loo_Crypt.DecryptStringENC(ls_Qp)
Write-Debug ls_Decoded


destroy loo_Crypt