{ "version": "https:\/\/jsonfeed.org\/version\/1.1", "title": "В наушниках по жизни: заметки с тегом KTeam Radio", "_rss_description": "Здесь я пишу свои идеи, мысли, описываю события своей жизни и просто делаю личные и рабочие заметки. «А Вы что, собираетесь жить вечно?»", "_rss_language": "ru", "_itunes_email": "", "_itunes_categories_xml": "", "_itunes_image": "", "_itunes_explicit": "", "home_page_url": "https:\/\/alexbirukov.ru\/?go=tags\/kteam-radio\/", "feed_url": "https:\/\/alexbirukov.ru\/?go=tags%2Fkteam-radio%2Fjson%2F", "icon": "https:\/\/alexbirukov.ru\/pictures\/userpic\/userpic@2x.jpg?1683051473", "authors": [ { "name": "Бирюков Александр", "url": "https:\/\/alexbirukov.ru\/", "avatar": "https:\/\/alexbirukov.ru\/pictures\/userpic\/userpic@2x.jpg?1683051473" } ], "items": [ { "id": "316", "url": "https:\/\/alexbirukov.ru\/?go=all\/udio-pleer-na-delphi-dlya-android-code-gear-rad-studio-xe7\/", "title": "Аудио-плеер на Delphi для Android с применением библиотеки BASS.", "content_html": "

В середине прошлого года появилась необходимость написания простого приложения для мобильных платформ Android и iOS. Первым рабочим проектом стал KTeam<\/a>. После его успешного запуска, появилась необходимость написания аудио-плеера, способного воспроизводить потоковое вещание интернет радиостанций.<\/p>\n

И так, сегодня я подробно опишу, как создать простой плеер потокового вещания.<\/p>\n

Для работы нам понадобятся среда программирования Code Gear RAD Studio XE7, работать я рекомендую именно в данной версии программы, т. к. в используемых библиотеках, имеются некоторые не стыковки в работе с предыдущими версиями.<\/p>\n

По причине того, что встроенных средств проигрывания интернет потока не имеется, мы воспользуемся замечательной библиотекой BASS, для написания приложения для Android (для iOS следует использовать другие компоненты).<\/p>\n

Для корректной работы библиотеки BASS я рекомендую так же установить компоненты DPF Android Native Components<\/a>, я в своём примере буду использовать версию 2.8.6.<\/p>\n

Начало<\/h2>\n

Ну я думаю процесс установки Code Gear RAD Studio XE7 описывать не стоит, поэтому сразу переходим к установке дополнительных компонентов и библиотек, потому что именно эта часть вызывает наибольшие проблемы, и именно поэтому данный этап я опишу наиболее подробно.<\/p>\n

BASS<\/h2>\n

Идём на официальный сайт un4seen.com<\/a> библиотеки, нажимаем в левом меню на ссылку BASS<\/a> и скачиваем там последнюю версию для Android<\/a>. На момент написания данной статьи на сайте опубликована версия 2.4 от 13 марта 2015 года. Прямая ссылка<\/a> на скачивание библиотеки с официального сайта. Ссылка на скачивание с моего сайта<\/a>.<\/p>\n

\n
\n\"Сайт\n\"Ссылки\n<\/div>\n<\/div>\n

Примечание:<\/b> я рекомендую использовать именно данную версию библиотеки, потому что предыдущие версии не работают с XE7, и при инициализации библиотеки появляется ошибка.<\/i><\/p>\n

BASSFunctions<\/h2>\n

Для корректной работы с библиотекой, нам потребуется ещё один дополнительный файл, это BASSFunctions.pas<\/a>. Данный файл опубликовал на форуме пользователь с ником 3delite.Ссылка<\/a> на оригинальный файл.<\/p>\n

DPF Android Native Components<\/h2>\n

Для корректной работы библиотек BASS, часто требуется установка компонентов DPF Android Native Components, т. к. в их составе имеется компонент для работы с аудио, без которого компилятор будет просто выдавать ошибку.<\/p>\n

Идём на официальный сайт<\/a> и скачиваем последнюю версию компонентов. Или вы можете скачать версию 2.8.6<\/a> с моего сайта.<\/p>\n

Поехали<\/h2>\n

После того, как мы скачали все необходимые дополнительные файлы, приступаем к установке компонентов.<\/p>\n

Начнём с DPF Android Native Components. Я рекомендую (во избежании дополнительных проблем с подключением) распаковать файлы в папку DPF.Android.Native.Components.v2.8.6 в корень диска C.<\/p>\n

\n\"Распаковываем\n<\/div>\n

В каталоге с файлами, имеется файл Install.txt. У кого хорошо с английским, могут сделать всё по инструкции описанной в файле, для тех кто в школе учил немецкий, я опишу процесс установки компонентов подробно.<\/p>\n

Запускаем Codegear RAD Studio. Далее в верхнем меню открываем Tools->Options->Delphi Options->Library.<\/p>\n

\n
\n\"\"\n\"\"\n<\/div>\n<\/div>\n

В выпадающем списке справа выбираем платформу «32-bit Windows» и добавляем в раздел «Library path» путь к нашим компонентам.<\/p>\n

\n\"\"\n<\/div>\n

Теперь то же самое проделываем для платформы «Android».<\/p>\n

\n\"\"\n<\/div>\n

Теперь нам потребуется скомпилировать и установить компоненты. Для этого нажимаем File -> Open Project. Открываем проект из папки компонентов, соответствующий вашей среде программирования.<\/p>\n

\n
\n\"Открываем\n\"DPFAndroidPackagesXE7.dproj\"\n<\/div>\n<\/div>\n

Далее нам надо скомпилировать проект и установить полученные компоненты.<\/p>\n

Нажимаем правой кнопкой на проекте в инспекторе проекта и выбираем пункт «Build»<\/b>, начнётся построение проекта.<\/p>\n

\n\"Выполняем\n<\/div>\n

После завершение построение, опять нажимаем правой кнопкой на проекте в инспекторе и выбираем пункт «Install»<\/b>.<\/p>\n

Компоненты готовы к работе. Приступим к созданию проекта.<\/p>\n

Я набросал уже небольшой проект с парой кнопок для запуска и остановки проигрывателя и картинкой для привлечения внимания :)<\/p>\n

\n\"Пробный\n<\/div>\n

Для работы в библиотекой BASS, нам потребуется в каталог с проектом добавить файл BASSFunctions.pas и указать его в разделе uses<\/b>.<\/p>\n

\n
\n\"Добавляем\n\"Добавляем\n<\/div>\n<\/div>\n

Теперь собственно сама библиотека libbass.so<\/b>. Нам необходимо добавить данную библиотек в наш проект, иначе ничего не заработает.<\/p>\n

Открываем архив bass24-android.zip и видим... Множество папок, нас интересует на данный момент только одна libs<\/b>. Распаковываем её в каталог нашего проекта.<\/p>\n

\n\"\"\n<\/div>\n

В каталоге libs, есть три подкаталога, нас интересуют 2 из них:<\/p>\n

    \n
  • armeabi-v7a<\/li>\n
  • armeabi<\/li>\n<\/ul>\n

    В них находятся два разных файла libbass.so.<\/p>\n

    После того, как мы скопировали данный каталог в каталог проекта, снова возвращаемся к среде программирования и открываем раздел Deployment<\/b>, для добавления наших библиотек в программу.<\/p>\n

    \n
    \n\"Deployment\"\n\"Добавляем\n\"\"\n\"\"\n<\/div>\n<\/div>\n

    После того, как мы добавили библиотеки в наш проект, надо поменять параметр «Remote Path» для каждой библиотеки соответственно на «library\\lib\\armeabi<\/b>» и на «library\\lib\\armeabi-v7a<\/b>». Данную процедуру надо проделать для обеих конфигураций «Debug» и «Release».<\/p>\n

    \n
    \n\"Библиотеки\"\n\"Конфигурации\n<\/div>\n<\/div>\n

    Ну что, вот всё и готово к началу написания кода, а код на самом деле достаточно простой.<\/p>\n

    Объявляем глобальную переменную.<\/p>\n

    var\n  uStream:HSTREAM;<\/code><\/pre>
    В момент создания формы инициализируем библиотеку.<\/p>\n
    procedure TmainForm.FormCreate(Sender: TObject);\nbegin\n  \/\/ Загружаем и инициализируем библиотеку\n  Loadbass;\n  BASS_Init(-1,44100,0,Handle,nil);\nend;<\/code><\/pre>
    На кнопку «Играть» вещаем обработчик:<\/p>\n
    procedure TmainForm.mainToolbarBarItems1Click(Sender: TObject);\nvar\n  otStream : TStringStream;\n  Result : integer;\nbegin\n  try\n\n    \/\/ Включаем индикатор загрузки контента\n    ind1.Enabled := True;\n    ind1.Visible := True;\n\n    \/\/ Код проигрывателя\n    Result := 0;\n\n    \/\/ Закрываем старый поток\n    BASS_StreamFree(uStream);\n\n    \/\/ Создаём новый поток\n    uStream :=\n      BASS_StreamCreateURL(PChar('http:\/\/motochelyabinsk.ru:8000\/play'),0,BASS_STREAM_STATUS or BASS_UNICODE,nil,nil);\n\n    \/\/ Включаем проигрывание\n    BASS_ChannelPlay(uStream, True);\n\n    \/\/ Получаем и выводим название текущего трека из скрипта на сайте\n    \/\/ Создаём поток UTF8\n    otStream := TStringStream.Create('', CP_UTF8);\n    \/\/ Делаем запрос к скрипту сайта\n    IdHTTP1.Get('motochelyabinsk.ru\/current-track.php', otStream);\n    IdHTTP1.Disconnect;\n    \/\/ Записываем название трека в Label\n    Label1.Text := otStream.DataString;\n    \/\/ Очищаем переменную потока\n    otStream.Free;\n\n    \/\/ Запустить таймер отслеживания изменений названия трека\n    Timer1.Enabled := True;\n\n    \/\/ Включаем и отключаем кнопки\n    btn1.Enabled := False;\n    btn2.Enabled := True;\n\n  except on E: Exception do\n    begin\n      ShowMessage('Ошибка доступа к сети!');\n    end;\n  end;\n\nend;<\/code><\/pre>
    Ну вот в общем самый простой и работающий пример создания проигрывателя интернет радиостанций.
    \nP.S. Чуть позже, выложу готовый пример данного приложения.<\/p>\n",
            "date_published": "2015-03-24T09:48:04+05:00",
            "date_modified": "2021-01-22T23:57:04+05:00",
            "tags": [
                "Android",
                "BASS",
                "Delphi",
                "KTeam",
                "KTeam Radio",
                "libbass",
                "код",
                "Олнайн",
                "программирование",
                "программы",
                "Радио"
            ],
            "image": "https:\/\/alexbirukov.ru\/pictures\/-2015-03-24-09.25.46.png",
            "_date_published_rfc2822": "Tue, 24 Mar 2015 09:48:04 +0500",
            "_rss_guid_is_permalink": "false",
            "_rss_guid": "316",
            "_e2_data": {
                "is_favourite": false,
                "links_required": [
                    "jquery\/jquery.js",
                    "fotorama\/fotorama.css",
                    "fotorama\/fotorama.js",
                    "highlight\/highlight.js",
                    "highlight\/highlight.css"
                ],
                "og_images": [
                    "https:\/\/alexbirukov.ru\/pictures\/-2015-03-24-09.25.46.png",
                    "https:\/\/alexbirukov.ru\/pictures\/-2015-03-24-09.29.03.png",
                    "https:\/\/alexbirukov.ru\/pictures\/Windows-7-x64-Delphi-XE7-2015-03-24-09-55-10.png",
                    "https:\/\/alexbirukov.ru\/pictures\/Windows-7-x64-Delphi-XE7-2015-03-24-09-58-33.png",
                    "https:\/\/alexbirukov.ru\/pictures\/Windows-7-x64-Delphi-XE7-2015-03-24-10-00-13.png",
                    "https:\/\/alexbirukov.ru\/pictures\/Windows-7-x64-Delphi-XE7-2015-03-24-10-04-06.png",
                    "https:\/\/alexbirukov.ru\/pictures\/Windows-7-x64-Delphi-XE7-2015-03-24-10-04-55.png",
                    "https:\/\/alexbirukov.ru\/pictures\/Windows-7-x64-Delphi-XE7-2015-03-24-10-06-17.png",
                    "https:\/\/alexbirukov.ru\/pictures\/Windows-7-x64-Delphi-XE7-2015-03-24-10-06-31.png",
                    "https:\/\/alexbirukov.ru\/pictures\/Windows-7-x64-Delphi-XE7-2015-03-24-10-13-23.png",
                    "https:\/\/alexbirukov.ru\/pictures\/Windows-7-x64-Delphi-XE7-2015-03-24-10-24-28.png",
                    "https:\/\/alexbirukov.ru\/pictures\/Windows-7-x64-Delphi-XE7-2015-03-24-10-21-50.png",
                    "https:\/\/alexbirukov.ru\/pictures\/Windows-7-x64-Delphi-XE7-2015-03-24-10-22-52.png",
                    "https:\/\/alexbirukov.ru\/pictures\/-2015-03-24-10.29.21.png",
                    "https:\/\/alexbirukov.ru\/pictures\/Windows-7-x64-Delphi-XE7-2015-03-24-10-36-12.png",
                    "https:\/\/alexbirukov.ru\/pictures\/Windows-7-x64-Delphi-XE7-2015-03-24-10-37-49.png",
                    "https:\/\/alexbirukov.ru\/pictures\/Windows-7-x64-Delphi-XE7-2015-03-24-10-38-56.png",
                    "https:\/\/alexbirukov.ru\/pictures\/Windows-7-x64-Delphi-XE7-2015-03-24-10-39-15.png",
                    "https:\/\/alexbirukov.ru\/pictures\/Windows-7-x64-Delphi-XE7-2015-03-24-10-43-47.png",
                    "https:\/\/alexbirukov.ru\/pictures\/Windows-7-x64-Delphi-XE7-2015-03-24-10-42-46.png"
                ]
            }
        }
    ],
    "_e2_version": 4134,
    "_e2_ua_string": "Aegea 11.3 (v4134)"
}