Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Звук, графика и видео > Воспроизведение видео


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

Автор: Данкинг 14.7.2009, 18:52
Код в студию.

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

Код

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
И как сообщение об ошибке звучит конкретно?!

Автор: Draxx 14.7.2009, 20:03
вот:
http://ipicture.ru/Gallery/Viewfull/20940343.html

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

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

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

Код

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

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

Автор: Данкинг 16.7.2009, 01:24
Цитата(Draxx @  16.7.2009,  01:43 Найти цитируемый пост)
значит каких то библиотек программе не хватает чтобы  воспроизвести это видео. 

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

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

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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)