FoxPro Examples

ChilkatHOMEASPVisual BasicVB.NETC#Visual C++CMFCDelphiFoxProJavaPerlPHPPythonRubySQL ServerVBScript

Visual FoxPro Examples

Bounced Mail
Character Encoding
Digital Certificates
Digital Signatures
Email
FTP
HTML-to-XML
HTTP
IMAP
Encryption
MHT / HTML Email
RSA Encryption
S/MIME
Socket
Spider
String
Tar
Upload
XML
XMP
Zip Compression
Self-Extractor

More Examples...
Email Object
POP3
SMTP
RSS
Atom
Byte Array
Service
PPMD
Deflate
DH Key Exchange
DSA
SSH Key
SSH
SSH Tunnel
SFTP

Unreleased...
Bzip2
LZW
Bz2
Icon

 

Non-Chilkat Links
Text and String Handling

Encrypt XML Subtree

Encrypt an entire subtree within an XML document

LOCAL loXml
LOCAL loXml
LOCAL loXmlM
LOCAL loXmlG
LOCAL lnSuccess


loXml = CreateObject('Chilkat.Xml')

*  First, build a sample XML document:

loXml = CreateObject('Chilkat.Xml')

loXml.Tag = "stocks"

loXmlM = loXml.NewChild("Microsoft","")
loXmlM.NewChild2("symbol","MSFT")
loXmlM.NewChild2("recentPrice","34.50")

loXmlG = loXml.NewChild("Google","")
loXmlG.NewChild2("symbol","GOOG")
loXmlG.NewChild2("recentPrice","679.00")

*  Display the unencrypted XML:
? loXml.GetXml()

*  This is the XML displayed:
*  <stocks>
*      <Microsoft>
*          <symbol>MSFT</symbol>
*          <recentPrice>34.50</recentPrice>
*      </Microsoft>
*      <Google>
*          <symbol>GOOG</symbol>
*          <recentPrice>679.00</recentPrice>
*      </Google>
*  </stocks>

*  The goal is to encrypt the "Microsoft" sub-tree.
*  The EncryptContent method encryptes the content
*  within a single XML node (not an entire sub-tree).
*  Therefore, to encrypt a sub-tree,  you must first
*  compress it into a single node, and then encrypt it.
loXmlM.ZipTree()

*  Now encrypt the content using 128-bit AES encryption:
loXmlM.EncryptContent("secretPassword")

*  Display the XML with the encrypted sub-tree:
? loXml.GetXml()

*  This is displayed:
*  <stocks>
*      <Microsoft><![CDATA
*  [JkiMcoK3Mi198rT30KvicDEzu5WuJgMH+8KS0UZbcRE
*  2CtdXplphV0iCdPMYnS01O6Ly6S4QCQSReMCshG/V3
*  8btJIZv/VLG9JZRsQk0bBafMhx7B2fQfm8YENke/JIM
*  ]]>    </Microsoft>
*      <Google>
*          <symbol>GOOG</symbol>
*          <recentPrice>679.00</recentPrice>
*      </Google>
*  </stocks>

*  Now decrypt and unzip:
loXmlM.DecryptContent("secretPassword")

lnSuccess = loXmlM.UnzipTree()
IF (lnSuccess <> 1) THEN
    ? "Failed to unzip tree"
ENDIF

*  Display the restored document:
? loXml.GetXml()

RELEASE loXmlM
RELEASE loXmlG


Need a specific example? Send a request to support@chilkatsoft.com

© 2000-2007 Chilkat Software, Inc. All Rights Reserved.

Mail Component · .NET Email Component · ASP Mail Component · XML Parser