units/mp3/KolSubBand.pas

   1 (*
   2  *  File:     $RCSfile: SubBand.pas,v $
   3  *  Revision: $Revision: 1.1.1.1 $
   4  *  Version : $Id: SubBand.pas,v 1.1.1.1 2002/04/21 12:57:22 fobmagog Exp $
   5  *  Author:   $Author: fobmagog $
   6  *  Homepage: http://delphimpeg.sourceforge.net/
   7  *            Kol translation by Thaddy de Koning
   8  *
   9  *  This program is free software; you can redistribute it and/or modify
  10  *  it under the terms of the GNU General Public License as published by
  11  *  the Free Software Foundation; either version 2 of the License, or
  12  *  (at your option) any later version.
  13  *
  14  *  This program is distributed in the hope that it will be useful,
  15  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17  *  GNU General Public License for more details.
  18  *
  19  *  You should have received a copy of the GNU General Public License
  20  *  along with this program; if not, write to the Free Software
  21  *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  22  *)
  23 unit KolSubBand;
  24
  25 interface
  26
  27 uses
  28   Windows, kol, kolBitStream, kolHeader, kolCRC, kolSynthFilter, kolShared;
  29
  30 type
  31   PSubband = ^TSubband;
  32   TSubBand = object(Tobj)
  33   public
  34     procedure ReadAllocation(Stream: PBitStream; Header: PHeader; CRC: PCRC16); virtual;
  35     procedure ReadScaleFactor(Stream: PBitStream; Header: PHeader); virtual;
  36     function ReadSampleData(Stream: PBitStream): boolean; virtual;
  37     function PutNextSample(Channels: TChannels;
  38       Filter1, Filter2: PSynthesisFilter): boolean; virtual;
  39   end;
  40
  41 implementation
  42
  43 { TSubBand }
  44
  45 function TSubBand.PutNextSample(Channels: TChannels; Filter1,
  46   Filter2: PSynthesisFilter): boolean;
  47 begin
  48 end;
  49
  50 procedure TSubBand.ReadAllocation(Stream: PBitStream; Header: PHeader;
  51   CRC: PCRC16);
  52 begin
  53 end;
  54
  55 function TSubBand.ReadSampleData(Stream: PBitStream): boolean;
  56 begin
  57 end;
  58
  59 procedure TSubBand.ReadScaleFactor(Stream: PBitStream; Header: PHeader);
  60 begin
  61 end;
  62
  63 end.