Реферат кошти створення мультимедійних додатків

Під час виконання програми може знадобитися відобразити поточний стан об'єкта MediaPlayer і самого ролика (час, що минув з початку відтворення, довжину ролика). Для цього в об'єкта TMediaPlayer є відповідні властивості і події: Length, Position, OnNotify і ін. Давайте додамо в проект прогрес-індикатор (TGauge), який відобразить у відсотках, скільки пройшло часу (див. Рис.6). Для оновлення показань індикатора можна скористатися таймером. Помістіть на форму об'єкт TTimer, встановіть для нього Interval = 100 (100 мілісекунд). У обробнику події OnTimer потрібно записати:

procedure TForm1.Timer1Timer (Sender: TObject);

with MediaPlayer1 do

if FileName<>'' Then

Запустіть проект, виберіть файл (AVI) і клацніть на ньому два рази мишкою. При відтворенні ролика прогрес-індикатор повинен відображати відсоток, відповідний пройшов часу (див. Рис.6).

# 61623; # 61623; Рис.6: Закінчений додаток для відтворення AVI, WAV і MDI файлів.

Спасибі творцям сайту! Зроби паузу, студент, ось розважся: Препод на іспиті: От раніше, в молодості, я лютував - закидав студентів тільки так, а зараз постарів, подобрішав. візьміть заліковку, прийдете на перездачу. До речі, анекдот узятий з chatanekdotov.ru