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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> листбокс 
:(
    Опции темы
DeViLMaster
Дата 3.10.2008, 15:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
привет у меня сново вопрос присоеденил OptimFROG.dll к проге но вот вопрос как сделать так чтобы плейлист паказывал не только МР3 треки а и waw/avi/wma ...
в том дело что я пользуюсь таким кодом , он не роказывает, никаких треков ни  каких форматов, в чём моя ошибка заранее благодарен


Код

 ListBox1.Clear;
 //сформировать список файлов
 if FindFirst(Path + '*.mp3,*.wav,*.avi', faAnyFile, SearchRec) = 0 then
  begin
   ListBox1.Items.Add(SearchRec.Name);
   while (FindNext(SearchRec) = 0) do
    ListBox1.Items.Add(SearchRec.Name);
  end;
 If ListBox1.Items.Count > 0 Then
   ListBox1.ItemIndex := 0; //установить указатель на первую строку


Это сообщение отредактировал(а) DeViLMaster - 3.10.2008, 15:42
PM MAIL   Вверх
Rennigth
Дата 3.10.2008, 15:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 49
Всего: 76
1.
Цитата(DeViLMaster @  3.10.2008,  15:41 Найти цитируемый пост)
привет у меня сново вопрос присоеденил OptimFROG.dll к проге но вот вопрос как сделать так чтобы плейлист паказывал не только МР3 треки а и waw/avi/wma ...

2.
Цитата(DeViLMaster @  3.10.2008,  15:41 Найти цитируемый пост)
в том дело что я пользуюсь таким кодом , 
Код

 ListBox1.Clear;
 //сформировать список файлов
 if FindFirst(Path + '*.mp3,*.wav,*.avi', faAnyFile, SearchRec) = 0 then
  begin
   ListBox1.Items.Add(SearchRec.Name);
   while (FindNext(SearchRec) = 0) do
    ListBox1.Items.Add(SearchRec.Name);
  end;
 If ListBox1.Items.Count > 0 Then
   ListBox1.ItemIndex := 0; //установить указатель на первую строку



связи не вижу...  smile 









--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
DeViLMaster
Дата 3.10.2008, 16:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
я имею в виду эта библиотека читает аудио форматы, но если поставить такой код 

Код


 ListBox1.Clear;
 //сформировать список файлов
 if FindFirst(Path + '*.mp3', faAnyFile, SearchRec) = 0 then
  begin
   ListBox1.Items.Add(SearchRec.Name);
   while (FindNext(SearchRec) = 0) do
    ListBox1.Items.Add(SearchRec.Name);
  end;
 If ListBox1.Items.Count > 0 Then
   ListBox1.ItemIndex := 0; //установить указатель на первую строку


 то listbox показывает только мр3 треки а другие не замечает

Это сообщение отредактировал(а) DeViLMaster - 3.10.2008, 16:06
PM MAIL   Вверх
Данкинг
Дата 3.10.2008, 16:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
ИМХО в данном случае лучше использовать FileListBox.

Это сообщение отредактировал(а) Данкинг - 3.10.2008, 16:07


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Rennigth
Дата 3.10.2008, 16:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 49
Всего: 76
млин... 
1. OptimFROG.dll что за зверь?
2.   
Цитата(DeViLMaster @  3.10.2008,  15:41 Найти цитируемый пост)
как сделать так чтобы плейлист паказывал не только МР3 треки а и waw/avi/wma ...

Какой еще плейлист? как где ты его пытаешься заполнять? Тот код который ты привел заполняет ListBox именами файлов по пути Path. Да и он как-то странно написан... на глаз, но может работает, хз.


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
DeViLMaster
Дата 3.10.2008, 16:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
работает, но только если менять Эту стороку
Код
if FindFirst(Path + '*.mp3', faAnyFile, SearchRec) = 0 then




на  

Код

if FindFirst(Path + '*.wav', faAnyFile, SearchRec) = 0 then
PM MAIL   Вверх
Qu1nt
Дата 3.10.2008, 16:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 18
Всего: 50
Как-нибудь так = )
Код

var
  SearchRec: TSearchRec;
  Ext: string;
begin
  ListBox1.Clear;
  if FindFirst(Path + '*.*', faAnyFile, SearchRec) = 0 then
    repeat
      Ext := LowerCase(ExtractFileExt(SearchRec.Name));
      if (Ext = '.mp3') or (Ext = '.wav')  or (Ext = '.avi') then
        ListBox1.Items.Add(SearchRec.Name);
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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