Загруженный ранее файл мультимедиа можно сохранить под другим именем, воспользовавшись процедурой:

procedure Save;

Новое имя файла определяется свойством FileName.

Обработка ошибок

При возникновении ошибки ее код окажется в свойстве: property Error: Longint;

Преобразованием кода ошибки в текстовое описание ведает свойство: property ErrorMessage: string;

Завершение работы

Работа с файлом мультимедиа должна завершаться вызовом процедуры: procedure Close;

Пример работы с TMediaPlayer

Для построения простейшего приложения, предназначенного для просмотра видеоклипов (рис. 30.2), помимо универсального проигрывателя нам потребуются: диалог открытия файла - TOpenDialog, таймер -TTimer, шкала - TProgressBar и кнопка - TSpeedButton.

Основу проекта составляет событие открытия видеофайла.

procedure TForm1.SpeedButton1Click(Sender: TObject); begin

with OpenDialog1 do if execute then begin

MediaPlayer1.Close; MediaPlayer1.FileName:=FileName; with MediaPlayer1 do begin

Open;

ProgressBar1.Max:=Length; ProgressBar1.Position:=0; Frames:=1; end;

end;

end;

С каждым тактом таймера синхронизируем позицию шкалы ProgressBar1 с номером проигрываемого в данный момент кадра клипа:

procedure TForm1.Timer1Timer(Sender: TObject); begin

ProgressBar1.Position:=MediaPlayer1.Position; end;

Таймер активизируется только во время просмотра видеоклипа. Для этого после щелчка по любой из кнопок проигрывателя мы проверяем состояние Mode проигрывателя:

procedure TForm1.MediaPlayer1PostClick(Sender: TObject; Button: TMPBtnType); begin

Timer1.Enabled:=(MediaPlayer1.Mode=mpPlaying); end;