VPF::Продолжительность avi - Форум программистов

Akella

Дата 18.9.2003, 08:19 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 1
Всего: 329

я попробую, но медиапроигрыватели (может даже все) зависят от того, какие кодеки установлены в системе. По крайней мере я знаю точно, что проигрыватель Windows Media, JetAudio, да и многие другие не показывают кинишку, пока не установишь соответствующие кодеки

Cashey

Дата 18.9.2003, 13:36 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: нет
Всего: 60

Эта процедура определяет кол-во кадров в 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;

--------------------

библия учит любить ближнего, а камасутра обучает как именно

Akella

Дата 18.9.2003, 13:39 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 1
Всего: 329

попытаюсь проверить, хотя, насколько мне известно, многие, если не все проигрыватели зависят от кодеков, установленных в системе.

-помоему у меня дежавю, мне кажется, что я уже отвечал тебе, Baa-

Baa

Дата 18.9.2003, 18:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

Репутация: нет
Всего: 12

Повторюсь, у меня TMediaPlayer на файлах, сжатых DivX'ом зависает просто... другие кодеки не пробовал... файлы без сжатия отлично проигрывает...

--------------------

"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande

Sniper

Дата 20.9.2003, 19:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 511
Регистрация: 8.5.2002

Репутация: нет
Всего: 2

Baa сливай сюда тоже ogldelphi_at_mail.ru , где _at_ - это @

--------------------

"Я испытываю отвращение к системе, разработаннной для "пользователя", если в слове "пользователь" закодировано уничижительное значение "тупой и примитивный".
Кен Томпсон, создатель Unix

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »