Как узнать число кадров AVI файла?
procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.FileName := 'FileName.avi';
MediaPlayer1.Open;
MediaPlayer1.TimeFormat := tfFrames;
ShowMessage('Количество кадров = ' + IntToStr( MediaPlayer1.Length ) ); end; |
