VPF::Создание просто плеера - Форум программистов

Snaiper

Дата 25.11.2007, 12:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 14.5.2007

Репутация: нет
Всего: нет

Здрастуйте программисты.
Вопрос такой.
У меня на форме есть элемент mediaplayer1 и panel1;

Подскажите пожалуйста как связать эти компоненты и воиспроизводить файл c:\qwerty.avi.

Заранее благодарю

WaReZMEN

Дата 25.11.2007, 13:42 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3

Код


Вот этот код осуществляет проигрывание в Paneli 
procedure TForm1.CheckBox1Click(Sender: TObject);
var
Start_From : Longint;
begin
with MediaPlayer1 do
begin
if FileName='' then
Exit;
Start_From:=Position;
Close;
Panel1.Refresh;
if CheckBox1.Checked then
Display:=Panel1
else
Display:=NIL;
Open;
Position:=Start_From;
Play;
CheckBox1.Caption:='Играть в панели';
end;
if checkBox1.Checked then
CheckBox1.Caption:='Играть в отдельном окне';
end;

да незабуть для Events MediaPlayera Display выбери панель и все должно работать у меня работает

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »