Class TForm1 (unit Demo_au1)

Inherits from

TForm

Constructors



Functions

procedure Audio1AllBuffersPlayed(Sender: TObject);


procedure Audio1BufferPlayed(Sender: TObject);


procedure Audio1Record(Sender: TObject; P: Pointer; NoSamples: Word);


procedure FormActivate(Sender: TObject);


procedure PlayFileClick(Sender: TObject);


procedure QueryClick(Sender: TObject);


procedure RecFileClick(Sender: TObject);


procedure SpinButton1DownClick(Sender: TObject);


procedure SpinButton1UpClick(Sender: TObject);


procedure StartPlayClick(Sender: TObject);


procedure StartRecClick(Sender: TObject);


procedure StopPlayClick(Sender: TObject);


procedure StopRecClick(Sender: TObject);


Properties

Events

Variables

Audio1 : TAudio;


Memo1 : TMemo;


OpenDialog1 : TOpenDialog;


PlayFile : TButton;


Query : TButton;


RecFile : TButton;


SaveDialog1 : TSaveDialog;


SpinButton1 : TSpinButton;


StartPlay : TButton;


StartRec : TButton;


Status : TLabel;


StopPlay : TButton;


StopRec : TButton;


Volume1 : TLabel;


AudioPos : PMem;


FirstBuffer : Boolean;


Start : PMem;

Private declarations

Volume : Word;



Constructors


Functions


procedure Audio1AllBuffersPlayed(Sender: TObject);


procedure Audio1BufferPlayed(Sender: TObject);


procedure Audio1Record(Sender: TObject; P: Pointer; NoSamples: Word);


procedure FormActivate(Sender: TObject);


procedure PlayFileClick(Sender: TObject);


procedure QueryClick(Sender: TObject);


procedure RecFileClick(Sender: TObject);


procedure SpinButton1DownClick(Sender: TObject);


procedure SpinButton1UpClick(Sender: TObject);


procedure StartPlayClick(Sender: TObject);


procedure StartRecClick(Sender: TObject);


procedure StopPlayClick(Sender: TObject);


procedure StopRecClick(Sender: TObject);


Properties


Events


Variables


Audio1 : TAudio;


Memo1 : TMemo;


OpenDialog1 : TOpenDialog;


PlayFile : TButton;


Query : TButton;


RecFile : TButton;


SaveDialog1 : TSaveDialog;


SpinButton1 : TSpinButton;


StartPlay : TButton;


StartRec : TButton;


Status : TLabel;


StopPlay : TButton;


StopRec : TButton;


Volume1 : TLabel;


AudioPos : PMem;


FirstBuffer : Boolean;


Start : PMem;

Private declarations


Volume : Word;