Здравствуйте, Гость
Понедельник, 25.09.2017, 06:49
Главная Главная страница форума Регистрация Вход
Новые сообщения Участники форума Правила форума Поиск
Страница 2 из 2«12
Модератор форума: Ekz 
Форум » Все о Delphi » Мультимедиа » Как получить частоту дискретизации музыкального файла? (Не догояню.)
Как получить частоту дискретизации музыкального файла?
ZuByДата: Суббота, 01.08.2009, 14:22 | Сообщение # 16
Ранг 5
Группа: Проверенные
Сообщений: 118
Награды: 2
Репутация: 2
Статус: Offline
напиши код как ты поток слздаешь???

http://www.zubymplayer.com
 
DJ_ЕвсДата: Суббота, 01.08.2009, 14:26 | Сообщение # 17
Ранг 6
Группа: Проверенные
Сообщений: 165
Награды: 3
Репутация: 1
Статус: Offline
Да я его никак не создаю. Готовый исходник взял, там всё просто вобще. Ничего даже создавать не надо. Чё есть - открыть файл, плей, стоп, и т.д.
Мне бы чего попроще... Хоть через TMediaPlayer штоле... wink


ПРОЙДИ ТЕСТ!!!!!
http://FIDO20.ru/test.php?4052&c=bbea2a1

 
ZuByДата: Суббота, 01.08.2009, 14:31 | Сообщение # 18
Ранг 5
Группа: Проверенные
Сообщений: 118
Награды: 2
Репутация: 2
Статус: Offline
скинь его, на TmediaPlayer ничего не сделаешь...

http://www.zubymplayer.com
 
DJ_ЕвсДата: Суббота, 01.08.2009, 14:34 | Сообщение # 19
Ранг 6
Группа: Проверенные
Сообщений: 165
Награды: 3
Репутация: 1
Статус: Offline
http://delphidevelop.ru/_fr/2/MP3_Bass_Object.rar
Вот это ты мне сам давал. Я из него сделал.


ПРОЙДИ ТЕСТ!!!!!
http://FIDO20.ru/test.php?4052&c=bbea2a1

 
ZuByДата: Суббота, 01.08.2009, 14:51 | Сообщение # 20
Ранг 5
Группа: Проверенные
Сообщений: 118
Награды: 2
Репутация: 2
Статус: Offline
вот я те исходник написал, чтобы извлечь частоту.
Прикрепления: Example.rar(887Kb)


http://www.zubymplayer.com
 
DJ_ЕвсДата: Суббота, 01.08.2009, 15:04 | Сообщение # 21
Ранг 6
Группа: Проверенные
Сообщений: 165
Награды: 3
Репутация: 1
Статус: Offline
Ха, блин, прикольно. Спасибо =)

Добавлено (01.08.2009, 15:00)
---------------------------------------------
Тэээкс. Ещё 1 вопрос - как теперь сразу же убить поток? Прям на месте и совсем?

Добавлено (01.08.2009, 15:04)
---------------------------------------------
Кажется, нашёл...
BASS_StreamFree(chan);


ПРОЙДИ ТЕСТ!!!!!
http://FIDO20.ru/test.php?4052&c=bbea2a1

 
ZuByДата: Суббота, 01.08.2009, 15:05 | Сообщение # 22
Ранг 5
Группа: Проверенные
Сообщений: 118
Награды: 2
Репутация: 2
Статус: Offline
bass_streamfree(chan);
а остановить
bass_chaannelstop(chan)


http://www.zubymplayer.com
 
DJ_ЕвсДата: Суббота, 01.08.2009, 15:11 | Сообщение # 23
Ранг 6
Группа: Проверенные
Сообщений: 165
Награды: 3
Репутация: 1
Статус: Offline
ААААА!!!!!! Какая красота! Всё работает! biggrin
СПАСИБО ОГРОМНОЕ!! Если будет вопрос по звуку, обращайся смело, помогу чем смогу. =)

Добавлено (01.08.2009, 15:11)
---------------------------------------------
ZuBy, а я её и не плеил даже =) Ща покажу, что я с ней сделал. Ты не узнаешь свою процедуру biggrin

Code
function hzToInt: Integer;
var
H: Extended;
bi: BASS_CHANNELINFO;
begin
Chan := BASS_StreamCreateFile(false, Pchar(Form1.OpenDialog1.FileName), 0,0,0);
BASS_ChannelGetInfo(Chan, bi);
H := bi.freq;
Result := Round(H);
BASS_StreamFree(chan);
end;


ПРОЙДИ ТЕСТ!!!!!
http://FIDO20.ru/test.php?4052&c=bbea2a1

Сообщение отредактировал DJ_Евс - Суббота, 01.08.2009, 15:12
 
ZuByДата: Суббота, 01.08.2009, 16:13 | Сообщение # 24
Ранг 5
Группа: Проверенные
Сообщений: 118
Награды: 2
Репутация: 2
Статус: Offline
ну или так ))

http://www.zubymplayer.com
 
POGiMplayerДата: Суббота, 01.08.2009, 18:44 | Сообщение # 25
Ранг 1
Группа: Проверенные
Сообщений: 17
Награды: 0
Репутация: 0
Статус: Offline
[quote=ZuBy]скачай ID3V2.pas и читай оттуда...
можешь так читать прям из файла, последние 128 байт это и есть теги... [/quote]

Ты не путай ID3V1 и ID3V2 тэги. Это совсем разные вещи. ID3V1 тэги имеет размер в виде 128 байт в конце, а ID3V2 имеют неограниченное кол-во байт в зависимости от содержимого.

Сообщение отредактировал POGiMplayer - Суббота, 01.08.2009, 18:47
 
Форум » Все о Delphi » Мультимедиа » Как получить частоту дискретизации музыкального файла? (Не догояню.)
Страница 2 из 2«12
Поиск:

Copyright DelphiDevelop.ru © 2008-2017
Хостинг от uCoz