Class TForm1 (unit TAudioSineDemo)

Inherits from

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);

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


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