Главная страница
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.035 c
4-1097004708
Jolik
2004-10-05 23:31
2004.11.14
В W3.11 было ограничение...


14-1098709915
ArMellon
2004-10-25 17:11
2004.11.14
люди помогите найти дрова на видюху


1-1098810059
aab
2004-10-26 21:00
2004.11.14
winapi owner, parent delphi-?


14-1098632465
Zeqfreed
2004-10-24 19:41
2004.11.14
OpenGL... Поделитесь опытом


3-1097840430
diabolik_krsk
2004-10-15 15:40
2004.11.14
Создание колонок DBGrid а во время прогона программы