воспроизведение видео

[ZhekON]

кто знает как воспроизвести видео каких нибуть форматов на Panel'е?
и вообще как подклюбать кодэки, если такое возможно?
ато у меня видео воспроизводит в отдельном окне, а .аvi так глючит

[Mickle]

Вот этот код осуществляет проигрывание в Paneli
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;
CheckBox1.Caption:='Играть в панели';
end;
if checkBox1.Checked then
CheckBox1.Caption:='Играть в отдельном окне';
end;

да незабуть для Events MediaPlayera Display выбери панель и все должно работать у меня работает

[Alik]

MediaPlaeyer1.display:=Panel1;

[ZhekON]

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

MediaPlaeyer1.display:=Panel1;

и кто этого не знает

[Mickle]

А ты вопрос ставь корректно и тебе отвечать будут правильно!

[zetrix]

Кодеки вроде сами в системе ищутся... TMediaPlayer вроде всё делает, хотя лично у меня был глюк: у меня кодеки находил, но... "вверх ногами" воспроизводил

[ZhekON]

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

Вот этот код осуществляет проигрывание в Paneli
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;
CheckBox1.Caption:='Играть в панели';
end;
if checkBox1.Checked then
CheckBox1.Caption:='Играть в отдельном окне';
end;

да незабуть для Events MediaPlayera Display выбери панель и все должно работать у меня работает

Этот код работает только один раз, а когда запускаеш песню а после неё опять видео, то видео показуется в отдельном окне, в результате чего нужно писать дополнительный код в каждом обработчике событий..

Можно както обработать эту проблему в этом жэ событии?..

и ещё один вопрос .... ПОчему видео при увеличении начинает тормозить систему(крыса не хочет нормально двигатся и всё такое...)???

[Mickle]

Кстати я об этом не знал хорошо что сказал Я например запускаю по 2-му щелчку из FileListBox Просто после Open добавь где воспроизвести
Open;
Display:=Panel1;
Play;
и все у меня теперь тоже работает
А за счет тормозов это я не знаю

[ZhekON]

кто знает почему тормозит???

[ZhekON]

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