Плейлист для плеера

[Stanislav]

Здравствуйте!
Я получил задание по программированию написать медиаплеер с плейлистом ну и с наваротами всякими.. я все осуществил кроме плейлиста. Проблема в том что при выборе списка музыкальных файлов у меня открывает толко одну папку на выбор с музыкой а как зделать чтоб в listbox1 можно было загрузить всю директорию? помогите пожайлусто завтра здавать...
заранее спасибо.

[mihali4]

ListBox1.Items.Add(ShellTreeView1.S electedFolder.PathName);

[mutabor]

уточни что надо сделать, показать диалог выбора папок или сделать добавление файлов из этих папок

посмотри этот плейлист, может подойдет http://www.programmersforum.ru/attac...4&d=1188456458
и этот, эта версия поновее, с ней нет инструкции, но возможностей больше, есть добавление файлов включая поддиректории
http://www.programmersforum.ru/attac...7&d=1191950099

[Stanislav]

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

uses Unit2;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
Form2.WindowState := wsMaximized;
Form2.MediaPlayer1.Notify := false;
Form2.MediaPlayer1.Display := Form2.Panel1;
Form2.MediaPlayer1.FileName := 'C:\TheWall\DELCAR2.AVI';
Form2.MediaPlayer1.Open;
Form2.MediaPlayer1.DisplayRect := Form2.ClientRect;
Form2.MediaPlayer1.Play;
end;
 
{Code for Form 2}
 
procedure TForm2.MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.NotifyValue = nvSuccessful then
Form2.Close;
end;

только вот от него что то толку нету как воспроизводило в маленьком окошке так и воспроизводит..

Это я взял с архива статей DelphiWorld 6

[Stilet]

А ты еще допиши :

WindowState:=wsMaximized;
Panel1.Align:=alClient;
BorderStyle:=bsNone;

И еси у тя панелька на всю форму растянута то она растянется на весь экран. Ну и конечно наверное нуна будет скрыть другие компоненты.

[Alex21]

Сообщение от Stilet

Panel1.Align:=alClient;

Это хорошо, но лучше изображение растягивать пропорционально.

ЗЫ: панель на черном фоне. Эффект широкого экрана

[Stilet]

А что в Медиаплеере нет пропорциональной демонстрации?
Ну если нет то мона панель в панели

[Stanislav]

Ребят нечего из выше изложенного не помогает...

[mutabor]

Все что тебе сделать с медиаплеером это указать Form2.MediaPlayer1.DisplayRect, а пропорции ты сам должен предусмотреть, взяв исходные из медиаплеера, и нужным образом растянуть Panel на к-ром отображается, а уже этот Panel по центру формы черного цвета разместить. Получится либо черные полосы по бокам, либо сверху и снизу, либо их совсем не будет, при неизмененных пропорциях видео.
Кстати качество в полноэкранном режиме будет не очень.

p.s. щас сделаю примерчик и выложу

[mutabor]

пример работы с видео в MP, сохранение пропорций при ресайзе, полноэкранный режим
правда с Виндой странные графические косяки после этой программы...

p.s. Выявил баг - при большом размере окна (максимизированное и даже просто растянутое почти на весь экран), при воспроизведении, когда открывается диалог и по нему поводить мышкой, появляются артефакты к-рые не проходят даже после закрытия программы (проходят если сменить обои). Добавил условие - если окно максимизировано, диалог не появится.
Вывод. Вызывать диалог при растянутом почти на весь экран окне не рекомендуется