Jak pobrać rozdzielczość pliku AVI

0

Jak w temacie

0

A wytłumacz to bardziej sensownie!

0

Proponuję użycie Panela na któryym wyświetlasz Avika.

np:
with MediaPlayer1 do
begin
Display := Panel1;
DisplayRect := Panel1.ClientRect;
end;

Następnie zczytaj jego wymiary i wyświetl np: w etykiecie

np:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := IntToStr(Panel1.Width) + ' x ' + IntToStr(Panel1.Height);
end;

Pozdrowienia.
--Marco_99

1 użytkowników online, w tym zalogowanych: 0, gości: 1