| Class TForm1 (unit TAudioFileOutDemo) |
TForm
| Constructors |
| Functions |
function AudioOut1FillBuffer(B: PChar; Var N: Integer): Boolean;
procedure AudioOut1Start(Sender: TObject);
procedure AudioOut1Stop(Sender: TObject);
procedure FileListBox1Click(Sender: TObject);
procedure PlaySpeedButtonClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
Procedure UpdateAudioInfo(FileName : String);
Function SetupStart(FileName : String) :Boolean;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;| 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