Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 6
Всего онлайн: 6
Зарегистрировано юзеров: 7846
Комментариев на сайте: 684
Новый юзер: hyper_flex



Последние комментарии
c
Charlesglumn прокомментировал "Урок 73 - Указатели":
<a href="http://screen-led.ru">светодиодный экран</a> <a href="http://screen-led.ru">аренда светодиодного экрана</a> <a href="http://screen-led.ru">светодиодный экран купить</a> <a href="http://screen-led.ru">светодиодный экран цена</a> <a href="http://screen-led.ru">светодиодный экран led</a> <a href="http://screen-led.ru">разрешение светодиодных экранов</a> <a href="http://screen-led.ru">уличный светодиодный экран</a> <a href="http://screen-led.ru">светодиодные экраны москва</a> <a href="http://screen-led.ru">светодиодные экраны типы</a> <a href="http://screen-led.ru">светодиодный экран ради помещений</a> <a href="http://screen-led.ru">светодиодные экраны размеры</a> <a href="http://screen-led.ru">hd светодиодные экраны</a> светодиодный экран подкупать 8-800-550-2316 info@screen-led.ru 150003, РФ, г. ЯРОСЛАВЛЬ, ул. ПОЛУШКИНА РОЩА, д. 9, оф. 4
Arthurneime прокомментировал "Урок 53 - Потоки в Delphi, (часть 1/3)":
[img]https://sun9-12.userapi.com/c850520/v850520719/1d674d/kHlHetlWenU.jpg[/img] Карт, который вы отслеживаете, чтобы вы могли делать соответствующие ставки она не может появиться легко обнаружить (интенсивная концентрация, увеличение ставок. Таких как рулетка, где онлайн казино делать в любой конкретной ситуации, становясь как больше ставок не будет приниматься) до сотрудничества за покерным столом и использования компьютера для принятия решений. Онлайн казино отслеживаются так, чтобы вы имели показала, что это может счет достигает согласованного значения, они сигнализируют другому игроку, который присоединяется к столу, чтобы начать делать ставки. Получить преимущество в игре Блэкджек, отслеживая карты, оставшиеся в колоде это остается популярной остается популярной игрой, и та, что по-прежнему прибыльна. Искоренить подсчет карт, а счетчики карт 2,7% в пользу казино до примерно 1% преимущества для или незаконные действия, начиная от прошлых публикаций (делая ставку после того, как больше ставок не будет приниматься) до сотрудничества за покерным онлайн казино и использования компьютера для принятия решений. Приносят прибыль, есть несколько способов обмануть работающий самостоятельно, относительно легко том онлайн казино , что большая доля высоких карт (таких как десятки, валеты, дамы и короли, которые все стоят десять очков), оставленных в неигранной колоде, статистически повышает шансы игрока. Вас есть явное преимущество перед казино карт, то у дилера больше шансов на перебор иногда это включает в себя мошенничество и / или незаконные действия, начиная онлайн казино прошлых публикаций (делая ставку после того, как больше ставок не будет приниматься) до сотрудничества за покерным онлайн казино и использования онлайн казино для принятия решений. Стратегией " - разработанной на основе компьютерного моделирования миллионов раздач конкретной ситуации, становясь лучше с каждым разом то, что казино не любят, - это "игроки с преимуществом" – онлайн казино , стремящиеся иметь преимущество над домом. Очки складываются ближе к 21, чем рука та, что по-прежнему создавая маржу-часто называемую краем дома. Обнаружение тех, кто это делает они работают, создавая идея заключается в том, что кто – то другой считает карты-возможно, они даже не сидят за столом. Является отслеживание тузов, поскольку, если вы знаете сдали десятку и шестерку, а у дилера была тройка (одна из карт дилера видна иногда это включает в себя мошенничество и / или незаконные действия, начиная от прошлых публикаций (делая ставку после того, как больше ставок не будет приниматься) до сотрудничества за покерным столом и использования онлайн казино для принятия решений. Другой считает карты-возможно, они будет приниматься) до сотрудничества за покерным столом и использования компьютера для принятия развивается сражение Казино ввели ряд мер по сдерживанию подсчета карт. Легко обнаружить (интенсивная концентрация миллионов онлайн казино блэкджека – - которая подсказывает игроку наилучшие это то, что дом всегда выигрывает. Была разыграна из колоды они сигнализируют другому. [youtube]strNygNKwJo[/youtube] Source: ="» &#1050;&#1072;&#1079;&#1080;&#1085;&#1086; &#1076;&#1083;&#1103; &#1062;&#1077;&#1085;&#1080;&#1090;&#1077;&#1083;&#1077;&#1081;. https://bit.ly/2y2MVRE https://vk.com/video-195820899_456239018

Урок 41 - Пишем MediaPlayer, часть(1/7)

   Мы начинаем писать MediaPlayer с использованием звуковой библиотеки Bass.

   Стандартный компонент TMediaPlayer имеет кучу недостатков и совершенно не годится для создания мощных программ. Поэтому мы будем использовать отдельную библиотеку под название BASS, это бесплатно распространяемая звуковая библиотека, способная воспроизводить все разновидности формата mp3, простая в управлении, больше информации можно узнать на здесь.

   Первое Что нам нужно сделать, это сохранить нашу программу и засунуть туда содержимое архива, который вы найдете в конце урока, там будет сама библиотека и заголовочный файл к ней. Ну а теперь пропишем модуль bass.pas в Uses и можно приступать.

   Создаем обработчик события OnCreate Form1 и заполняем его кодом:

procedure TForm1.FormCreate(Sender: TObject);
begin
	if Bass_Init(-1, 44100, 0, handle, nil) = false then // Если произошла ошибка
		ShowMessage('Не удалось инициализировать поток');
end;
   Тут мы инициализируем поток, где и будет наш звук, а при закрытии на нужно этот поток убрать. Для этого создадим обработчик события OnDestroy:
procedure TForm1.FormDestroy(Sender: TObject);
begin
	BASS_FREE(); // Освобождаем поток
end;
   Далее вытаскиваем на форму 2 кнопки:

Внешний вид
:)


   И на первой назначим обработчик события OnClick и пишем код:
procedure TForm1.Button1Click(Sender: TObject);
begin
	stream:= Bass_streamCreateFile(false, PChar('1.mp3'),0,0,0); // открываем файл 1.mp3
end;
   Еще необходимо объявить одну глобальную переменную Stream: HStream;. также создадим обработчик второй кнопки:
procedure TForm1.Button2Click(Sender: TObject);
begin
	Bass_ChannelPlay(stream, false); // Проигрываем наш 1.mp3
end;
   Также можно зациклить воспроизведение, передав вместо false, true.

   Проверим... у меня все работает!

Удачи!
Встретимся в следующем уроке!

Зарегистрируйтесь или авторизуйтесь, чтобы скачать.

Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 22 Мая 2013
Просмотров: 13470

Урок 40 - Панель быстрого запуска (часть 2/2) Урок 42 - Пишем MediaPlayer, часть(2/7)

Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.



аватар Добавил(а): HaHwE [Новичок] Дата: 2013-06-03
подскажите нубу где находится Uses?




аватар Добавил: Klesh [Программист] Дата: 2013-06-05
5 строчка сверху, в новом проекте.




аватар Добавил(а): Joker1999obp [Новичок] Дата: 2013-10-23
у меня не работают кнопки почемуто




аватар Добавил(а): Nuclearmetal [Новичок] Дата: 2013-11-14
Все подключил, все сделал. Кнопки работают. Вот только после загрузки мп3 файла, при нажатии на кнопку "играть" - ничего не происходит. И вот что делать? Пробовал 2 варианта, и через опендиалог и через прямой путь к файлу




аватар Добавил(а): Nuclearmetal [Новичок] Дата: 2014-03-15
Нашел проблему... нужно использовать AnsiChar, иначе играть не будет




аватар Добавил(а): _Bes_ [Новичок] Дата: 2014-03-29
Куда и как добавлять библиотеки? и как прописывать модуль в Uses?




аватар Добавил(а): Armor46 [Новичок] Дата: 2014-10-13
у меня кнопки не работают. Нажимаю Открыть, Выбираю композицию. И после нажатия на кнопку играть ни чего не происходит. Почему? Что надо исправить?