Листинг 11.3. Использование компонента MediaPlayer для вывода звука

unit FuntToKg1_; interface

Uses

Windows, Messages, SysUtils,

Classes, Graphics, Controls,

Forms, Dialogs, StdCtrls, MPlayer;

Type

TForm1 = class (TForm)

Edit1: TEdit; // поле ввода веса в фунтах

Button1: TButton; // кнопка Пересчет

Label2: TLabel; // поле вывода результата

Label1: TLabel; // поле информационного сообщения

MediaPlayer1: TMediaPlayer; // медиаплеер

procedure Button1Click(Sender: TObject);

Private

{ Private declarations }

Public

{ Public declarations }

end;

Var

Form1: TForm1;

Implementation

{$R *.DFM)

// щелчок на кнопке Пересчет

procedure TForm1.ButtonlClick(Sender: TObject);

Var

f: real; // вес в фунтах k: real; // вес в килограммах

Begin

form1.Label2.Caption: =' ';

try // возможна ошибка, если в поле

// Edit1 будет не число

f:=StrToFloat(Edit1.Text);

Forml.MediaPlayer1.Play;

// звуковой сигнал k:=f*0.4095;

Label2.caption:=Editl.text+' ф. - это ' +

FloatToStrF(k,ffGeneral,4,2}+' кг. ';

Except

on EConvertError do // ошибка преобразования

Begin

// определим и проиграем звук "Ошибка"

Form1.MediaPlayer1.FileName:=

'c:\windows\media\chord.wav';

Form1.MediaPlayer1.Open;

Form1.MediaPlayer1.Play; // звуковой сигнал

ShowMessage('Ошибка! Вес следует ввести числом.');

form1.Edit1.SetFocus; // курсор в поле ввода

// восстановим звук

Forml.MediaPlayer1.FileName:=

'c:\windows\media\ding.wav';

Forml.MediaPlayer1.Open;

end;

end;

end;

End.