| Class TForm1 (unit TAudioSineDemo) |
TForm
This just demostrates some of the functions of the TSoundOut component 1) How to Fill Buffers. 2) How to Start, Stop at once, Stop gracefully. 3) How to pause and resume playout. 4) Using OnStart and OnStop.
| Constructors |
| Functions |
function AudioOut1FillBuffer(Buffer: PChar; Var N: Integer): Boolean;
procedure AudioOut1Start(Sender: TObject);
procedure AudioOut1Stop(Sender: TObject);
procedure BufferEditExit(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PauseButtonClick(Sender: TObject);
procedure SoundOutButtonClick(Sender: TObject);
procedure StartButtonClick(Sender: TObject);
procedure StopButtonClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
Procedure UpdateStatus;| Properties |
| Events |
| Variables |
AudioOut1 : TAudioOut;
BufferEdit : TEdit;
BufferLabel : TLabel;
BufferStatusLabel : TLabel;
FreqLabel : TLabel;
Panel1 : TPanel;
PauseButton : TButton;
RunStatusLabel : TLabel;
SoundOutButton : TSpeedButton;
StartButton : TButton;
StopButton : TButton;
Timer1 : TTimer;
TimeStatusLabel : TLabel;
TrackBar1 : TTrackBar;
Freq : Integer;
TotalBuffers : Integer;| Constructors |
| Functions |
function AudioOut1FillBuffer(Buffer: PChar; Var N: Integer): Boolean;
procedure AudioOut1Start(Sender: TObject);
procedure AudioOut1Stop(Sender: TObject);
procedure BufferEditExit(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PauseButtonClick(Sender: TObject);
procedure SoundOutButtonClick(Sender: TObject);
procedure StartButtonClick(Sender: TObject);
procedure StopButtonClick(Sender: TObject);True will continue Processing
procedure Timer1Timer(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
Procedure UpdateStatus;| Properties |
| Events |
| Variables |
AudioOut1 : TAudioOut;
BufferEdit : TEdit;
BufferLabel : TLabel;
BufferStatusLabel : TLabel;
FreqLabel : TLabel;
Panel1 : TPanel;
PauseButton : TButton;
RunStatusLabel : TLabel;
SoundOutButton : TSpeedButton;
StartButton : TButton;
StopButton : TButton;
Timer1 : TTimer;
TimeStatusLabel : TLabel;
TrackBar1 : TTrackBar;
Freq : Integer;
TotalBuffers : Integer;Private declarations