| Автор | Сообщение |
|
Отправлено: 13.06.06 18:17. Заголовок: Traders Tool: mp3Scaner
Программа для сканирования альбомов в формате MP3 и OGG на предмет незаполненных тэгов, массового создания / удаления плейлистов, редактирования тэгов и переименования треков и папок альбомов. Имеется экспорт просканированного в файлы форматов XLS/CSV/HTML. Также можно использовать как простейший музыкальный менеджер. Скриншот - click here Программа - click here Или скачать у Urkraft -a click here Просьба высказывать мнения, пожелания, советы и сообщения о багах тут, по e-mail или ICQ 246825708. |
 |
Профиль
Ответить
|
|
Ответов - 153
, стр:
1
2
3
4
5
6
7
8
All
[только новые]
|
|
|
Отправлено: 16.12.07 16:47. Заголовок: Если ты про УИД, то ..
| цитата: | | Если ты про УИД, то сначала скажи, какой путь у тебя был к стартовой папке? |
|
в том виде была именно папка с альбомом, а не к группе. с уидом ясно. но там также видно что пусты и остальныее менее важные колонки. Расположение колонок на следующий запуск у меня тоже не запоминает. | цитата: | | И ещё, не пробовал проверить такие альбомы с помощью Flac Tester из утановочного пакета FLAC? Или Audiotester-ом |
|
AudioTester 3 files scanned in 3.95 seconds --- 0 files failed --- 3 files passed H:\1\2\Arcade Fire - 2005 - Arcade Fire\02 - I'm Sleeping In A Submarine.flac H:\1\2\Arcade Fire - 2007 - Neon Bible\03 - Neon Bible.flac H:\1\2\Elliott Smith - 2004 - From A Basement On The Hill\08 - Ostriches & Chirping.flac FLACTester [1/3] H:\1\2\Arcade Fire - 2005 - Arcade Fire\02 - I'm Sleeping In A Submarine.flac...OK [2/3] H:\1\2\Arcade Fire - 2007 - Neon Bible\03 - Neon Bible.flac...OK [3/3] H:\1\2\Elliott Smith - 2004 - From A Basement On The Hill\08 - Ostriches & Chirping.flac...OK 3 files, 0 errors и эти же треки в сканере: | цитата: | Arcade Fire Arcade Fire 2005 16,91 0:00:00
Arcade Fire Neon Bible 2007 12,56 0:00:00
Elliott Smith From A Basement On The Hill 2004 2,89 0:00:00 |
|
трек 3мб |
|
Профиль
Ответить
|
|
Отправлено: 17.12.07 16:45. Заголовок: Залил v1.5a билд 17...
Залил v1.5a билд 17.12.07 * - (хотелось бы надеяться) - проблема с индексами. Сейчас, проверил, всё прячется-показывается как надо. * - Открытие куй-файла в плеере. + - Запоминание ширины колонок, положение панелей и размеров окон, последнего пути для сканирования и сохранения. + - Хоткеи (список в текстовике приложен). Будут ещё... @ - Чуть доработал "вычленятор" - при автоподборе шаблона сначала "примеряется" последний удачно найденный шаблон и только потом подбирается. Должно повысить скорость "вычленирования" при большом количестве шаблонов... @ - кнопка расширения-сужения колонок теперь работает по-другому. Переключение "вместить колонки в видимую область" -> "расширить колонки по содержимому" -> "задать запомненные величины" работает по кругу. По "проблемным" FLAC-ам: Собака зарыта в ATL - библиотеке, что я использую. Так вот, читаются блоки метаданных, определяются их типы и, соответственно, что-то делается. По спецификации ФЛАС существуют такие блоки: | цитата: |
* 0 : STREAMINFO
* 1 : PADDING
* 2 : APPLICATION
* 3 : SEEKTABLE
* 4 : VORBIS_COMMENT
* 5 : CUESHEET
* 6-127 : зарезервированы
|
|
Далее, различные флаги (это я про ATL) характеризуют "валидность" файла. Одним из флагов является поле структуры FSamples, которое сбрасывается в 0, если индекс типа блока "не такой". Отсюда и полное неопределение параметров файла, как то - битрейт, время и.т.д... Я пока (временно) заблокировал сброс FSamples ноль, что позволяет нормально отбразить характеристики файла. Далее. У формата ФЛАК своего "родного" типа тэга нет. Основным считается Vorbis Comment, но можно записывать и ID3 v2x. Так вот в таких проблемных файлах индекс типа блока также не определяется, что делает невозможным считать содержимое тэга. Тут код подробнее: Скрытый текст
function TFLACfile.GetInfo( sFile: WideString; bSetTags: boolean ): boolean;
var
SourceFile: TTntFileStream;
aMetaDataBlockHeader: array[1..4] of byte;
iBlockLength, iMetaType, iIndex: integer;
bPaddingFound: boolean;
begin
result := true;
bPaddingFound := false;
FResetData( true, false );
try
{ Read data from ID3 tags }
FID3v2.ReadFromFile(sFile);
// Set read-access and open file
SourceFile := TTntFileStream.Create( sFile, fmOpenRead or fmShareDenyWrite);
FFileLength := SourceFile.Size;
FFileName := sFile;
{ Seek past the ID3v2 tag, if there is one }
if FID3v2.Exists then begin
SourceFile.Seek(FID3v2.Size, soFromBeginning)
end;
// Read header data
FillChar( FHeader, SizeOf(FHeader), 0 );
SourceFile.Read( FHeader, SizeOf(FHeader) );
// Process data if loaded and header valid
if FHeader.StreamMarker = 'fLaC' then begin
with FHeader do begin
FChannels := ( Info[13] shr 1 and $7 + 1 );
FSampleRate := ( Info[11] shl 12 or Info[12] shl 4 or Info[13] shr 4 );
FBitsPerSample := ( Info[13] and 1 shl 4 or Info[14] shr 4 + 1 );
FSamples := ( Info[15] shl 24 or Info[16] shl 16 or Info[17] shl 8 or Info[18] );
end;
if (FHeader.MetaDataBlockHeader[1] and $80) <> 0 then exit; //no metadata blocks exist
iIndex := 0;
repeat // read more metadata blocks if available
SourceFile.Read( aMetaDataBlockHeader, 4 );
iIndex := iIndex + 1; // metadatablock index
iBlockLength := (aMetaDataBlockHeader[2] shl 16 or aMetaDataBlockHeader[3] shl 8 or aMetaDataBlockHeader[4]); //decode length
if iBlockLength <= 0 then exit; // can it be 0 ?
iMetaType := (aMetaDataBlockHeader[1] and $7F); // decode metablock type
if iMetaType = META_VORBIS_COMMENT then
begin // read vorbis block
FVCOffset := SourceFile.Position;
FTagSize := iBlockLength;
FVorbisIndex := iIndex;
ReadTag(SourceFile, bSetTags); // set up fields
end else
if (iMetaType = META_PADDING) and not bPaddingFound then
begin // we have padding block
FPadding := iBlockLength; // if we find more skip & put them in metablock array
FPaddingLast := ((aMetaDataBlockHeader[1] and $80) <> 0);
FPaddingIndex := iIndex;
bPaddingFound := true;
SourceFile.Seek(FPadding, soCurrent); // advance into file till next block or audio data start
end else
begin // all other
if iMetaType <= 5 then
begin // is it a valid metablock ?
if (iMetaType = META_PADDING) then begin // set flag for fragmented padding blocks
FPaddingFragments := true;
end;
AddMetaDataOther(aMetaDataBlockHeader, SourceFile, iBlocklength, iIndex);
end else
begin
//FSamples := 0; //ops... !!!!!!!!!!!!!!!! Corrected by WU !!!!!!!!!!!!!!!!!!!
//exit;
end;
end;
until ((aMetaDataBlockHeader[1] and $80) <> 0); // until is last flag ( first bit = 1 )
end;
finally
if FIsValid then begin
FAudioOffset := SourceFile.Position; // we need that to rebuild the file if nedeed
FBitrate := Round( ( ( FFileLength - FAudioOffset ) / 1000 ) * 8 / FGetDuration ); //time to calculate average bitrate
end else begin
result := false;
end;
FreeAndNil(SourceFile);
end;
end;
|
Почему так происходит - это отдельный вопрос. Возможно библиотека неправильно декодирует индекс типа блока - х.з... Или, действительно что-то с файлами не то... Других версий, в общем, пока нет... |
|
Профиль
Ответить
|
|
Отправлено: 17.12.07 17:31. Заголовок: Залил v1.5a билд 17...
| цитата: | | Залил v1.5a билд 17.12.07 |
|
МАЛАДЕС! |
|
Профиль
Ответить
|
|
Отправлено: 17.12.07 17:45. Заголовок: Почему так происходи..
| цитата: | Почему так происходит - это отдельный вопрос. Возможно библиотека неправильно декодирует индекс типа блока - х.з... Или, действительно что-то с файлами не то...
Других версий, в общем, пока нет... |
|
спасибо за пояснения! вопрос, если таковые флаки разжать и по новой сжать и проставить в фубаре теги, это же меняет положение вещей? | цитата: | - Открытие куй-файла в плеере.
+ - Запоминание ширины колонок, положение панелей и размеров окон, последнего пути для сканирования и сохранения.
+ - Хоткеи (список в текстовике приложен). Будут ещё... |
|
ураа)) вот теперь думаю интерфейс будет отвечать лично моим требованиям на все 100%! |
|
Профиль
Ответить
|
|
Отправлено: 17.12.07 17:50. Заголовок: mel0man пишет: дума..
mel0man пишет: | цитата: | | думаю интерфейс будет отвечать лично моим требованиям |
|
А я думаю, что глюки ещё всплывут какие-нибудь... В планах добавить добавление Аудио СД - типа сунул диск, определил на фриДБ или забил вручную и добавил в табличку... |
|
Профиль
Ответить
|
|
Отправлено: 17.12.07 18:32. Заголовок: при экспорте был отл..
при экспорте был отлючен стоблец "битрейт" но включены "b value" and "b type"
в ексель отправились все три, хотя первого по идеи там быть не должно.
и еще матюкается перед запуском и также запуском окна экспорта, скорее всего в режиме "вместить колонки в видимую область"
[реклама вместо картинки]
да и столбец "УРЛЫ" тоже попал в экспорт, хотя с него галку снимал.
|
|
Профиль
Ответить
|
|
Отправлено: 17.12.07 18:46. Заголовок: Я так и знал, что не..
Я так и знал, что где-то просмотрел, задолбали уже эти индексы...
Out of range - это как раз и есть обращение к несуществующему индексу.
Придётся экспорт помучать ещё...
Можно скинуть в личку описание, какие именно колонки были включены?
Или скрин выложить..
|
|
Профиль
Ответить
|
|
Отправлено: 17.12.07 19:35. Заголовок: Или скрин выложить....
|
|
Профиль
Ответить
|
|
Отправлено: 17.12.07 21:15. Заголовок: Подправил экспорт -..
Подправил экспорт - в файл отправлялись не те колонки...
А ошибка вылетала из-за сохранения / загрузки размеров.
Чёртовы виртуальные индексы...
Удалил нахрен сохранение размеров, ибо сейчас не постигну, где наколбасил.
Будут ли вообще размеры сохраняться - неизвестно пока.
Закинул исправление - оно хоть работает, перепробовал по всякому прятать-тусовать колонки, глюков не было, всё выводится вроде куда надо.
|
|
Профиль
Ответить
|
|
Отправлено: 17.12.07 21:44. Заголовок: Будут ли вообще разм..
| цитата: | Будут ли вообще размеры сохраняться - неизвестно пока.
Закинул исправление - оно хоть работает, перепробовал по всякому прятать-тусовать колонки, глюков не было, всё выводится вроде куда надо. |
|
по мне так главное чтоб порядок колонок сохранялся, ато каждый раз передвигать 10-15 колонок в соотвествии с каталогом... а размер можно кнопкой справа одним шелчком выбрать, более или менее подходящий :) |
|
Профиль
Ответить
|
|
Отправлено: 17.12.07 21:51. Заголовок: 2 mel0man Всё, пока ..
2 mel0man Всё, пока ничего не буду туда лепить, пока не вылечатся все заморочки. Черкани, не вылазит ли какой фигни? Надеюсь, никого особо не задолбал своими выкрутасами  |
|
Профиль
Ответить
|
|
|
|
Отправлено: 17.12.07 22:59. Заголовок: 2 mel0man Всё, пока..
| цитата: | 2 mel0man
Всё, пока ничего не буду туда лепить, пока не вылечатся все заморочки.
Черкани, не вылазит ли какой фигни? |
|
сейчас всё запоминает и ничего не матюгается, с экспортом всё отлично, ничего лишнего. | цитата: | | Надеюсь, никого особо не задолбал своими выкрутасами |
|
всё отлишна, спасибо за особополезный софт!  |
|
Профиль
Ответить
|
|
Отправлено: 18.12.07 03:34. Заголовок: Туды-сюды колонки по..
Туды-сюды колонки потасовал, вроде бы все отлично, фигни не вылазит
|
|
Профиль
Ответить
|
|
Отправлено: 21.12.07 00:31. Заголовок: Прилепил добавление ..
Прилепил добавление Аудио СД. Экспериментально. Смысл примерно такой - пихнули диск, нажали поиск на ФриДБ, нажали добавить, next...  |
|
Профиль
Ответить
|
|
Отправлено: 21.12.07 12:16. Заголовок: 2 Wild User А где её..
2 Wild User
А где её сейчас качнуть? А то старая ссылка не работает.
|
|
Профиль
Ответить
|
|
Отправлено: 21.12.07 12:29. Заголовок: Gensek пишет: А где..
Gensek пишет: 5 страница, 7-й пост сверху. Фигово, что шапку не поправить никак... + сайт в профиле и подписи + в эбаутах программы |
|
Профиль
Ответить
|
|
Отправлено: 21.12.07 13:34. Заголовок: Блин, косячок нарыл ..
Блин, косячок нарыл - при добавлении Аудио СД не очищается список треков для всплывающего коммента и треки туда могут добавиться несколько раз.
Вечером будет исправлено.
|
|
Профиль
Ответить
|
|
Отправлено: 21.12.07 14:44. Заголовок: Холмс, а хде оно:При..
Холмс, а хде оно: | цитата: | Прилепил добавление Аудио СД.
Экспериментально.
Смысл примерно такой -
пихнули диск, нажали поиск на ФриДБ, нажали добавить, next... |
|
?  |
|
Профиль
Ответить
|
|
Отправлено: 21.12.07 15:21. Заголовок: Metalforeigner пишет..
Metalforeigner пишет: Ну же, Ватсон! Кнопарь с изобрАжением СиДи справа от кнопки сканирования... Вылезет окошко, вот оно и показано в скрине. Исправил предыдущий дефект. Оно хоть и проявлялось при добавлении одного и того же СД несколько раз (а вдруг?), но было не есть хорошо, а потому пофиксено. Ну, теперь, один шаг остался до автопроверки альбомов. Типа, просканировал, нажал кномпочку, и оно взяло и проверилось, поискалося и сравнилося с ФриДБ. Вот что и на что проверилось и куда это дело вывелось - это ещё надо мыслить... Теоретически, если альбом обнаружился в базе, то количество, расположение и длительность треков должны быть гуд. То, что не нашлось - выводить в файл, по которому смотреть потом и искать "ручками". Есть какие предложения? Иначе будет как я сам придумаю и потом про юзабилити никаких криков что бы не было  |
|
Профиль
Ответить
|
|
Отправлено: 21.12.07 16:25. Заголовок: Кнопарь с изобрАжени..
| цитата: | Кнопарь с изобрАжением СиДи справа от кнопки сканирования...
Вылезет окошко, вот оно и показано в скрине. |
|
 Падн ми, Холмс. Всё, пьянству - бой. Протупил я, не новую версию запускал. Таперь вижю. Холмс, а как насчёт растянуть чудо-окошко, нельзя ли сделать возможным, во весь экран, хотя б? А то список песенкаф не помещаеца.  |
|
Профиль
Ответить
|
|
Ответов - 153
, стр:
1
2
3
4
5
6
7
8
All
[только новые]
|
|
- участник сейчас на форуме
- участник вне форума
Падн ми, Холмс. Всё, пьянству - бой. Протупил я, не новую версию запускал. Таперь вижю. 