|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
27.08.2013, 17:34 | #11 |
Пользователь
Регистрация: 19.08.2013
Сообщений: 17
|
Как можно с помощью IMediaPosition по клику Button перейти на определенный отрывок из видео в проекте? Например на 00:32:00 из общей продолжительности приблизительно в час. Только без TrackBar! А с помощью Button он перекидывал его на нужный момент. Хотел бы увидеть примерный программный код! В интернете нашел (но как указать промежуток временной и куда)?
pos_bar.Value:=Getposition; |
27.08.2013, 23:31 | #12 |
Старожил
Регистрация: 29.09.2009
Сообщений: 9,713
|
...при старте читаем общую длительность:
Код:
Код:
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation |
28.08.2013, 16:25 | #13 |
Пользователь
Регистрация: 19.08.2013
Сообщений: 17
|
Как сделать так чтобы один отрезок видео проигрывался по кругу(с начала до конца и обратно)? И как выделить начало и конец этого отрезка чтобы он дальше не проигрывал?
|
28.08.2013, 18:33 | #14 |
Старожил
Регистрация: 29.09.2009
Сообщений: 9,713
|
ставим в потоке условие на IMediaSeeking.GetCurrentPosition() и выполняем по условию IMediaSeeking.SetPositions().
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation |
04.09.2013, 20:46 | #15 |
Пользователь
Регистрация: 19.08.2013
Сообщений: 17
|
Можете показать на примере - как именно выглядит код программы? c 01:02 до 02:03 (например) чтобы проигрывался и ВСЕ! Все это на Windows Media Player!
IMediaSeeking.GetCurrentPosition('0 1:02') IMediaSeekng.SetPositions('01:02-02:03') Буду благодарен! |
04.09.2013, 22:14 | #16 |
Старожил
Регистрация: 29.09.2009
Сообщений: 9,713
|
Эдак вас перемкнуло. Данная тема и все примеры использования интерфейсов в ней с комментариями посвящены DirectShow, а не WMP.
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation |
05.09.2013, 09:06 | #17 |
Пользователь
Регистрация: 19.08.2013
Сообщений: 17
|
Без разницы какой проигрыватель для меня! У меня формат avi! Ну а если серьезно как запрограммировать условие промежутка для проигрывания? Мне очень надо!
|
05.09.2013, 09:25 | #18 | ||
Старожил
Регистрация: 29.09.2009
Сообщений: 9,713
|
Цитата:
Касательно WMP, потрудитесь заглянуть в импорт хэдера WMPLib_TLB.pas и найдете там методы: Код:
Код:
Цитата:
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation |
||
10.09.2013, 18:34 | #19 |
Пользователь
Регистрация: 19.08.2013
Сообщений: 17
|
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, WMPLib_TLB; type TForm1 = class(TForm) WindowsMediaPlayer1: TWindowsMediaPlayer; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin WindowsMediaPlayer1.Controls.curren tPosition:=00; end; procedure TForm1.Button2Click(Sender: TObject); begin WindowsMediaPlayer1.Controls.curren tPosition:=11; end; end. Как сделать так, чтобы видео начиналось и заканчивалось на нужную позицию, но не останавливалось, а проигрывалось обратно сначала нужного фрагмента. Все это было циклически. |
10.09.2013, 19:58 | #20 |
Старожил
Регистрация: 29.09.2009
Сообщений: 9,713
|
...поставить event на нужную позицию, при срабатывании устанавливать в новую позицию и снова отслеживать.
Добавлено Наваял наглядный пример реализации циклического воспроизведения заданного участка видео-контента http://www.youtube.com/watch?v=yTEDvM99he0 (никаких оберток, только прямые вызовы интерфейсов DirectShow)
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation Последний раз редактировалось raxp; 10.09.2013 в 23:14. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перемотка (прокрутка) в плеере | NBSTUDIO | Мультимедиа в Delphi | 12 | 08.05.2009 18:37 |
перемотка в mp3 плеере | Mazaxaka | Мультимедиа в Delphi | 21 | 27.02.2009 01:09 |
незнаю с чего начать... а начать очень нужно | ОСЯНЯ | Помощь студентам | 2 | 26.11.2008 20:08 |
Перемотка в mP3 плеере | lionman | Мультимедиа в Delphi | 3 | 27.10.2008 21:21 |
Перемотка в TMediaPlayer | Kn793 | Компоненты Delphi | 0 | 10.07.2008 11:02 |