Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#C# WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicPythonRubySQL ServerSwiftUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET WinRTVBScript

Visual FoxPro Examples

Certificates
Email Object
Encryption
FTP
HTML-to-XML/Text
Gzip
HTTP
IMAP
MHT / HTML Email
PEM
PFX/P12
Java KeyStore (JKS)
POP3
RSA Encryption
MIME
SMTP
Socket/SSL/TLS
SSH Key
SSH
SFTP
Tar Archive
XML
XMP
Zip

More Examples...
ASN.1
Amazon S3
Bounced Email
CSV
Diffie-Hellman
DKIM / DomainKey
NTLM

 

 

 

 

 

 

 

(Visual FoxPro) Deflate File

Demonstrates how to use the Deflate compression algorithm to compress a file. (The deflate compression algorithm is the most commonly used in the Zip archive file format.)

This code is capable of compressing any size file because the file data is compressed from input to output in a streaming mode. The output file contains only the deflated data (it is not a .zip, and there is no file structure or format).

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

LOCAL loCompress
LOCAL lnSuccess

loCompress = CreateObject('Chilkat_9_5_0.Compression')

*  Any string argument automatically begins a 30-day trial.
lnSuccess = loCompress.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    ? loCompress.LastErrorText
    RELEASE loCompress
    QUIT
ENDIF

loCompress.Algorithm = "deflate"

*  Deflate this XML file:
lnSuccess = loCompress.CompressFile("hamlet.xml","hamletDeflate.dat")
IF (lnSuccess <> 1) THEN
    ? loCompress.LastErrorText
    RELEASE loCompress
    QUIT
ENDIF

*  Inflate back to the original:
lnSuccess = loCompress.DecompressFile("hamletDeflate.dat","hamletInflated.xml")
IF (lnSuccess <> 1) THEN
    ? loCompress.LastErrorText
    RELEASE loCompress
    QUIT
ENDIF

? "Success!"


RELEASE loCompress

 

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