| Class TForm1 (unit TAudioInputDemo) |
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);
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;
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;