[ryderx34]

TBassContol - компонент для управления Bass.dll
Почти как TMediaPlayer, только невизуальный и ещё проще в использовании.
Умеет загружать плагины (Bass Add-ons), регулировать громкость, задавать позицию воспроизведения, имеет эквалайзер и несколько эффектов (хорус, эхо и т. д.).
Прилагается инструкция на русском языке.
Оставляйте отзывы, если понравится - буду развивать проект.

bass_control.zip

[urahara]

Код:

function TBassControl.SupportedFormats: string;
begin
  Result:='All supported formats |*.mp3;*.wav;*.ogg;*.aif';
  if FPlugIns.AAC then
    Result:=Result+';*.aac;*.mp4';
  if FPlugIns.WMA then
    Result:=Result+';*.wma';
  if FPlugIns.CDA then
    Result:=Result+';*.cda';
  if FPlugIns.FLAC then
    Result:=Result+';*.flac';
  if FPlugIns.AC3 then
    Result:=Result+';*.ac3';
  if FPlugIns.MPC then
    Result:=Result+';*.mpc';
end;

долго смеялся, не надо мне такого.

[ryderx34]

Сообщение от urahara

...
долго смеялся, не надо мне такого.

большая часть кода написана всего через 2 месяца после того как я впервые увидел Delphi...
Переписывать не стал, потому что это пробная версия, единственное предназначение которой - узнать нужен ли подобный компонент вообще.

[lmikle]

Да не, в некоторых вариантах это нормальный код.
Тут скорее вопрос что такое FPlugIns...

[ryderx34]

Сообщение от lmikle

. . .
Тут скорее вопрос что такое FPlugIns...

Код:

PLUGIN_FORMATS = record
    AAC: Boolean;
    // . . .
    MPC: Boolean;
  end;

[GrakovNe]

А как с помощью этого или как нибудь по другому реализовать поддержку таких форматов как: 3gp,amr,awb? Уже долго мучаюсь ваш форум - моя последняя надежда

[ryderx34]

Сообщение от GrakovNe

А как с помощью этого или как нибудь по другому реализовать поддержку таких форматов как: 3gp,amr,awb?

С помощью этого - никак, Bass не поддерживает эти форматы.

[Rumata]

ну а обновления компонента будут? мне кажется, ещё есть над чем работать

[ryderx34]

Работы действительно ещё много, т. к. я ещё толком ничего не делал, просто набросал небольшой примерчик. Сделать новую версию собираюсь уже давно, но пока не хватает времени.

[Rumata]

Сообщение от ryderx34

Работы действительно ещё много, т. к. я ещё толком ничего не делал, просто набросал небольшой примерчик. Сделать новую версию собираюсь уже давно, но пока не хватает времени.

буду ждать, это удобная штука если лень со всеми заморочками BASS париться. И новичкам может помочь в освоении данной библиотеки

[live_4_ever]

ryderx34
Добавь в свой компонент поддержку трекерной музыки.