VPF::TMediaPLayer - Форум программистов

GuManOiD

Дата 9.6.2006, 22:34 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


var
  mp : TMediaPlayer;
  pnl : TPanel;
begin
  pnl := TPanel.Create(Application);
  pnl.Parent := PN;
  pnl.Color := clBlack;
  pnl.Align := alClient;
  pnl.Caption := '';
  pnl.Show;

  mp := TMediaPlayer.Create(Application);
  mp.AutoOpen := true;
  mp.Parent := PN;
  mp.Display := pnl;
  mp.Align := alBottom;
  mp.DeviceType := DT;
  mp.FileName := FN;
  mp.Open;
  mp.Play;
end;

Вот код создания медиплеера..., Fn - имя файла, Pn-панель посторонняя, вообще нет ни звука ни видео... просто тыкаешь на нем на кнопки - никакой реакции... может кто подскажет в чем проблемма?

Yanis

Дата 12.6.2006, 10:23 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

Скорее всего это из-за того, что видео пожато каким-нибудь кодеком. Попробуй на своём коде проиграть файл C:\WINDOWS\clock.avi

--------------------

*щёлк*

Alexeis

Дата 12.6.2006, 11:08 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Вот так точно работает

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  mp : TMediaPlayer;
  pnl : TPanel;
begin
  pnl := TPanel.Create(Form1);
  pnl.Parent := Form1;
  pnl.Color := clBlack;
  pnl.Align := alClient;
  pnl.Caption := '';
  mp := TMediaPlayer.Create(Form1);
  mp.Parent := Form1;
  mp.AutoOpen := true;
  mp.Parent := PNl;
  mp.Display := pnl;
  mp.Align := alBottom;
  mp.DeviceType := dtAutoSelect;
  mp.FileName := 'C:\abiscan05.avi';
  mp.Open;
  mp.Play;
end;

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

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