Class TCustomCompressor (unit GWCompress)

Inherits from

TComponent

Constructors


constructor Create( anOwner :TComponent );

Custom Compressor


Functions

procedure Compress;


procedure Decompress;


destructor Destroy;


procedure WaitForIdle;


procedure DoCompress;


procedure DoDecompress;


procedure Done;


procedure FlushOutBuffer;


function GetChar :Integer;


procedure GetData( pData :Pointer; var cbData :Integer );


procedure PutChar( C :Integer );


procedure ResetInBuffer;


procedure ResetOutBuffer;


procedure SetData( pData :Pointer; var cbData :Integer );


procedure ValidateIdleState;


procedure AllocateBuffers;


procedure SetInBufferSize( Value :Integer );


procedure SetOnGetData( Value :TGetCompressorDataEvent );


procedure SetOnSetData( Value :TSetCompressorDataEvent );


procedure SetOutBufferSize( Value :Integer );


Properties

property ElapsedTime : Integer


property InBufferSize : Integer


property OutBufferSize : Integer


property Status : TCompressorStatus


property InBuffer : Pointer


property OutBuffer : Pointer


Events

event OnDone : TNotifyEvent


event OnGetData : TGetCompressorDataEvent


event OnSetData : TSetCompressorDataEvent


Variables

FElapsedTime : Integer;


FInBuffer : Pointer;


FInBufferSize : Integer;


FInCnt : Integer;


FInPtr : Integer;


FOnDone : TNotifyEvent;


FOnGetData : TGetCompressorDataEvent;


FOnSetData : TSetCompressorDataEvent;


FOutBuffer : Pointer;


FOutBufferSize : Integer;


FOutPtr : Integer;


FStatus : TCompressorStatus;



Constructors


constructor Create( anOwner :TComponent );

Custom Compressor


Functions


procedure Compress;


procedure Decompress;


destructor Destroy;


procedure WaitForIdle;


procedure DoCompress;


procedure DoDecompress;


procedure Done;


procedure FlushOutBuffer;


function GetChar :Integer;


procedure GetData( pData :Pointer; var cbData :Integer );


procedure PutChar( C :Integer );


procedure ResetInBuffer;


procedure ResetOutBuffer;


procedure SetData( pData :Pointer; var cbData :Integer );


procedure ValidateIdleState;


procedure AllocateBuffers;


procedure SetInBufferSize( Value :Integer );


procedure SetOnGetData( Value :TGetCompressorDataEvent );


procedure SetOnSetData( Value :TSetCompressorDataEvent );


procedure SetOutBufferSize( Value :Integer );


Properties


property ElapsedTime : Integer


property InBufferSize : Integer


property OutBufferSize : Integer


property Status : TCompressorStatus


property InBuffer : Pointer


property OutBuffer : Pointer


Events


event OnDone : TNotifyEvent


event OnGetData : TGetCompressorDataEvent


event OnSetData : TSetCompressorDataEvent


Variables


FElapsedTime : Integer;


FInBuffer : Pointer;


FInBufferSize : Integer;


FInCnt : Integer;


FInPtr : Integer;


FOnDone : TNotifyEvent;


FOnGetData : TGetCompressorDataEvent;


FOnSetData : TSetCompressorDataEvent;


FOutBuffer : Pointer;


FOutBufferSize : Integer;


FOutPtr : Integer;


FStatus : TCompressorStatus;