Class tbitstream (unit Tifffile) |
Inherits from
TObject
tbitstream is used in the reading and writing of ccitt compressed images
constructor create(p:pchar; size:longint);
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.
Fcurr : pchar;
Findx : byte;
FMax : longint;
Fstart : pchar;
constructor create(p:pchar; size:longint);
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');
Fcurr : pchar;
Findx : byte;
FMax : longint;
Fstart : pchar;