Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.23;
Скачать: CL | DM;

Вниз

WinAmp - PlayList   Найти похожие ветки 

 
FlyDragon   (2003-06-23 12:18) [0]

Вопрос такой. Нужно загрузить в свою программу плэй лист WinAmp"а (сохраненный на жиске).
Как посоветуете это сделать?
Может через Readln(дайте пример)?
Спасибо!!!


 
Ru ©   (2003-06-23 12:39) [1]

var
F:tetFile; {возможно ошибка}
S:string;
...
begin
Assign(f,"MyList.m3u");
Reset(f);
ReadLn(f,s);
{обработка строки, проверка что за строка поиск нужной информации}
CloseFile(f);
end;


 
FlyDragon   (2003-06-23 13:44) [2]

Как использовать Readln я знаю. Я имел в виду сам алгоритм загрузки информации из "MyList.m3u" (например) в Memo1 и чтение ...


 
Ru ©   (2003-06-23 14:48) [3]

с мемо проще:
Memo1.Lines.LoadFromFile("MyList.m3u");

Это если нужно просто прочитать файл (в чем я сомневаюсь)


 
Poirot ©   (2003-06-23 15:25) [4]

ему похоже парсер надобыло написать - но нафиг это каму надо - сам пиши или предлагай бабки - тривиальная задача!!!


 
Ru ©   (2003-06-23 15:35) [5]

>Poirot © (23.06.03 15:25)
"И я, и я, и я того же мнения" Ослик Иа
Пример файла листа:
#EXTM3U
#EXTINF:174,Океан Эльзы - Вставай
Вставай.mp3
#EXTINF:83,Океан Эльзы - Друг Ч.1
Друг1.mp3

Первая строчка заголовок
Последовательность #EXTINF: - означает, что дальше идет описание взятое из Id3Tag
Цифры это время в секундах.
Дальше "артист - композиция"
следующая строчка это путь к композиции от положения листа, либо абсолютный путь.

Собственно парсить нечего. Начинаем читать с первой строчки:
1. Выкинули #EXTINF:
2. Считали строчку до запятой (запятую выкинуть).
3. Считали название.
4. В следующей строчке путь.
5. пока не конец идти 1.



Страницы: 1 вся ветка

Текущий архив: 2003.10.23;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.027 c
7-74510
suric
2003-08-06 14:26
2003.10.23
Программирование USB под Win32


14-74381
MBo
2003-10-03 06:50
2003.10.23
Планы партии - планы народа.


14-74406
skalp
2003-10-06 18:39
2003.10.23
Компонент для Delphi для работы со сканером через TWAIN-интерфейс


6-74369
Demetrius2003
2003-08-26 16:48
2003.10.23
WinSock


1-74290
Delphin
2003-10-13 19:37
2003.10.23
Перевод текста