Как узнать число кадров AVI файла, и выяснить как долго будет проигрывться этот файл? В приведенном примере указано как получить эту информацию.Пример:procedure TForm1.Button1Click(Sender: TObject);begin MediaPlayer1.TimeFormat := tfFrames; ShowMessage('Number of frames = ' + IntToStr(MediaPlayer1.Length)); MediaPlayer1.TimeFormat := tfMilliseconds; ShowMessage('Number of milliseconds = ' + IntToStr(MediaPlayer1.Length));end;Источник: Дельфи. Вокруг да около. Copyright © "Мастера DELPHI" E-mail: delphi@mastak.com http://www.delphimaster.ru Источник получения информации: http://www.delphimaster.ru
procedure TForm1.Button1Click(Sender: TObject);begin MediaPlayer1.TimeFormat := tfFrames; ShowMessage('Number of frames = ' + IntToStr(MediaPlayer1.Length)); MediaPlayer1.TimeFormat := tfMilliseconds; ShowMessage('Number of milliseconds = ' + IntToStr(MediaPlayer1.Length));end;