Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(PureBasic) Quoted-Printable Encode/Decode a StringPureBasic example to quoted-printable encode and decode a string.
IncludeFile "CkCrypt2.pb" Procedure ChilkatExample() ; This example requires 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 ; Here's a string in Icelandic using non us-ascii chars: s.s = "Ég get etið gler án þess að meiða mig." CkCrypt2::setCkCryptAlgorithm(crypt, "none") CkCrypt2::setCkEncodingMode(crypt, "quoted-printable") ; Quoted-printable encode/decode the iso-8859-1 ; representation of the string. Notice how each ; Icelandic char is represented by 1 byte: CkCrypt2::setCkCharset(crypt, "iso-8859-1") qp.s = CkCrypt2::ckEncryptStringENC(crypt,s) Debug "iso-8859-1:" Debug qp decoded.s = CkCrypt2::ckDecryptStringENC(crypt,qp) Debug decoded ; Now do the same using utf-8. Notice how each ; Icelandic char is represented by 2 bytes in utf-8: CkCrypt2::setCkCharset(crypt, "utf-8") qp.s = CkCrypt2::ckEncryptStringENC(crypt,s) Debug "utf-8:" Debug qp decoded.s = CkCrypt2::ckDecryptStringENC(crypt,qp) Debug decoded CkCrypt2::ckDispose(crypt) ProcedureReturn EndProcedure |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.