Главная страница
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.024 c
1-1098899254
Павел
2004-10-27 21:47
2004.11.14
Общий доступ к файлам


1-1099126770
namiq
2004-10-30 12:59
2004.11.14
vid formi


4-1096882304
Дмитрий Ботвин
2004-10-04 13:31
2004.11.14
Объём оперативки на сетевом компе


3-1097645176
Slider007
2004-10-13 09:26
2004.11.14
Блокировка записи


1-1098600206
Vatik
2004-10-24 10:43
2004.11.14
Геометрические построения