[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? Уже долго мучаюсь ваш форум - моя последняя надежда