Кранты соседям, или ТВОЙ собственный мега-плеер

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

Назад на стр. 004-094-1  Содержание  Вперед на стр. 004-094-3

загрузка...
Cпец Хакер #075Cпец Хакер #074Cпец Хакер #073Cпец Хакер #072Cпец Хакер #071Cпец Хакер #070Cпец Хакер #069Cпец Хакер #068Cпец Хакер #067Cпец Хакер #066Cпец Хакер #065Cпец Хакер #064Cпец Хакер #063Cпец Хакер #062Cпец Хакер #061Cпец Хакер #060Cпец Хакер #059Cпец Хакер #058Cпец Хакер #057Cпец Хакер #056Cпец Хакер #055Cпец Хакер #054Cпец Хакер #053Cпец Хакер #052Cпец Хакер #051Cпец Хакер #050Cпец Хакер #049Cпец Хакер #048Cпец Хакер #047Cпец Хакер #046Cпец Хакер #045Cпец Хакер #044Cпец Хакер #043Cпец Хакер #042Cпец Хакер #041Cпец Хакер #040Cпец Хакер #039Cпец Хакер #038Cпец Хакер #037Cпец Хакер #036Cпец Хакер #035Cпец Хакер #034Cпец Хакер #033Cпец Хакер #032Cпец Хакер #031Cпец Хакер #030Cпец Хакер #029Cпец Хакер #028Cпец Хакер #027Cпец Хакер #026Cпец Хакер #025Cпец Хакер #024Cпец Хакер #023Cпец Хакер #022Cпец Хакер #021Cпец Хакер #020Cпец Хакер #019Cпец Хакер #018Cпец Хакер #017Cпец Хакер #016Cпец Хакер #015Cпец Хакер #014Cпец Хакер #013Cпец Хакер #012Cпец Хакер #011Cпец Хакер #010Cпец Хакер #009Cпец Хакер #008Cпец Хакер #007Cпец Хакер #006Cпец Хакер #005Cпец Хакер #004Cпец Хакер #003Cпец Хакер #002Cпец Хакер #001