Текущий архив: 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.045 c
