[vah-smile]

Доброе время суток!
У меня такая задача: создать медиаплеер, который умеет:

• Воспроизводить аудио и видео
• Поддержка полосы прокрутки (с возможностью перемотки трека с помощью мышки)
• Плейлист (добавление и удаление елементов из списка воспроизведения)

Если можна - то опишите поподробнее (для чайника) Спасибо!

[vah-smile]

Итак:

• ПРОИГРАТЬ MPEG-ФАЙЛ В ПРОГРАММЕ: http://www.delphicode.ru/multimedia/mpeg.htm
• Плейлист: http://www.delphisources.ru/forum/sh...light=playlist, http://www.delphisources.ru/forum/sh...light=playlist, http://www.delphisources.ru/forum/sh...light=playlist

Осталось сделать:

• Поддержка полосы прокрутки (с возможностью перемотки трека с помощью мышки)
• Загрузка списка воспроизведения (PlayList).
  При нажатии на кнопку (Button1) открывается диалоговое окно выбора файла. При использовании кода:
  Код:

  ListBox1.Items.LoadFromFile(OpenDialog1.FileName);

  в PlayList (ListBox1) загружается ранее сохраненый список воспроизведения (*.m3u), но медиа-файл (*.mpg, *.mp3) не загружается. Для загрузки медиа-файла использовал:
  Код:

  ListBox1.Items.Add(OpenDialog1.FileName);

  Вопрос: Как это обеденить (тоисть, чтобы в ListBox1 добавлся список воспроизведения и медиафайл)?
  
  У меня пока так:
  Код:

  procedure TForm1.Button1Click(Sender: TObject);
  begin
    if OpenDialog1.Execute then
     begin
  //    ListBox1.Items.LoadFromFile(OpenDialog1.FileName);
      ListBox1.Items.Add(OpenDialog1.FileName);
     end;
  end;

[r1x]

Попробуй..так
Открываешь файл через OpenDialog1.FileName, затем поставь условие если это <mp3,wav,wma,avi...и тд> тогда добвить в список путь к файлу, а если это <m3u,pls> тогда загрузить этот список.

<Не больой примерчик>

Код:

var i:integer;
mfile:string;   // Расширение файла...
begin
if OpenDialog1.Execute then
   begin
       for i:=1 to length(OpenDialog1.FileName) do  //Узнаем расширение файла
         begin         
          if OpenDialog1.FileName[i]='.' then 
           mfile:=copy(OpenDialog1.FileName,i+1,length(OpenDialog1.FileName);
         end;
//Ставим условие
           if (mfile='mp3') or (mfile='wav') then
               listbox1.items.add(OpenDialog1.FileName);
           if (mfile='m3u') or (mfile='pls') then
              listbox1.items.LoadFromFile(OpenDialog1.FileName)
   end;

Ну вот что то накатал))) возможно есь ошибки под корректируйдумаю должно заработать

[PhoeniX]

Чтоб узнать расширение достаточно заюзать ExtractFileExt. Стыдно про неё не знать.
И попробуй на досуге через ListBox.Items.LFF загрузить m3u/pls - получишь кучу мусора. Список надо разбирать, для каждого формата - свой алгоритм.