Как воспоизвести видео

[mutabor]

смешно Помнишь ты давлал
EasyPlayer Он может воспроизводить и видео.

это у него побочный эффект, он же на Медиаплеере, я тебе еще ссылку давал по работе именно с видео, а потом еще раз уже на тему в к-рой это обсуждалось и где собственно и прикреплен этот архив DisplayRect.rar

[Лубышев]

Ну, ладно посмотрю повнимательнее. Значит с MPlayer никак?
Ладно, буду искать альтернативу.

[Илюха]

Можно и c MediaPlayer!! Например: Тебе нужно что бы видео воспроизвелось на компоненте TPanel, ставиш CheckBox и пишешь такой

procedure TForm1.CheckBox1Click(Sender: TObject);

var start_From:Longint;
begin
with MediaPlayer1 do begin
if FileName=''then Exit;
Start_From:=position;
Close;
Panel1.Refresh;
if CheckBox1.Checked then
Display:=Panel1
else
Display:=NIL;
Open;
Position:=Start_From;
Play;
end;
end;

[Лубышев]

Спасибо большое за неоценимую помощь.
(Родина вас не забудит )

[BOBAH13]

Ребят что никого интерфейсы не интересуют ?! ладно сейчас на своем сайте выложу кому интересно посмотрите )

вот посмотрите, думаю, надо было добиться подобного ? ))

http://nemecsx.narod.ru/MMPlayer.rar - исходный код, некоторые *.dcu

нужно установить DelphiX, а вот добавляю уже готовый ехе.

[BOBAH13]

ну как сойдет плеер ? что вопрос ноль ?

[Delphimen]

В начале создаёш плеер, потом панель из (Standart) растягиваешь панель на всю форму, потом правой кнопкой мишки на плеере управление/послать вперёд, указываеш ему: Диспле/Панель1 и выбираеш файл, который хочеш воспроизвести, потом создаёш 2-е быстрых-кнопки (одна (старт), вторая (пауза, или стоп)) пораметры делай прозрачность/правда.

Для клавиши старт пропиши, клацнув 2-шелчком по клавише
Пишем следующий код:
begin
Form1.MediaPlayer1.Play;
end;

А для клавиши стоп, или пауза пишем следующие,
begin
Form1.MediaPlayer1.pause; (pause или stop)
end;


осталось только плееру 2-м щелчком и управление/послать назад. размещаешь клавиши по удобнее (поскольку они прозрачные, мешать они не будут), а что насчет руголеровки звука, так это к Mutador'у!
вот и всё!!! Плеер готов!")