Unit LZRW1

Classes

Tlzrw1 -

Functions

Register - must be passed to LZHPACK/UNPACK

Types

Int16
SString
TCompressMode

Constants

Variables


Functions


procedure Register;

must be passed to LZHPACK/UNPACK

Types


Int16   = SmallInt
word align } {$O+} { ?? ?? } {***************************************************************************** *TLZRW1 file compression component. *---------------------------------- *Compresses a file with : *------------------------ * either the LZRW1/KH or LZH compression algorithm, * with code posted by Kurt Haenen on the SWAG (lzrw1). * or the Japanese LZH compression algorithm * ( LZSS coded by Haruhiko OKUMURA * Adaptive Huffman Coding coded by Haruyasu YOSHIZAKI * Edited and translated to English by Kenji RIKITAKE * Translated from C to Turbo Pascal by Douglas Webb 2/18/91 * posted by Doug Webb on the SWAG (preskit2\lzh).) *Visual feedback on a Panel if so desired. *All VCL code by D. Heijl , may 8-9 1996 *The Getblock/PutBlock procedures are based on the code in *lzhtest.pas by Douglas Webb. *The files lzh.pas and lzrw1kh.pas are essentially untouched *(only some cosmetic changes, also added exceptions) *-------------------------------------------------------------------- * V2.00.00 : * Code for using a Stream instead of a File added by Stefan Westner * 25 May 1997 (stefan.westner@stud.uni-bamberg.de) * I removed the seeks to the beginning of the stream (except for the auto guess) * and the Steeam.Clear call, so that you have more freedom using TFileStream. * 30 May 1997 (Danny.Heijl@cevi.be) * I also added a "Threshold" property that dictates the behaviour of Advise. *-------------------------------------------------------------------- * Feel free to use or give away this software as you see fit. * Just leave the credits in place if you alter the source. * This software is delivered to you "as is", * no guarantees, it may blow up or trigger World War Three * for all I know. * If you find any bugs and let me know, I will try to fix them. * I believe in programmers around the world helping each other * out by distributing free source code. *Danny Heijl, may 10 1996. *Danny.Heijl@cevi.be *----------------------------------------------------------------
SString = ShortString

TCompressMode = (Good, Fast, Auto);

Constants


Variables