Модераторы: Snowy, Alexeis, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Продолжительность avi, Узнать програмно 
:(
    Опции темы
Zzz
Дата 10.9.2003, 16:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 306
Регистрация: 21.2.2003
Где: Мурманск

Репутация: нет
Всего: 5
Форумчане, привет!!!
Помогите, если как можно скорее:

Мне нужно програмно из Delphi узнать продолжительность avi-файла в секундах.
Известны путь и его имя.

Заранее благодарю!

Это сообщение отредактировал(а) Zzz - 10.9.2003, 16:09


--------------------
Бесполезной громоздкой надстройкой является Windows от Майкрософт. Она занимает 1Мб памяти диска и рассчитана на использование устройства типа мышь.

"ЭВМ в инженерной практике" М. 1989г.
PM MAIL ICQ   Вверх
Baa
Дата 10.9.2003, 16:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: нет
Всего: 12
Привет, если тебе поможет, то вот код на С++.
Если хочешь, то я могу тебе DLLку сделать, чтобы енто дело проворачивать smile.gif
Код

AVIFileInit ();
PAVIFILE af;
AVIFILEINFO ai;
memset (&ai, 0, sizeof(ai));
AVIFileOpen (&af, "C:\\Program Files\\Borland\\Delphi7\\Demos\\CoolStuf\\speedis.avi", OF_READ, NULL);
AVIFileInfo (af, &ai, sizeof(ai));
AVIFileClose (af);
CString ss;
ss.Format ("%f", (float)ai.dwLength/((float)ai.dwRate/(float)ai.dwScale));
AfxMessageBox (ss);
AVIFileExit ();



--------------------
"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande
PM ICQ   Вверх
Guest
Дата 10.9.2003, 17:29 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Цитата(Baa @ 10.9.2003, 16:57)
Если хочешь, то я могу тебе DLLку сделать, чтобы енто дело проворачивать smile.gif

Да-да конечно хочу, спасибо что быстро откликнулся. У меня проект горит (при этом первый оплачиваемый в жизни).

Мой mail:

[email protected]
  Вверх
Baa
Дата 11.9.2003, 00:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: нет
Всего: 12
Отправил smile.gif


--------------------
"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande
PM ICQ   Вверх
Zzz
Дата 11.9.2003, 16:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 306
Регистрация: 21.2.2003
Где: Мурманск

Репутация: нет
Всего: 5
Получил smile.gif


--------------------
Бесполезной громоздкой надстройкой является Windows от Майкрософт. Она занимает 1Мб памяти диска и рассчитана на использование устройства типа мышь.

"ЭВМ в инженерной практике" М. 1989г.
PM MAIL ICQ   Вверх
Baa
Дата 12.9.2003, 09:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: нет
Всего: 12
Ну и как? Помогло? Работает?


--------------------
"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande
PM ICQ   Вверх
Zzz
Дата 16.9.2003, 15:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 306
Регистрация: 21.2.2003
Где: Мурманск

Репутация: нет
Всего: 5
Все просто супер! Спасибо! Мне очень помогло!


--------------------
Бесполезной громоздкой надстройкой является Windows от Майкрософт. Она занимает 1Мб памяти диска и рассчитана на использование устройства типа мышь.

"ЭВМ в инженерной практике" М. 1989г.
PM MAIL ICQ   Вверх
Baa
Дата 16.9.2003, 15:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: нет
Всего: 12
Zzz, ну хоть терь душа спокойна... что работает, а то пропал и ни слуху, ни духу smile.gif


--------------------
"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande
PM ICQ   Вверх
Zzz
Дата 16.9.2003, 15:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 306
Регистрация: 21.2.2003
Где: Мурманск

Репутация: нет
Всего: 5
Прости, беспокойные дни на работе, а дома инет не юзаю.

Вопрос: будет ли эта dll работать так же в Linux'e, еслия буду писать на Kylex'e.
А то заказчик не может определиться в какой системе прога должна работать...


--------------------
Бесполезной громоздкой надстройкой является Windows от Майкрософт. Она занимает 1Мб памяти диска и рассчитана на использование устройства типа мышь.

"ЭВМ в инженерной практике" М. 1989г.
PM MAIL ICQ   Вверх
Baa
Дата 16.9.2003, 15:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: нет
Всего: 12
Zzz, нет, не будет.


--------------------
"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande
PM ICQ   Вверх
Akella
Дата 16.9.2003, 19:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

Репутация: 1
Всего: 329
Насколько я знаю, то для Delphi 7, Kylix, как таковая не нужна ставишь Delphi под Linux и компилишь проект, после ентого он должен нормально работать под Linux - это я вычитал при установке Delphi 7.
PM MAIL   Вверх
Baa
Дата 16.9.2003, 20:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: нет
Всего: 12
dsergey, ты хоть читал вопрос? али тему обсуждения?
Специально транслирую:
Вопрос: будет ли моя(Baa) dll, работать под Linux'om?
Ответ: нет, не будет.
кстати, если кому подобная длл нужна, то я могу туда побольше функция для работы с ави вставить и выложить на сайте для скачки smile.gif +описание smile.gif


--------------------
"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande
PM ICQ   Вверх
Akella
Дата 17.9.2003, 14:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

Репутация: 1
Всего: 329
[email protected]
PM MAIL   Вверх
Akella
Дата 17.9.2003, 14:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

Репутация: 1
Всего: 329
а разве средствами TMediaPlayer`a нельзя?

я проверил так:
взял файл 4 мин 12 сек - 252 сек
Код
Form1.Caption:=intToStr(MediaPlayer1.Length);

результат 252247 - это я так понимаю в мс, а если в секундак, то 252 сек.
PM MAIL   Вверх
Baa
Дата 17.9.2003, 15:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: нет
Всего: 12
А файлы сжатые DivX'ом понимает? Я попробовал, так у меня он маразм выдал...


--------------------
"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande
PM ICQ   Вверх
Akella
Дата 18.9.2003, 08:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

Репутация: 1
Всего: 329
я попробую, но медиапроигрыватели (может даже все) зависят от того, какие кодеки установлены в системе. По крайней мере я знаю точно, что проигрыватель Windows Media, JetAudio, да и многие другие не показывают кинишку, пока не установишь соответствующие кодеки
PM MAIL   Вверх
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;



--------------------
библия учит любить ближнего, а камасутра обучает как именно
PM Jabber   Вверх
Akella
Дата 18.9.2003, 13:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

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

-помоему у меня дежавю, мне кажется, что я уже отвечал тебе, Baa-
PM MAIL   Вверх
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
PM ICQ   Вверх
Sniper
Дата 20.9.2003, 19:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 2
Baa сливай сюда тоже ogldelphi_at_mail.ru , где _at_ - это @


--------------------
"Я испытываю отвращение к системе, разработаннной для "пользователя", если в слове "пользователь" закодировано уничижительное значение "тупой и примитивный".
Кен Томпсон, создатель Unix
PM MAIL   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1498 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.