Модераторы: Snowy, Alexeis, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Отобразить и изменить свойства аудио файла 
V
    Опции темы
Sanek123
Дата 26.7.2009, 09:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 201
Регистрация: 22.10.2008

Репутация: нет
Всего: нет



Добрый день, товарищи! Уверен подобный вопрос уже не раз поднимался на разных форумах, но тем не менее : подскажите как "прочитать свойства аудио-файла"? Например: есть а/о-файл 
user posted image

у него в свойствах много чего написано: Название, Исполнитель, Альбом, Год выпуска, Жанр, Коментарий и т.д.
Надо чтоб (Форма в Delphi) в текстовых полях отображались соответствующие данные + возможность изменять их и сохранять изменения. Примерно как на рисунке:
user posted image

Вроде работы программы MP3-Tag.
Я знаю только название файла (через адрес + Filename), как добиться всего остального? Я имею в виду информации в свойствах файла.

--------------------
Вас разыскивают бойцы 139-го порта...
PM MAIL   Вверх
Keeper89
Дата 26.7.2009, 10:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 1
Всего: 58





--------------------
PM MAIL WWW   Вверх
Sanek123
Дата 26.7.2009, 10:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 201
Регистрация: 22.10.2008

Репутация: нет
Всего: нет



Данные читаються из потока. А как быть с изменением тегов и сохранением в файл (уже измененных тегов)?
--------------------
Вас разыскивают бойцы 139-го порта...
PM MAIL   Вверх
Keeper89
Дата 26.7.2009, 13:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 1
Всего: 58



Вот, думаю, то что надо: http://www.delphisources.ru/pages/faq/base/mp3_work.html


--------------------
PM MAIL WWW   Вверх
Sanek123
Дата 26.7.2009, 15:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 201
Регистрация: 22.10.2008

Репутация: нет
Всего: нет



--------------------
Вас разыскивают бойцы 139-го порта...
PM MAIL   Вверх
Keeper89
Дата 26.7.2009, 18:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 1
Всего: 58



Первую особо не читал, а вот в последней ссылке четко показано как читать и писать эти атрибуты.


--------------------
PM MAIL WWW   Вверх
Sanek123
Дата 26.7.2009, 18:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 201
Регистрация: 22.10.2008

Репутация: нет
Всего: нет



Keeper89, прошу прощения, не понял как использовать функцию записи, точнее какие параметры передавать? Тегов несколько, а параметр у функции - один. Если я не прав - подскажи.

Это сообщение отредактировал(а) Sanek123 - 26.7.2009, 18:18
--------------------
Вас разыскивают бойцы 139-го порта...
PM MAIL   Вверх
Keeper89
Дата 26.7.2009, 18:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 1
Всего: 58



GetMP3Tag и SetMP3Tag, в заголовке они описаны, там всего 2 параметра - тип тега и имя файла.


--------------------
PM MAIL WWW   Вверх
Sanek123
Дата 27.7.2009, 21:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 201
Регистрация: 22.10.2008

Репутация: нет
Всего: нет



Цитата

там всего 2 параметра - тип тега и имя файла

Так и я о том же! тип тэга: например Album и имя файла: например C:\music.mp3. А как передать содержание того же тега Album? Я так полагаю, по уму, должна быть строка типа:
SetTag(FileName:pchar,TypeTag:variant,Text:string);
то есть:
SetTag('C:\music.mp3','Album','Dr. Alban feat Star Club');
Во-вторых есть теги 1х и 2х, одни в конце файла, другие в начале, плюс одни занимают 128 байт, другие... и так далее. Следовательно надо прежде: 
  • определить какой тип тегов используется;
  • считать имеющиеся значения тегов;
  • обнулить непрочитанные или изменяемые;
  • присвоить новые значения тегов;
  • сохранить изменения в файл.
Сколько бродил по просторам интернета - везде и всюду один и тот же исходник. Можно ли в моем случае работать с файлом на прямую не создавая потока? Может парсинг строк (хотя это не вариант, конечно) или еще какие-нибудь извращения придумать? Так чтоб без ошибочно сработало и на версию тегов и на чтение/запись?


--------------------
Вас разыскивают бойцы 139-го порта...
PM MAIL   Вверх
AntonN
Дата 28.7.2009, 00:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 491
Регистрация: 8.8.2006

Репутация: 7
Всего: 18



Sanek123, поищи Audio Tools library (например есть тут http://desksoft.ru/index.php?files&id=2&owner=3 )
И о каком потоке была речь?


--------------------
user posted image
PM MAIL WWW   Вверх
Keeper89
Дата 29.7.2009, 15:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 1
Всего: 58



Кроме 
Цитата(AntonN @  28.7.2009,  01:18 Найти цитируемый пост)
Audio Tools library

можно еще глянуть вот эту ссылку.


--------------------
PM MAIL WWW   Вверх
Sanek123
Дата 30.7.2009, 21:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 201
Регистрация: 22.10.2008

Репутация: нет
Всего: нет



Всем спасибо за помощь! Audio Tools library - реально помогло. В аттаче примерно то что требовалось. Открыть трэк, прослушать, редактировать теги и сохранить.


M
Alexeis
Модератор: вирус удалил, это та зараза что поражает все старые версии Delphi. Оставил только сорцы, так что теперь качать можно.


Это сообщение отредактировал(а) Alexeis - 6.9.2009, 09:25

Присоединённый файл ( Кол-во скачиваний: 19 )
Присоединённый файл  ID3v2.zip 619,39 Kb
--------------------
Вас разыскивают бойцы 139-го порта...
PM MAIL   Вверх
KRAMARTY
Дата 6.9.2009, 01:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 1.8.2009

Репутация: нет
Всего: нет



Цитата(Sanek123 @  30.7.2009,  21:56 Найти цитируемый пост)
Присоединённый файл ( Кол-во скачиваний: 1 )


 ID3v2.rar 886,01 Kb

Мой антивирь указывает что это троян!!!!
Так что господа не спешите скачивать smile 
PM MAIL   Вверх
MetalFan
Дата 6.9.2009, 17:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 5
Всего: 128



KRAMARTY, хмм... откуда там троян, если в архиве исходники и mp3 файл?


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Alexeis
Дата 6.9.2009, 17:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459



MetalFan, см. выше, я его уже удалил. Там был индюк smile .


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »


 




[ Время генерации скрипта: 0.1110 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.