Медиа Плеер

[Zeraim]

Что-то я лазил лазил по форуму, темы нашол вродебы но нечего непонимаю, объясните как для дауна как в медиа плеере прогирать музыку, и как интрефейс у него делается? Пример вродебы нашол готового плеера но непонял как оно работает. Не беите, на самом деле немогу понять 8(

[Terran]

Проиграть музыку можно так:
Ставим на форму компонент MediaPlayer с вкладки System, 1 компонент OpenDialog и кнопку. Свойства MediaPlayer'а оставляем без изменений. В обработчике события на нажатие кнопки пишем следующий код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then //вызываем OpenDialog
  begin
   MediaPlayer1.FileName:=OpenDialog1.FileName; //указываем путь к файлу
   MediaPlayer1.Open;    //открываем файл 
   MediaPlayer1.Play;   // проигрываем 
 end;
end;

По нажатию на кнопку открывается OpenDialog и там выбираем песню которую хотим прослушать. Так как MediaPlayer компонент визуальный ,то можно управлять музыкой с помощью его кнопок. Так же в MediaPlayer можно просматривать видео для этого на форму нужно поставить наиболее удобный компонент который будет служить дисплеем. Можно поставить компонент Panel и растянуть его указав в MediaPlayer'e в свойстве Display этот компонент.

[RealSHELS]

но он только wav файлы читает.

[Terran]

RealSHELS, я пожалуй с вами не соглашусь, он и mp3 файлы читает и многие другие.

[RealSHELS]

но как? у меня на mp3 ошибку выдает

[Terran]

Скорее свего вам в свойстве MediaPlayer'а "DeviceType" нужно поставить dtAutoSelect.

[RealSHELS]

у меня и так автоселект стоит, но все равно ошибку выдает

[Terran]

Вот я быстренько написал исходник:
У меня он .mp3 и другие файлы читает)

Проигрывание музыки.rar

[RealSHELS]

спасибо за исходник, но у меня с етого форума ничего скачивать не хочет.

[Terran]

Возможно проблема в том что у тебя стоит Download Maste. У меня такое тоже раньше было пока я его не удалил.