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

Draxx

Дата 14.7.2009, 18:45 (ссылка)

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

Загрузка ...

Новичок

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

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

нужно воспроизвести видео формата avi , создаю по учебнику простуой проект с воспроизведением видео, но после запуска выдает такое сообщенеие " в системе не установлен драйвер", откуда мне узнать какой драйвер нужен для этой авишки? и как его привязать к "Тмедиаплеер". само видео через проигрыватель спокойно запускается

Данкинг

Дата 14.7.2009, 18:52 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Код в студию.

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

There's nothing left but silent epitaphs.

Draxx

Дата 14.7.2009, 19:07 (ссылка)

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

Загрузка ...

Новичок

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

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

вобщем мне надо чтобы в программе играло на весь экран видео и отдельно шол звук, и все чтобы в повторении крутилось.

Код


unit okno;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg, syncobjs, MPlayer;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    MediaPlayer1: TMediaPlayer;
    MediaPlayer2: TMediaPlayer;
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  CheckEvent: TEvent;


implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
Close; // Закрыть главное окно (закрыть программу)
end;




procedure TForm1.FormActivate(Sender: TObject);
begin
with MediaPlayer1 do begin
   FileName:= 'C:\alarmsystem\p_s_1.wav';
   Open;
   Play;
 end;
end;
begin
with MediaPlayer2 do begin
   FileName:= 'C:\alarmsystem\poj.avi';
   Open;
   Play;
 end;
end;

 begin
 CheckEvent := TEvent.Create(nil, false, true, 'MYPROGRAMM_CHECKEXIST');
 if CheckEvent.WaitFor(10) <> wrSignaled then
 begin
   Application.Terminate;
 end;




end.

Данкинг

Дата 14.7.2009, 19:56 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

И как сообщение об ошибке звучит конкретно?!

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

There's nothing left but silent epitaphs.

Draxx

Дата 14.7.2009, 20:03 (ссылка)

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

Загрузка ...

Новичок

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

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

вот:

Данкинг

Дата 14.7.2009, 20:12 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Интересная ошибка однако. smile

В общем, на сей момент я сдаюсь, но могу предположить, что если данный файл у тебя воспроизводится обычным медиаплеером, то это какой-то глюк в CodeGear. Попробуй или другой файл воспроизвести... Или поставить Delphi 7. smile

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

There's nothing left but silent epitaphs.

Draxx

Дата 14.7.2009, 20:16 (ссылка)

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

Загрузка ...

Новичок

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

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

на другом ПК с виндовс ХП. и с дельфи 7, тоже такая же ошибка идет(( я вот и решил на висте и с 2009 попробывать, а всеравно таже ошибка

Данкинг

Дата 14.7.2009, 21:50 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

А с другим файлом? У меня вот так работает:

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer1.Display:=panel1;
MediaPlayer1.FileName:='I:\Musor\Видео\Шрэк 3.avi';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

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

There's nothing left but silent epitaphs.

Draxx

Дата 16.7.2009, 00:43 (ссылка)

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

Загрузка ...

Новичок

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

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

хм, попробывал разные видео файлы, какие то работают, а какие то - нет. значит каких то библиотек программе не хватает чтобы воспроизвести это видео. Как мне добавить библиотеку dll к проекту чтобы видео проигралось? в стандартном "Тмедиаплеер" ?

Данкинг

Дата 16.7.2009, 01:24 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Цитата(Draxx @ 16.7.2009, 01:43

)

значит каких то библиотек программе не хватает чтобы воспроизвести это видео.

Кодеков не хватает, вероятней всего.

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

There's nothing left but silent epitaphs.

Draxx

Дата 16.7.2009, 01:30 (ссылка)

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

Загрузка ...

Новичок

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

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

не кодеков у меня на компе навалом, обычные проигрыватели все проигрывают ( иммею ввиду виндовс меда плеер 11, квик таймы, винампы и тп) , проблема только в дельфи, в тмедиаплеер - он то и не проигрывает

inndim

Дата 16.7.2009, 15:18 (ссылка)

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

Загрузка ...

Новичок

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

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

TMediaplayer жутко глючная штука и его код не обновлялся уже лет десять не зависимо от версии delphi, брось его пока не поздно и воспользуйся лучше сторонними компонентами например DSPack.

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