TMediaplayer - вывод AVI на панель в уменьшенном масштабе

← →
Lnstr © (2002-10-14 14:02) [0]

Пожалуйста, подскажите...
Использую в программке TMediaplayer.
Вывожу фильм на указанную панельку.
Мне нужен небольшой размерчик экрана - 200 х 150 а фильм - 800 х 600.
Как при выводе ужать AVI?
Уменьшение масштаба можно сделать не используя виндовсячих функций, а лишь средствами TMediaplayer?

← →
ProgMan © (2002-10-14 17:32) [1]

Свойство DislpayRect тебе поможет!

← →
Lnstr © (2002-10-14 18:26) [2]

Ув. ProgMan!
Это пробовал - не работает. (у меня - чайника)
Сочинил для отладки нижеследующий шедевр:

procedure TForm1.AviToView;
var xl,xr,yb,yt:integer;
begin
with MediaPlayer1 do begin
Close;
FileName:=FName;
Display:=Panel6;
DisplayRect := Panel6.ClientRect;
with Displayrect do begin
xl:=left;
xr:=right;
yb:=bottom;
yt:=top;
end;
label12.Caption:="xl "+IntToStr(xl);
label13.Caption:="xr "+IntToStr(xr);
label14.Caption:="yt "+IntToStr(yt);
label15.Caption:="yb "+IntToStr(yb);
Enabled;
Open;
end;
end;

Хотел узреть координаты углов в лейблах - получил Жах(укр.)
Числа несуразные.
В общем - замаялся.
Где лажую - не пойму.
Если можно - подробнее о DisplayRect.
С уважением - LNStr.

← →
ProgMan © (2002-10-15 09:25) [3]

Сначала попробуй открыть файл, потом установить DisplayRect.
MediaPlayer1.Display:=Panel1; MediaPlayer1.Open; MediaPlayer1.DisplayRect:=Panel1.ClientRect;

Будут проблемы и дальше - мыль. Чем смогу - помогу.

Удачи.

Спасибо, ProgMan!
В том же фрагменте просто перенес открытие файла.
Да и то верно - откель ему, DisplayRect-у, знать, каков размер
картинки у евойной AVI-шки.
То, что внизу - уже работает.

procedure TForm1.AviToView;
var xl,xr,yb,yt:integer;
begin
with MediaPlayer1 do begin
Close;
FileName:=FName;

Open; // <---------------- Gut!

Display:=Panel6;
DisplayRect := Panel6.ClientRect;
with Displayrect do begin
xl:=left;
xr:=right;
yb:=bottom;
yt:=top;
end;
label12.Caption:="xl "+IntToStr(xl);
label13.Caption:="xr "+IntToStr(xr);
label14.Caption:="yt "+IntToStr(yt);
label15.Caption:="yb "+IntToStr(yb);
Enabled;
//Open; <----------- Schlecht!
end;
end;

TMediaplayer - вывод AVI на панель в уменьшенном масштабе Найти похожие ветки