Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > листбокс

Автор: DeViLMaster 3.10.2008, 15:41

привет у меня сново вопрос присоеденил 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; //установить указатель на первую строку

Автор: Rennigth 3.10.2008, 15:54

Цитата(DeViLMaster @ 3.10.2008, 15:41

)

привет у меня сново вопрос присоеденил OptimFROG.dll к проге но вот вопрос как сделать так чтобы плейлист паказывал не только МР3 треки а и waw/avi/wma ...

Цитата(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; //установить указатель на первую строку

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

Автор: DeViLMaster 3.10.2008, 16:01

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

Код



 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 треки а другие не замечает

Автор: Данкинг 3.10.2008, 16:06

ИМХО в данном случае лучше использовать FileListBox.

Автор: Rennigth 3.10.2008, 16:08

млин...
1. OptimFROG.dll что за зверь?
2.

Цитата(DeViLMaster @ 3.10.2008, 15:41

)

как сделать так чтобы плейлист паказывал не только МР3 треки а и waw/avi/wma ...

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

Автор: DeViLMaster 3.10.2008, 16:16

работает, но только если менять Эту стороку

Код

if FindFirst(Path + '*.mp3', faAnyFile, SearchRec) = 0 then

на

Код


if FindFirst(Path + '*.wav', faAnyFile, SearchRec) = 0 then

Автор: Qu1nt 3.10.2008, 16:23

Как-нибудь так = )

Код


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);