Delphi Examples

ChilkatHOMEASPVisual BasicVB.NETC#Visual C++CMFCDelphiFoxProJavaPerlPHPPythonRubySQL ServerVBScript

Delphi 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

More Examples...
Byte Array
Email Object
POP3
SMTP
RSS
Atom
Self-Extractor

Unreleased...
Service
PPMD
Deflate
Bzip2
LZW
Bz2
DH Key Exchange
DSA
Icon

Type Conversion

 

Article: Understanding COM References in Delphi

PPMD Compress File

Demonstrates how to use the PPMD compression algorithm to compress a file. 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 does not contain any "PPMD" header -- it is purely PPMD compressed data.

Download the Chilkat Compression ActiveX here: ChilkatCompression.zip
Unzip and register the DLL with regsvr32. (This is a pre-release)

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATCOMPRESSIONLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
compress: TChilkatCompression;
success: Integer;

begin
compress := TChilkatCompression.Create(Self);

//  Any string argument automatically begins a 30-day trial.
success := compress.UnlockComponent('30-day trial');
if (success <> 1) then
  begin
    ShowMessage('Compression component unlock failed');

  end;

compress.Algorithm := 'ppmd';

success := compress.CompressFile('hamlet.xml','hamletPpmd.dat');
if (success <> 1) then
  begin
    ShowMessage(compress.LastErrorText);

  end;

//  Decompress back to the original:
success := compress.DecompressFile('hamletPpmd.dat','hamletInflated.xml');
if (success <> 1) then
  begin
    ShowMessage(compress.LastErrorText);

  end;

Memo1.Lines.Add('Success!');
end;

 

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

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

Mail Component · .NET Email Component · XML Parser