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

Download HTML from URL and Convert to XML

Downloads an HTML page from a URL and converts it to XML.

Download Chilkat HTTP ActiveX

LOCAL loHttp
LOCAL lnSuccess
LOCAL lcHtml
LOCAL loHtmlToXml
LOCAL lcXml

*  Note: This example uses two Chilkat products: Chilkat HTTP
*  and Chilkat HTML-to-XML.  The "Chilkat Bundle" can be licensed
*  at a price that is less than purchasing each product individually.
*  The "Chilkat Bundle" provides licenses to all Chilkat components.  Also, new-version upgrades are always free.

loHttp = CreateObject('Chilkat.Http')

*  Any string argument automatically begins the 30-day trial.

lnSuccess = loHttp.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("HTTP component unlock failed")
    QUIT
ENDIF

lcHtml = loHttp.QuickGetStr("http://www.intel.com/")
IF (lcHtml = NULL ) THEN
    =MESSAGEBOX(loHttp.LastErrorText)
    QUIT
ENDIF

loHtmlToXml = CreateObject('Chilkat.HtmlToXml')

*  Any string argument automatically begins the 30-day trial.
lnSuccess = loHtmlToXml.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("HtmlToXml component unlock failed")
    QUIT
ENDIF

*  Indicate the charset of the output XML we'll want.
loHtmlToXml.XmlCharset = "iso-8859-1"

*  Set the HTML:
loHtmlToXml.Html = lcHtml

*  Convert to XML:

lcXml = loHtmlToXml.ToXml()

*  Save the XML to a file.
*  Make sure your charset here matches the charset
*  used for the XmlCharset property.
loHtmlToXml.WriteStringToFile(lcXml,"out.xml","iso-8859-1")

=MESSAGEBOX("Finished.")

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