Class TFilter (unit Filters)

Inherits from

TStream

Constructors


constructor Create(AStream: TStream);

****************************** TFilter ***************************************


Functions

destructor Destroy;


function Get: TStreamable;

Get returns an TStreamable instance which was read from the stream

calls SetStream


procedure Put(Instance: TStreamable);

Put writes the instance to the stream

function Read(var Buffer; Count: Longint): Longint;

Read wraps the Stream's read method

function ReadStr: String;

Reads a PASCAL style string (length byte followed by length chars) from Stream's using the read method

function Seek(Offset: Longint; Origin: Word): Longint;

Seek wraps the Stream's seek method

procedure Truncate;

Truncate is not implemented, but gives a common interface to truncate at the current position

Allright even if FStream = nil


function Write(const Buffer; Count: Longint): Longint;

Write wraps the Stream's Write method

procedure WriteStr(const Value: string);


procedure RegisterInstance(Instance: TStreamable);


procedure SetStream(Value: TStream);


Properties

property OwnsStream : Boolean


property Stream : TStream


Events

Variables

FOwnsStream : Boolean;


FStream : TStream;



Constructors


constructor Create(AStream: TStream);

****************************** TFilter ***************************************


Functions


destructor Destroy;


function Get: TStreamable;

Get returns an TStreamable instance which was read from the stream

calls SetStream


procedure Put(Instance: TStreamable);

Put writes the instance to the stream


function Read(var Buffer; Count: Longint): Longint;

Read wraps the Stream's read method


function ReadStr: String;

Reads a PASCAL style string (length byte followed by length chars) from Stream's using the read method


function Seek(Offset: Longint; Origin: Word): Longint;

Seek wraps the Stream's seek method


procedure Truncate;

Truncate is not implemented, but gives a common interface to truncate at the current position

Allright even if FStream = nil


function Write(const Buffer; Count: Longint): Longint;

Write wraps the Stream's Write method


procedure WriteStr(const Value: string);


procedure RegisterInstance(Instance: TStreamable);


procedure SetStream(Value: TStream);


Properties


property OwnsStream : Boolean


property Stream : TStream


Events


Variables


FOwnsStream : Boolean;


FStream : TStream;