Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.14;
Скачать: CL | DM;

Вниз

Длина wave   Найти похожие ветки 

 
Nomolos   (2004-08-09 21:44) [0]

Как узнать длину любого WAV (в секундах), вне зависимости от того, сжат он или нет. Понимаю, что вопрос глуп, но разбираться долго. Спасибо


 
Сергей Плоткин   (2004-08-09 21:54) [1]

Вообще, мне на ум приходит вот такой способ, возможно, не самый корректный и не самый быстрый, но рабочий...

function GetMediaLength(Filename:String;Form:TForm):Integer;
var
 MediaPlayer:TMediaPlayer;
begin
 MediaPlayer:=TMediaPlayer.Create(nil);
 try
   MediaPlayer.FileName:=Filename;
   MediaPlayer.Left:=-10000;
   MediaPlayer.Parent:=Form;
   MediaPlayer.Open;
   MediaPlayer.Stop;
   Result:=Round(MediaPlayer.Length/1000);
 finally
   MediaPlayer.Free;
 end;
end;</CODE>


 
Сергей Плоткин   (2004-08-09 21:56) [2]

да, в uses необходимо добавить юнит mplayer.


 
Mihey_temporary ©   (2004-08-09 23:04) [3]

Лучше считать заголовок и выдрать инфу оттуда.
http://www.swissdelphicenter.ch/en/showcode.php?id=1383


 
Nomolos   (2004-08-10 16:06) [4]

Нет, без VCL и MMSystem =) У меня драйвер и каждый байт ценен. Надо именно исходя из содержимого файла


 
Nomolos   (2004-08-10 17:10) [5]

Простите дурака, сам уже нашёл :) Там битрейт в заголовке прописывается :)



Страницы: 1 вся ветка

Текущий архив: 2004.11.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.029 c
14-1099122352
Дмитрий___
2004-10-30 11:45
2004.11.14
Защита от скачивания MP3


1-1099335963
dolphin
2004-11-01 22:06
2004.11.14
динамическое создание форм


1-1098787117
Андерсон
2004-10-26 14:38
2004.11.14
HelpFile


3-1097215384
janb
2004-10-08 10:03
2004.11.14
Помогите начинающему подключится к локальной базе MySQL


3-1097483098
BanderLog
2004-10-11 12:24
2004.11.14
FB 1.5 Создания БД программно.