Class TForm1 (unit TAudioInputDemo)

Inherits from

TForm

Constructors



Functions

function AudioIn1BufferFilled(Buffer: PChar; var Size: Integer): Boolean;


procedure AudioIn1Stop(Sender: TObject);


procedure RecordSpeedButtonClick(Sender: TObject);


procedure StartButtonClick(Sender: TObject);


procedure StopButtonClick(Sender: TObject);


procedure Timer1Timer(Sender: TObject);

Update the progress bar

procedure UpdateStatus;


Properties

Events

Variables

AudioIn1 : TAudioIn;


BufferStatusLabel : TLabel;


MaxLabel : TLabel;


Panel1 : TPanel;


ProgressBar1 : TProgressBar;


RecordSpeedButton : TSpeedButton;


RunStatusLabel : TLabel;


StartButton : TButton;


StopButton : TButton;


Timer1 : TTimer;


TimeStatusLabel : TLabel;


Max : Integer;


Min : Integer;

Public declarations

TempMax : Integer;



Constructors


Functions


function AudioIn1BufferFilled(Buffer: PChar; var Size: Integer): Boolean;


procedure AudioIn1Stop(Sender: TObject);


procedure RecordSpeedButtonClick(Sender: TObject);


procedure StartButtonClick(Sender: TObject);


procedure StopButtonClick(Sender: TObject);


procedure Timer1Timer(Sender: TObject);

Update the progress bar


procedure UpdateStatus;


Properties


Events


Variables


AudioIn1 : TAudioIn;


BufferStatusLabel : TLabel;


MaxLabel : TLabel;


Panel1 : TPanel;


ProgressBar1 : TProgressBar;


RecordSpeedButton : TSpeedButton;


RunStatusLabel : TLabel;


StartButton : TButton;


StopButton : TButton;


Timer1 : TTimer;


TimeStatusLabel : TLabel;


Max : Integer;


Min : Integer;

Public declarations


TempMax : Integer;