TEarthStreamReader

type TEarthStreamReader = class(TEarthRoot)

protected

  procedure _Read(); virtual;

public

  constructor Create();

  destructor Destroy; override;

  procedure ReadBuffer(); virtual;

  function ReadBoolean; virtual;

  function ReadDouble; virtual;

  function ReadWord; virtual;

  function ReadShortInt; virtual;

  function ReadSmallInt; virtual;

  function ReadInteger; virtual;

  function ReadInteger16bit; virtual;

  function ReadShortString; virtual;

  function ReadPointLL(); virtual;

  function ReadRect; virtual;

  function ReadMER; virtual;

  function ReadComponent();

  function ReadComponentRes();

  function ReadColor;

  procedure ReadPicture();

  procedure ReadBirmap32();

  property DataStream: TStream; [rw]

end;

TEarthStreamReader

TEarthRoot

TObject