Проигрывание видео в Delphi - Общие вопросы Delphi - Страница 2

Tboy · 19.01.2014, 13:26

Я написал программу, которая проходит компиляцию, но не воспроизводит видео!
ЗЫ: Переводил на англ. и пробелы убирал! Проблема не в этом.

Arigato · 19.01.2014, 13:32

Пишет какую-нибудь ошибку или просто ничего нет?

Tboy · 19.01.2014, 17:53

Ничего не пишет - компиляцию проходит, НО не работает. Убрал вообще все что связано с edit и точно - проблема в button4. До этого все работало. Что здесь может быть не так(((( не пойму
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (WindowsMediaPlayer1.Controls.curre ntPosition = 7) then
WindowsMediaPlayer1.Controls.curren tPosition := 0;
WindowsMediaPlayer1.Controls.play;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
WindowsMediaPlayer1.Controls.play;
WindowsMediaPlayer1.URL:='E:\777.av i'
end;

end.

raxp · 19.01.2014, 18:26

...для запуска воспроизведения достаточно просто указать в свойстве URL путь к файлу или адрес потока. PLAY используется для последующего контроля интерфейса. В кнопке оставить только URL.

В таймере у вас периодически идет обращение к методу PLAY вне зависимости от того на какой позиции видеопоток, некошерно.

Цитата:

ACTIVELISTENPROJECTLib_TLB

голосовой контроль плеера хотели методами SPAPI

raxp · 19.01.2014, 21:55

...как то так:

Tboy · 20.01.2014, 14:07

Цитата:

Сообщение от raxp

...для запуска воспроизведения достаточно просто указать в свойстве URL путь к файлу или адрес потока.

Не помогло! может мой делфи глючный? все перепробавал!
Оставил даже так:
procedure TForm1.Button4Click(Sender: TObject);
begin
WindowsMediaPlayer1.URL := 'E:\777.avi';
end;
Все равно не воспроизводит! Быть может какие-то свойства WMP сбил? раз он вообще не хочет ничего выполнять!

raxp · 20.01.2014, 15:11

...убедитесь в наличии кодеков. Сам WMP отдельно воспроизводит сей медиа-файл?

Tboy · 20.01.2014, 18:16

Сам он воспроизводит, кодеки все установлены. и другие видео пробовал прописывать - не выходит.

Tboy · 20.01.2014, 18:48

Не понял как, но переписал весь код обратно и получилось!

Tboy · 20.01.2014, 19:17

Как сделать так чтобы в начале стартовало автоматическое воспроизведение одного из файла? путь: WindowsMediaPlayer1.URL := 'E:\777.avi'; чтобы при запуске программы самой уже начиналось?

19.01.2014, 13:32	#12
Arigato Высокая репутация СуперМодератор Регистрация: 27.07.2008 Сообщений: 15,868	Пишет какую-нибудь ошибку или просто ничего нет? E-Mail: arigato.freelance@gmail.com

19.01.2014, 21:55	#15
raxp Старожил Регистрация: 29.09.2009 Сообщений: 9,713	...как то так: Разработки и научно-технические публикации :: Видеоблог :: Твиттер Radar systems engineer & Software developer of industrial automation

20.01.2014, 15:11	#17
raxp Старожил Регистрация: 29.09.2009 Сообщений: 9,713	...убедитесь в наличии кодеков. Сам WMP отдельно воспроизводит сей медиа-файл? Разработки и научно-технические публикации :: Видеоблог :: Твиттер Radar systems engineer & Software developer of industrial automation

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Бесконечное проигрывание видео в фоне	Lawilet	JavaScript, Ajax	3	10.10.2011 13:42
Как в delphi начать проигрывание видеофайла скажем с 10-ой секунды...?	big_big	Мультимедиа в Delphi	0	05.08.2009 11:45
Проигрывание .XM файлов	Вадим Буренков	Мультимедиа в Delphi	3	01.04.2009 21:27
Проигрывание звука	EdNovice	Общие вопросы .NET	4	22.03.2009 20:30
Проигрывание нескольких файлов	<-=SG=->	Общие вопросы Delphi	3	11.10.2008 15:47

19.01.2014, 17:53	#13
Tboy Пользователь Регистрация: 19.08.2013 Сообщений: 17	Ничего не пишет - компиляцию проходит, НО не работает. Убрал вообще все что связано с edit и точно - проблема в button4. До этого все работало. Что здесь может быть не так(((( не пойму procedure TForm1.Timer1Timer(Sender: TObject); begin if (WindowsMediaPlayer1.Controls.curre ntPosition = 7) then WindowsMediaPlayer1.Controls.curren tPosition := 0; WindowsMediaPlayer1.Controls.play; end; procedure TForm1.Button4Click(Sender: TObject); begin WindowsMediaPlayer1.Controls.play; WindowsMediaPlayer1.URL:='E:\777.av i' end; end.

20.01.2014, 18:16	#18
Tboy Пользователь Регистрация: 19.08.2013 Сообщений: 17	Сам он воспроизводит, кодеки все установлены. и другие видео пробовал прописывать - не выходит.

20.01.2014, 18:48	#19
Tboy Пользователь Регистрация: 19.08.2013 Сообщений: 17	Не понял как, но переписал весь код обратно и получилось!

20.01.2014, 19:17	#20
Tboy Пользователь Регистрация: 19.08.2013 Сообщений: 17	Как сделать так чтобы в начале стартовало автоматическое воспроизведение одного из файла? путь: WindowsMediaPlayer1.URL := 'E:\777.avi'; чтобы при запуске программы самой уже начиналось?