Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сканирование папки с mp3, Срочно нужна помощь 
V
    Опции темы
lenin_yo
Дата 24.5.2007, 21:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Есть адрес папки.
Нужно каким то макаром просканировать его
и записать названи всех файлов с расширением .mp3
в любой компонент из колекции Buildera 6:
ListBox
ScrollBox
FileListBox
или др.
Главное, чтоб было написано только название файла 
без указания полного пути к нему.
PM MAIL   Вверх
Klin
Дата 24.5.2007, 21:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 20
Всего: 25
Сейчас билдер барахлит, скажу, теоритически.
1) Через FileListBox (указывается расширение и директория) - имхо самый простой
2) через поиск (функции FindFirst, FindNext, FindClose)

настою, напишу, как реализовать.


p.s. судя по стилю написания - курсовая, если вам необходимо будет писать всю программу, то обратитесь в Центр помощи.


--------------------
Я человек - попробуйте обвинить меня за это.
PM MAIL   Вверх
lenin_yo
Дата 24.5.2007, 21:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

FileListBox

Этот выводит полный путь к файлу, а это не желательно
PM MAIL   Вверх
Klin
Дата 24.5.2007, 21:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 20
Всего: 25
На форуме есть FAQ, в котором есть статья Получение информации из пути


--------------------
Я человек - попробуйте обвинить меня за это.
PM MAIL   Вверх
lenin_yo
Дата 24.5.2007, 21:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Мне главное, чтоб в списке название файла было без адреса.
PM MAIL   Вверх
Klin
Дата 24.5.2007, 21:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 20
Всего: 25
Тогда FileListBox - стандартно и оптимально:
Код

 FileListBox1->Directory = "F:\\Sound\\Green day\\09-Shenanigans (2002)";
 FileListBox1->Mask = "*.mp3";


Добавлено @ 21:39
или вот с ListBox
Код

 FileListBox1->Directory = "F:\\Sound\\Green day\\09-Shenanigans (2002)";
 FileListBox1->Mask = "*.mp3";
 for (int n = 0; n <FileListBox1->Count; n++)
  ListBox1->Items->Add(ChangeFileExt(FileListBox1->Items->Strings[n],NULL));


или с понтом smile
Код

 TPanel *load = new TPanel (FileListBox1);
 load->Caption = "Загрузка";
 load->BevelOuter = bvNone;
 load->Align = alClient;
 load->Parent = FileListBox1;
 FileListBox1->Directory = "F:\\Sound\\Green day\\09-Shenanigans (2002)";
 FileListBox1->Mask = "*.mp3";
 for (int n = 0; n <FileListBox1->Count; n++)
  FileListBox1->Items->Strings[n] = ChangeFileExt(FileListBox1->Items->Strings[n],NULL);
 load->Free();


Это сообщение отредактировал(а) Klin - 24.5.2007, 23:23


--------------------
Я человек - попробуйте обвинить меня за это.
PM MAIL   Вверх
lenin_yo
Дата 24.5.2007, 22:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Все работает спс. Вот только 

FileListBox1->Directory не присваивается путь к папке с музой. 

Файлы загружаются с каталога програмы.

Добавлено через 1 минуту и 58 секунд
Как быть???
PM MAIL   Вверх
Klin
Дата 24.5.2007, 22:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 20
Всего: 25
как присваиваете?

Добавлено через 7 минут и 43 секунды
попробуй исправить:

Код

 FileListBox1->Directory = "F:\\Sound\\Green day\\09-Shenanigans (2002)"; 


и

Код

 FileListBox1->Items->Strings[n] = ChangeFileExt(FileListBox1->Items->Strings[n],"");  // вместо NULL - ""


Должно заработать smile


--------------------
Я человек - попробуйте обвинить меня за это.
PM MAIL   Вверх
lenin_yo
Дата 24.5.2007, 22:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Да так вот и делаю.
Код

FileListBox1->Directory = "D:\multimedia\music\King Diamond";

Иначе как не знаю.
PM MAIL   Вверх
Klin
Дата 24.5.2007, 23:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 20
Всего: 25
Цитата(lenin_yo @  24.5.2007,  23:59 Найти цитируемый пост)
Иначе как не знаю.

это точно не правильно, компилятор должен заругаться. Сделай, как я написал в прошлом примере. Т.е. пишим не \  а \\


--------------------
Я человек - попробуйте обвинить меня за это.
PM MAIL   Вверх
lenin_yo
Дата 24.5.2007, 23:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

компилятор должен заругаться

Ни одного нехорошего слова в сторону програмера за "\"от компилятора я не услышал.
А с "\\" та же история.ТОлько папка с программой.
PM MAIL   Вверх
Klin
Дата 24.5.2007, 23:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 20
Всего: 25
Цитата(lenin_yo @  25.5.2007,  00:08 Найти цитируемый пост)
ТОлько папка с программой.

Напишите то, как вы это делаете...


--------------------
Я человек - попробуйте обвинить меня за это.
PM MAIL   Вверх
lenin_yo
Дата 24.5.2007, 23:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Все ОК. smile 
Поменял ВСЕ \ на\\ и теперь работает .Спасибо!
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

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

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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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