Проигрывание видео в Delphi

[Tboy]

1)Как прописать путь к видеофайлу, чтобы кликнув на Button можно было попасть на нужный файл. БЕЗ OpenDialog! Я использовал WindowsMediaPlayer!
WindowsMediaPlayer1.controls.play; - но как указать путь?
2) Можно сделать на весь экран вопроизведение? Чтобы чисто окно проигрывателя было без кнопок Play. Stop и т.д.?

[beegl]

можно, можно и с помощью этого компонента: TVideoGrabber
pass: B4ALL

[raxp]

но как указать путь?

через URL/

Можно сделать на весь экран вопроизведение? Чтобы чисто окно проигрывателя было без кнопок

можно. Поройтесь в интерфейсе controls в том самом импорте хэдера WMP, когда вы импортировали ActiveX.

[саша40]

1) Если видео в папке с программой, то так:

var
fileName: String;
begin
filenama:=ExtractFilePath(Application.Exename) + '\video.avi';
//можно и другие форматы
end;

2) 1- Воспроизводим на панель
2- Сносим BorderStyle.
3- Ставим форму поверх всех окон
4- Скрываем кнопки(сделай popupmenu, чтобы можно было выйти из полноэкраного режима), скроллбары и прочее, кроме панели.
5- Свойство Allign у панели на AlClient.
6- Тоже свойство у формы на AlClient.
7- WindowState на wsMaximized.

[Tboy]

Как можно посредством голосового управления воспроизводить видео? Какой программный код такой программки? Насколько можно подробно опишите кто встречался с этим!

Хочу чтобы при проговаривании одних слов воспроизводилось одно видео, а при других словах - второе видео! Но чтобы человек который тестирует программу не заметил что это 2 разных видео, а думал что один и тот же объект в двух видео изменяется путем манипулирования словами! На деле пауза видна - и не совсем хорошо получается!

[raxp]

...так что же вы хотите - голосового контроля или все-таки интерактивного управления 3д-объектами? Cудя по:

На деле пауза видна - и не совсем хорошо получается!

голосовое уже есть?

А чтобы с объектами, лучше моделируйте в опен-гл.

[Tboy]

Никакого интерактивного управления 3д-объектами!!! Я хочу написать программку с голосовым управлением, чтобы при проговаривании определенных слов проигрывалось одно видео! А при других - 2-ое! Есть вариант совмещения их в одно видео с возможностью проигрывания с нужного момента! То есть будет проигрываться отрывками! Я не сталкивался с этим, поэтому не знаю как написать ее! Но общие задумки есть!

[raxp]

...честно говоря так и не понял, что у вас уже реализовано. Как вы там видеокуски будете совмещать - дело ваше. Что до голосового контроля - http://programmersforum.ru/showpost....98&postcount=3

p.s.: и восклицательных знаков поменьше делайте, это равноценно крику.

[Tboy]

Как сделать так чтобы дельфи не изменял размер WindowsMediaPlayer-а при компиляции - у меня по параметрам форма выводится на весь экран, а окно плеера остается тем же. Даже если я расширяю размеры вручную, он меняет его на меньшие габариты!

[raxp]

...обращу ваше внимание на пост #3.

var wmp: TWindowsMediaPlayer;
...
begin
 // динамически создаем экземпляр WMP- клиента
 wmp:= TWindowsMediaPlayer.Create(self);
 with wmp do begin
  TabOrder:= 1;
  // растягиваем контрол на всю форму
  align:= alclient;
  // делаем родителем форму
  parent:= Form1;
 end;

 // растягиваем видео на весь контрол
 wmp.ControlInterface.stretchToFit:= true;