Кранты соседям, или ТВОЙ собственный мега-плеер
Horrific (smirnandr@mail.ru)
Спецвыпуск Хакер, номер #004, стр. 004-094-2
Надо еще пять минут потужиться, и что-нибудь выйдет. Выдели созданную тобой кнопку на форме и иди в "ObjectInspector". Найди строчку "Caption" и измени ее на "Открыть". Теперь выдели "MediaPlayer" и в строке "Display" выдели имя созданной тобой панели (по умолчанию это "Panel1").
И еще кое-что. Дважды щелкни по кнопке, и перед тобой откроется редактор текста (рисунок 6). Здесь Delphi уже создала процедуру (в ней должен стоять твой курсор), которая будет вызываться каждый раз, когда ты жмешь на кнопку.
Прямо там, где находится курсор, напиши следующие пять строчек:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
MediaPlayer1.FileName:=OpenDialog1.Filename;
MediaPlayer1.Open;
end;
end;
Примечание!! Набирать на клаве нужно только то, что написано между крайними Begin и End, все остальное уже должно быть создано Delphi. Я привожу полную процедуру, только чтобы тебе было удобно глазеть и сравнивать с тем, что за тебя делает Delphi.
По-нашенски это звучит так:
если OpenDialog1.Выполнить то
начать
MediaPlayer1.ИмяФайла присвоить значение ИмяФайла из OpenDialog1.
MediaPlayer1.ОткрытьФайл
Кончить :)
Взгляни на код и эти строчки - если ты IBM-совместимый чел, то дополнительные объяснения тебе не понадобятся. Теперь можешь снова жать "F9", и твоя прога должна запуститься. Если не запустилась, то читай статью заново.
Попробуй нажать кнопку "Открыть". Перед тобой должно открыться стандартное окно открытия файла. Можешь открывать файлы: WAV, MID, AVI и другие мультимедийные примочки. Достаточно только иметь установленные соответствующие драйверы в системе. Все это после открытия можно просмотреть (прослушать) с помощью "MediaPlayer". И все это возможно благодаря "MMSystem" - все, что ты можешь прослушать стандартным вооружением окон, можно прослушать и через эту прогу.
И, наконец, улучшаем наш плеер
Чтобы продолжить, нужно вернуться к форме. Чтобы без проблем переключаться между формой и ее исходным текстом, используй пимпу F12.
Мы хотим сделать очень громкий плеер, поэтому добавим возможность изменения громкости. Для этого щелкни по закладке "Win32" на палитре компонентов и найди там компонент по имени "TrackBar". Установи два таких компонента на свою форму. У тебя должны получиться TrackBar1 и TrackBar2.
Теперь выдели любой из них и перейди в "ObjectInspector". Найди в нем строку "Orientation". Щелкни по ней, и перед тобой появится выпадающий список. Выбери в нем "trVertical". Теперь найди строку "Max" и измени хранящееся там значение (по умолчанию 10) на 255. После этого повтори те же операции со вторым TrackBar. У тебя должно получиться нечто, похожее на рисунок 7.
Теперь опять нужно выделить этот TrackBar. Перейди в "ObjectInspector" и щелкни по закладке "Events". Теперь дважды щелкни по строке "OnChange". Delphi опять создаст процедуру. Здесь ты должен написать следующее:
procedure TForm1.TrackBar1Change(Sender: TObject);
var LValue,RValue:Word;
begin
LValue:=$FF-TrackBar1.Position;
RValue:=$FF-TrackBar2.Position;
waveOutSetVolume(0, (RValue SHL 8)+LValue);
