Class TForm1 (unit TAudioFileOutDemo)

Inherits from

TForm

Constructors



Functions

function AudioOut1FillBuffer(B: PChar; Var N: Integer): Boolean;


procedure AudioOut1Start(Sender: TObject);

Finish up with the rate and bits

procedure AudioOut1Stop(Sender: TObject);


procedure FileListBox1Click(Sender: TObject);

Now compute the fade rate from one channel to another.

procedure PlaySpeedButtonClick(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


Procedure UpdateAudioInfo(FileName : String);

--------UpdateAudioInfo------------------John Mertus---May 97---

Function SetupStart(FileName : String) :Boolean;

Public declarations

Timer1.


Properties

Events

Variables

AudioOut1 : TAudioOut;


Bevel2 : TBevel;


DirectoryListBox1 : TDirectoryListBox;


DriveComboBox1 : TDriveComboBox;


Edit1 : TEdit;


FileListBox1 : TFileListBox;


FilterComboBox1 : TFilterComboBox;


FormatLabel : TLabel;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Panel1 : TPanel;


PlaySpeedButton : TSpeedButton;


ProgressBar1 : TProgressBar;


PropertyLabel : TLabel;


SizeLabel : TLabel;


TimeLabel : TLabel;


Timer1 : TTimer;


TypeLabel : TLabel;


Buffer : ^Integer;


lPos : Integer;


ReadSize : Integer;


UAF : UAF_File;


WasStereo : Boolean;

Private declarations


Constructors


Functions


function AudioOut1FillBuffer(B: PChar; Var N: Integer): Boolean;


procedure AudioOut1Start(Sender: TObject);

Finish up with the rate and bits


procedure AudioOut1Stop(Sender: TObject);


procedure FileListBox1Click(Sender: TObject);

Now compute the fade rate from one channel to another. Not interesting


procedure PlaySpeedButtonClick(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


Procedure UpdateAudioInfo(FileName : String);

--------UpdateAudioInfo------------------John Mertus---May 97---


Function SetupStart(FileName : String) :Boolean;

Public declarations

Timer1.Enabled := FALSE;


Properties


Events


Variables


AudioOut1 : TAudioOut;


Bevel2 : TBevel;


DirectoryListBox1 : TDirectoryListBox;


DriveComboBox1 : TDriveComboBox;


Edit1 : TEdit;


FileListBox1 : TFileListBox;


FilterComboBox1 : TFilterComboBox;


FormatLabel : TLabel;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Panel1 : TPanel;


PlaySpeedButton : TSpeedButton;


ProgressBar1 : TProgressBar;


PropertyLabel : TLabel;


SizeLabel : TLabel;


TimeLabel : TLabel;


Timer1 : TTimer;


TypeLabel : TLabel;


Buffer : ^Integer;


lPos : Integer;


ReadSize : Integer;


UAF : UAF_File;


WasStereo : Boolean;

Private declarations