Плэйлист.m3u

Форумы Делаем компонентыПлэйлист.m3u ← Ctrl12Ctrl →

Этот топик читают: Гость

Ответов: 232

Рейтинг: 6

#1: 2008-05-30 02:01:20 ЛС | профиль | цитата

Собственно вот даю ссылку: [url]http://www.delphi.int.ru/articles/28/ [/url] здесь описан формат плэйлистов м3u, сделайте кто нибудь компонент который бы работал при загрузки листа масивом.

карма: 0

Ответов: 1088

Рейтинг: 112

#2: 2008-05-30 07:02:32 ЛС | профиль | цитата

Antonio DieS, посмотрел на формат, как я понял достаточно нарисовать схему.

карма: 0

Время верстки: %cr_time% Текущее время: %time%

Ответов: 232

Рейтинг: 6

#3: 2008-05-30 11:07:57 ЛС | профиль | цитата

Ага достаточно, ну я бы хотел еще и сохранять в этот формат, а тут только разбор.

карма: 0

Администрация

Ответов: 15295

Рейтинг: 1519

#4: 2008-05-30 19:03:18 ЛС | профиль | цитата

А в чем проблема с сохранением? не умеет со списком строк(StrList) работать?

карма: 27

https://hiasm.com

Ответов: 232

Рейтинг: 6

#5: 2008-05-30 19:54:39 ЛС | профиль | цитата

Я вот ничего за это сказать не могу ибо тама в коде не написано как сохранять тоесть вообще об этом не говоритсо только о загрузки. В любом случае как компонент охото видеть но впринципе если бы знал как по коду собрать схему то собрал бы )
------------ Дoбавленo:

Ой прошу прощения, оказывается есть про сохранение, только вот сути не меняет (

карма: 0

Ответов: 3851

Рейтинг: 159

#6: 2008-05-30 20:31:00 ЛС | профиль | цитата

ты его в блокноте пробовал смотреть?

карма: 0

начавший

Ответов: 232

Рейтинг: 6

#7: 2008-05-31 10:26:22 ЛС | профиль | цитата

еще раз повторю: моя НЕ понимать коды )))

карма: 0

Ответов: 1305

Рейтинг: 29

#8: 2008-05-31 10:54:51 ЛС | профиль | цитата

Antonio DieS писал(а):

еще раз повторю: моя НЕ понимать коды )))

Antonio DieS, а читать твоя умеет

Формат M3U-файла текстовый - просто открой его в блокноте и посмотри, как он устроен. Много ума для этого не нужно

------------ Дoбавленo:

Вот например:



#EXTM3U
#EXTINF:0,Ветром стать.mp3
ЗвукТрудный возрастВетром стать.mp3

#EXTINF:0,Лолита.mp3
ЗвукТрудный возрастЛолита.mp3

#EXTINF:0,Небо цвета молока.mp3
ЗвукТрудный возрастНебо цвета молока.mp3

#EXTINF:0,Нежность (remix acid-jazz).mp3
ЗвукТрудный возрастНежность (remix acid-jazz).mp3

#EXTINF:0,Нежность.mp3
ЗвукТрудный возрастНежность.mp3

#EXTINF:0,Отпускаю.mp3
ЗвукТрудный возрастОтпускаю.mp3

#EXTINF:0,Пам-парам.mp3
ЗвукТрудный возрастПам-парам.mp3

#EXTINF:0,Сантиметры дыхания (remix).mp3
ЗвукТрудный возрастСантиметры дыхания (remix).mp3

#EXTINF:0,Сантиметры дыхания.mp3
ЗвукТрудный возрастСантиметры дыхания.mp3

#EXTINF:0,Сон.mp3
ЗвукТрудный возрастСон.mp3

#EXTINF:0,Трудный возраст (slow version).mp3
ЗвукТрудный возрастТрудный возраст (slow version).mp3

#EXTINF:0,Трудный возраст.mp3
ЗвукТрудный возрастТрудный возраст.mp3

А по большому счету достаточно просто перечислить файлы (без строк #EXTINF:0 ....), и все будет работать

карма: 0

Ответов: 1088

Рейтинг: 112

#9: 2008-06-01 19:47:26 ЛС | профиль | цитата

Автор молчит... Вот сохранение в формат M3U(хотя если точнее то это генерация M3U):


#sha
Add(Button,1199699,-147,224)
{
 Left=95
 Top=165
 Align=2
 Caption="Generate"
 link(onClick,2688970:doSearch,[])
}
Add(FileSearch,2688970,-84,224)
{
 Ext="*.txt"
 Dir="-"
 Point(ShortName)
 link(onSearch,9899361:doDelete,[])
 link(Dir,1056164:CurrentDir,[])
}
Add(Counter,4022338,266,238)
{
 link(onNext,6768717:doCompare,[])
}
Add(If_else,6768717,315,238)
{
 Type=1
 Op2=Integer(10)
 link(onFalse,2688970:doStop,[(386,251)(386,287)(-96,287)(-96,237)])
}
Add(FormatStr,3304271,161,231)
{
 Mask="#EXTINF:0,%1
%2"
 link(onFString,3557646:doEvent1,[])
 link(Str2,5338079:Value,[(174,219)(103,219)(103,267)(20,267)])
}
Add(Dir,1056164,-77,168)
{
}
Add(Delete,9899361,-28,224)
{
 Count=2
 link(onDelete,5338079:doValue,[])
}
Add(Memory,5338079,14,224)
{
 link(onData,8794297:doSearch,[])
}
Add(BlockFind,8794297,63,224)
{
 IncludeBlock=1
 Delete=0
 StartBlock=""
 EndBlock=""
 link(onEndSearch,4574141:doReplace,[])
}
Add(Replace,4574141,112,231)
{
 SubStr=""
 link(onReplace,3304271:doString,[])
}
Add(Memo,10508442,266,140)
{
 Left=240
 Top=175
 Align=5
 Strings=#7:#EXTM3U|
 ScrollBars=2
}
Add(Hub,3557646,210,231)
{
 link(onEvent1,10508442:doAdd,[(254,237)(254,146)])
 link(onEvent2,4022338:doNext,[])
}
Add(InfoTip,2281075,-105,126)
{
 Info=#29:Задание типа файла для поиска|
 Height=151
}
Add(InfoTip,15146008,-35,147)
{
 Info=#22:Удаление всего лишнего|
 Width=190
 Height=130
}
Add(InfoTip,11823156,259,196)
{
 Info=#41:Остановить поиск после 10 найденых файлов|
 Width=113
 Height=81
}
Add(InfoTip,12540981,-14,14)
{
 Info=#27:-=Сохранение в формат M3U=-|
 Font=[MS Sans Serif,14,1,0,1]
 Width=309
 Height=60
}

карма: 0

Время верстки: %cr_time% Текущее время: %time%

Ответов: 232

Рейтинг: 6

#10: 2008-06-02 06:12:37 ЛС | профиль | цитата

Ну я отдыхал просто. Спасибо за схемку ) Я знал как выглядит этот формат, Просто компонентом хотелось )

карма: 0

Ответов: 3851

Рейтинг: 159

#11: 2008-06-02 10:00:01 ЛС | профиль | цитата

Antonio DieS писал(а):

Просто компонентом хотелось

запихни в мультик вместе с иконкой (в комментарий к иконке напиши "#main"без кавычек) и будет ТЕБЕ компонент..

карма: 0

начавший

Ответов: 232

Рейтинг: 6

#12: 2008-06-02 11:12:38 ЛС | профиль | цитата

ДА не в этом дело то, просто если как масивом работать если заметил то в винампе нету этих строк при загрузки, ибо он хапает только имя исполнителя а вот как сделать чтобы например одна строка и поиск соответственно пути к файлу ( Короче головняк не в генерации а в загрузки (

карма: 0

Ответов: 1088

Рейтинг: 112

#13: 2008-06-02 11:23:18 ЛС | профиль | цитата

В приведенной мною схеме для поиска файла достаточно добавить метку диска вначало второй строки:
\MSC\MP3\113 Scooter - Ratty's revenge.mp3 исправить в <буква:>\MSC\MP3\113 Scooter - Ratty's revenge.mp3

карма: 0

Время верстки: %cr_time% Текущее время: %time%

Ответов: 232

Рейтинг: 6

#14: 2008-06-02 11:43:39 ЛС | профиль | цитата

Я сразу сделал это, но вот сделать как в винампе не удалось, короче (_о_) полная (

карма: 0

Ответов: 3851

Рейтинг: 159

#15: 2008-06-02 15:20:56 ЛС | профиль | цитата

Плохо пока понимаю, при чём тут массив..
Если смущает, что на одну композицию приходится двойная строчка, то это не проблема:

Add(BlockFind,12212982,175,343)
{
 StartBlock="#EXTINF:0,"
 EndBlock="

"
}

Antonio DieS писал(а):

сделать как в винампе не удалось

Уточни - что имеется в виду..

карма: 0

начавший

Форумы Делаем компонентыПлэйлист.m3u ← Ctrl12Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)