Текущий архив: 2002.05.30;
Скачать: CL | DM;
Вниз
Просмотр видео с помощью TMediaPLayer Найти похожие ветки
← →
ilg (2002-01-02 13:32) [0]Ситуация следующая:
Если в свойстве MediaPlayer.Display указан компонент, размеры которого меньше размеров видеоизображения, то при просмотре отображается только то, что поместилось. Как сделать, чтобы было видно всё, т. е. масштабировать видео (что-то типа Zoom в Виндовом Медиаплейере).
P. S.: Кстати, как узнать разрешение видеоролика (длина Xширина).
← →
3d[Power] (2002-01-04 00:06) [1]Вот пожалуй самая рульная процедура (сам писал), растягивает и сжимает мувик даже если изменяешь display не пропорционально, в общем как в медиа плеере.
procedure LOADVIDEO(Filename : string; St : integer);
var x,y : currency;
maxx,maxy : currency;
yp, xp : currency;
xx,yy : integer;
topx,topy,pos,i : integer;
begin
with form1 do begin
x := mediaplayer1.displayrect.Right;
y := mediaplayer1.displayrect.Bottom;
maxx := panel1.Width;
maxy := panel1.height;
if (x < maxx) then begin
xp := maxx/x;
x := maxx;
y := y*xp;
if y > maxy then begin
// percent y over maxy.
yp := maxy/y;
y := maxy;
// decreace x;
x := x*yp;
end;
end;
if (y < maxy) then begin
yp := maxy/y;
y := maxy;
x := x*yp;
if x > maxx then begin
// percent y over maxy.
xp := maxx/x;
x := maxx;
// decreace x;
y := y*xp;
end;
end;
xx := round(x);
yy := round(y);
topx := (panel1.width - xx) div 2;
topy := (panel1.height - yy) div 2;
// чтобы не слетел displayrect надо его постоянно указывать заново (при растягивании) суть данного глюка медиа плеера мной так и не была выяснена.
mediaplayer1.displayrect := rect(topx,topy,xx,yy);
mediaplayer1.Play;
end;
end;
← →
Гриф (2002-01-04 12:21) [2]> ilg © (02.01.02 13:32)
> P. S.: Кстати, как узнать разрешение видеоролика (длинаXширина).
Видеоролик - понятие растяжимое :-)
С avi могу помочь. Есть вопросы - мыль.
Страницы: 1 вся ветка
Текущий архив: 2002.05.30;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.005 c
