Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c