|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Повтор видео в дельфи
Вот мой код программы:
Код:
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.currentPosition:=00; end; procedure TForm1.Button2Click(Sender: TObject); begin WindowsMediaPlayer1.Controls.currentPosition:=11; end; end. Как сделать так, чтобы видео начиналось и заканчивалось на нужную позицию, но не останавливалось, а проигрывалось обратно сначала нужного фрагмента? То есть к примеру начиналось с самого начала и до 11 секунды и потом обратно на начало! Все это было циклически. Последний раз редактировалось lmikle, 14.09.2013 в 21:08. |