Форум программистов, компьютерный форум, киберфорум
Delphi: Графика, звук, видео
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.95/20: Рейтинг темы: голосов - 20, средняя оценка - 4.95
 Аватар для Xaker
13 / 12 / 3
Регистрация: 19.09.2009
Сообщений: 179

Определить длину трека.

02.01.2010, 06:15. Показов 3803. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем Привет, С новым годом вас!)

В общем у меня такая проблема...я хочу чтобы при добавлении файла (мп3) у меня в отдельный лабел заносилась его длина...(например 3:30).

Проблема в том что в библиотеке басс насколько я знаю можно узнать длину канала только его воспроизведя...а воспроизводить и стопорить каждую добавленную песню как то не резонно...в общем помоги найти выход)

Добавлено через 18 часов 42 минуты
может быть из свойст файла взять длину...? только вопрос как...
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
02.01.2010, 06:15
Ответы с готовыми решениями:

Bass (узнать длину трека)
Использую узнать длину трека вот таким кодом: QWORD len = BASS_ChannelGetLength(Channel,BASS_POS_BYTE); double val =...

Определить исполнителя по части трека
Доброго :senor: Давным-давно, толи в конце 80-х, толи в начале 90-х (ориентировочно) попалась мне аудиокассета, там были...

Определить длину и позицию слова, которое имеет наименьшую длину в строке
Определить длину и позицию слова, которое имеет наименьшую длину в строке. Строки Пожалуйста помогите!

7
 Аватар для Ferz-2009
23 / 23 / 2
Регистрация: 26.12.2009
Сообщений: 51
02.01.2010, 10:21
Спасибо за поздравление! Вас тоже с наступившем уже Новым годом!!!
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
function TimetoStr(n: longint): string;
var
s: string;
sec: longint;
min: longint;
begin
sec:=trunc(n/1000);
min:=trunc(sec/60);
sec:=sec-min*60;
if min<10 then s:='0'+inttostr(min) else s:=inttostr(min);
if sec<10 then s:=s+':0'+inttostr(sec)
else s:=s+':'+ inttostr(sec);
Result:=s;
end;
Вот пример как использовать данную функцию:
пишите в события таймера
Delphi
1
 label1.Caption:=TimetoStr(Bassplayer1.Position);
Всё работает! пользуйтесь!
1
 Аватар для Xaker
13 / 12 / 3
Регистрация: 19.09.2009
Сообщений: 179
03.01.2010, 09:56  [ТС]
Ferz-2009, так этот код просто считает текущию позицию из байт в секунды...а мну нужно узнать не воспроизводя а значит либо считать мегабайты и т.п. либо вытаскивать из свойств файла как то...как это сделать я от вас и пытаюсь узнать...
0
 Аватар для Ferz-2009
23 / 23 / 2
Регистрация: 26.12.2009
Сообщений: 51
04.01.2010, 00:52
Мда! даже не знаю! У меня и Делфи то сейчас нет под руками!
Но постараюсь подумать над вашим вопросом!

Добавлено через 13 часов 52 минуты
Сначала узнайте битрейт mp3-файла!
Потом битрейт поделить на 8, получите число байт в секунду, затем размер файла поделить на число байт в секунду.

Если разберётесь как осуществить, киньте пожалуйста код в студию!
0
Тимуровец
 Аватар для Страдалецъ
445 / 285 / 50
Регистрация: 10.09.2009
Сообщений: 963
04.01.2010, 00:58
Этот метод не будет работать для VBR
0
 Аватар для Андрей Борисови
714 / 402 / 33
Регистрация: 04.10.2009
Сообщений: 1,686
04.01.2010, 01:44
Попробуйте найти исходники Winamp, Aimp или другой похожей программы. Посмотрите как там реализовано добавление песни в PlayList и подсчет времени трека.
и усё.

вот. попробуйте это http://delphiexpert.ru/view_download.php?id=108
1
 Аватар для Xaker
13 / 12 / 3
Регистрация: 19.09.2009
Сообщений: 179
04.01.2010, 06:34  [ТС]
Андрей Борисови, Winamp, Aimp об их исходниках стоит только мечтать. А за ссылку спасибо)
0
Плейбой
27.02.2011, 10:13
Ferz-2009, здорова, слушай, пишу плеер, кое что уже придумал, из за недостатка опыта не могу придумать как сделать чтобы после того как песня прогиралась, включалась следующая по списку
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
27.02.2011, 10:13
Помогаю со студенческими работами здесь

Определить среднюю длину слова в введенной текстовой строке, символы пунктуации на длину не влияют
определить среднюю длину слова в введенной текстовой строке, символы пунктуации на длину не влияют. Скажите, в чем здесь ошибка??? ...

Дана строка символов. Определить наибольшую длину слова в строке. Определить количество слов с наибольшей длиной
Дана строка символов. Определить наибольшую длину слова в строке. Определить количество слов с наибольшей длиной.

Необходимо определить длину каждой строки, определить сколько символив первой и второй строки совпадают
Приветик всем)) Очень нужна помощь. Помогите решить некоторые задачи. 1. Пускай мы имеем массив 5 на 5. Необходимо отсортировать...

Вывести на экран длину стороны, длину диагонали и периметр грани, а также длину диагонали куба
С клавиатуры вводятся число a и число b от 1 до 4. Если b=1, то a - длина стороны куба, если b=2, то длина диагонали грани, если b=3, то...

Определить длину
Скопировать 6 строк в первый. Определить длину.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru