Class tbitstream (unit Tifffile)

Inherits from

TObject

tbitstream is used in the reading and writing of ccitt compressed images

Constructors


constructor create(p:pchar; size:longint);



Functions

procedure addbit(s:boolean);


procedure addbyte(s:boolean);


procedure align;

if Findx <> 0 then raise exception.

function atbyte:boolean;


function getbit:boolean;


function getbyte:byte;

if Findx <> 0 then raise exception.

Properties

Events

Variables

Fcurr : pchar;


Findx : byte;


FMax : longint;


Fstart : pchar;



Constructors


constructor create(p:pchar; size:longint);


Functions


procedure addbit(s:boolean);


procedure addbyte(s:boolean);


procedure align;

if Findx <> 0 then raise exception.create('not on bit boundary');


function atbyte:boolean;


function getbit:boolean;


function getbyte:byte;

if Findx <> 0 then raise exception.create('not on bit boundary');


Properties


Events


Variables


Fcurr : pchar;


Findx : byte;


FMax : longint;


Fstart : pchar;