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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Продлжительность видео и музыки, Как узнать Продлжительность видео и муз 
:(
    Опции темы
BEST13
Дата 8.5.2008, 14:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Я пишу плер при помощи компонента Tmediaplaer. И мне нужно узнать продолжытельность муз.трека и видео. 
p.s ответы типа тебе нужен DSPack и т.п.  не нужys 
PM MAIL ICQ GTalk   Вверх
Qu1nt
Дата 8.5.2008, 15:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 50
Код

MediaPlayer1.Length; // результат в ms



Это сообщение отредактировал(а) Qu1nt - 8.5.2008, 15:15
PM MAIL   Вверх
BEST13
Дата 8.5.2008, 16:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Qu1nt спосибо. А как правельно перевисты в формат m:s ?
PM MAIL ICQ GTalk   Вверх
Qu1nt
Дата 8.5.2008, 17:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 50
Как-то так:
Код

function FormatTime(Time: Integer): string;
const
  sec  = 1000;
  min  = 60 * sec;
  hour = 60 * min;
var
  h, m, s : Integer;
begin
  h := Time div hour;
  m := (Time div min) mod 60;
  s := (Time div sec) mod 60;
  if Time < hour then
    Result := Format('%d:%.2d', [m, s])
  else
    Result := Format('%d:%.2d:%.2d', [h, m, s]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with MediaPlayer1 do
  begin
    FileName := 'C:\Windows\Media\tada.wav';
    Open;
    Self.Caption := FormatTime(Length);
  end;
end;
PM MAIL   Вверх
BEST13
Дата 8.5.2008, 19:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Большое спосибо ,а как узантьскоко уже прошло  время от начала трека?
ну как в о всех плерах

Это процедура неправельно отображает продолжытельность для фильмов, а вчем причина я понять не могу


Это сообщение отредактировал(а) BEST13 - 8.5.2008, 19:55
PM MAIL ICQ GTalk   Вверх
Qu1nt
Дата 8.5.2008, 21:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 50
Цитата(BEST13 @  8.5.2008,  19:45 Найти цитируемый пост)
Это процедура неправельно отображает продолжытельность для фильмов, а вчем причина я понять не могу

Естественно, а TimeFormat кто выставлять будет?!
Код

procedure TForm1.FormCreate(Sender: TObject);
begin
  with MediaPlayer1 do
  begin
    FileName := 'C:\Windows\Media\tada.wav';
    Open;
    TimeFormat := tfMilliseconds; // не забываем выставить TimeFormat!
    Self.Caption := FormatTime(Length);
  end;
end;

Цитата(BEST13 @  8.5.2008,  19:45 Найти цитируемый пост)
Большое спосибо ,а как узантьскоко уже прошло  время от начала трека?
ну как в о всех плерах

Можно так:
Код

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  with MediaPlayer1 do
    Self.Caption := FormatTime(Position) + ' \ ' + FormatTime(Length);
end;
PM MAIL   Вверх
BEST13
Дата 8.5.2008, 21:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Большое спосибо, очень помогли!
PM MAIL ICQ GTalk   Вверх
Qu1nt
Дата 8.5.2008, 21:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 50
Не за что!)
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

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

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

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

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

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

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


 




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


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

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