Использование BASS в FMX

[To_LED]

Народ помогите очень срочно нужно перевести один проект на FMX для андроида может кто нибудь показать пример использования библиотеки bass в delphi xe 8 главная проблема у меня сейчас это добавление самой библиотеки путь прописываю в Library в папку lib кидаю bass.pas но все равно в Uses когда пишу bass ругается пишу bassfunctions ругается что я не так делаю помогите народ

[MAD_EVAL]

Добрый день!

Вот сайтик - смотрите http://www.un4seen.com/

Ещё читайте тут http://alexbirukov.ru/?go=all/udio-pleer-na-delphi-dlya-android-code-gear-rad-studio-xe7/

Тут http://www.fmxexpress.com/use-bass-audio-library-in-you-delphi-xe5-firemonkey-apps-on-android/

[To_LED]

Огромное человеческое спасибо заработало 

правда под винду не большие проблемы 

[To_LED]

Может кому пригодится https://github.com/ersanyakit/FMX.Radio

[alexbirukov]

Жаль нет библиотеки для работы в iOS, надо будет выложить. Смотрю моя статья про Андройд промелькнула.

[Rusland]

Может кому пригодится https://github.com/ersanyakit/FMX.Radio

Если нажать на Pause, а потом на Play, то загрузка начинается с нуля

[To_LED]

 

Может кому пригодится https://github.com/ersanyakit/FMX.Radio

Если нажать на Pause, а потом на Play, то загрузка начинается с нуля

 

По моему так и должно быть вот код из unit FMX.Radio.Windows;

procedure TFMXPlatformRadio.Pause;
begin
  if FActiveChannel<>0
    then begin
          BASS_ChannelStop(FActiveChannel);
         end;
end;

Изменено 20 декабря, 2015 пользователем To_LED

[To_LED]

Жаль нет библиотеки для работы в iOS, надо будет выложить. Смотрю моя статья про Андройд промелькнула.

А ваша статья мне очень помогла в добавлении библиотеки огромное вам спасибо

[To_LED]

 

Может кому пригодится https://github.com/ersanyakit/FMX.Radio

Если нажать на Pause, а потом на Play, то загрузка начинается с нуля

 

А у вас получается регулировать громкость? в Windows

Изменено 21 декабря, 2015 пользователем To_LED

[Rusland]

To_LED, запускал только из под Android, поэтому не подскажу.
 
Проверил. Нет, звук в Windows не регулируется. 

procedure TFMXPlatformRadio.SetVolume(const AValue:Single);
begin
//
end;

^^^ это как понять?  (в FMX.Radio.Windows)
 
Видимо надо как-то так менять BASS_ChannelSetAttribute(stream, BASS_ATTRIB_VOL, vol/100);
 
В общем вот так пропишите в FMX.Radio.Windows и звук будет нормально меняться в Виндоуз.

procedure TFMXPlatformRadio.SetVolume(const AValue:Single);
begin
  BASS_ChannelSetAttribute(FActiveChannel, BASS_ATTRIB_VOL, AValue/100);
end;

Ну и вдогонку измените определение уровня громкости

function TFMXPlatformRadio.GetVolume: Single;
var
  AValue:Float;
begin
  if BASS_ChannelGetAttribute(FActiveChannel, BASS_ATTRIB_VOL, AValue) then
    Result := AValue;
end;

использование в программе:

procedure TForm1.Button3Click(Sender: TObject);
begin
    if Assigned(FRadyo) then
    begin
      LabVolume.Text:=(FRadyo.GetVolume()*100).ToString;
    end;
end;

Ждем код для iOS от alexbirukov   

Изменено 22 декабря, 2015 пользователем Rusland

[alexbirukov]

Ждем код для iOS от alexbirukov   

 

Да, на днях выложу код проекта под iOS, там свои тоже заморочки, но работает.

[alexbirukov]

Наконец-то у меня дошли руки дописать статью про использование Bass на iOS.

[Rusland]

alexbirukov, спасибо за статью. Можно ли отказаться от сторонних библиотек DPF iOS Native Components?

Изменено 6 января, 2016 пользователем Rusland

[alexbirukov]

alexbirukov, спасибо за статью. Можно ли отказаться от сторонних библиотек DPF iOS Native Components?

 

PS. ваша тема задвоилась

Сторонние компоненты, как таковые, не используются, с их помощью подтягивается фреймворк Audiotoolbox, без него проект не собирается и выдаёт ошибку. Установка компонентов - самый просто способ подключения фреймворка. К сожалению других путей я пока не нашёл (да в общем-то и не особо искал). Если кто-то знает более элегантное решение, с радостью опробую и напишу в статье.

 

Статья не задвоилась, там две разные статьи, одна для iOS, вторая для Android.

[Rusland]

alexbirukov, понятно

Изменено 6 января, 2016 пользователем Rusland