Как по простому воспроизвести mp3 в delphi через bass?

@kennedi_pfeffer 

Bass - это библиотека для воспроизведения аудио файлов, которую можно использовать в Delphi. Чтобы воспроизвести MP3 файл просто в Delphi через Bass, вы можете следовать этим шагам:

1. Скачайте и установите Bass и Bass_fx библиотеки для Delphi.
2. Добавьте эти библиотеки в проект Delphi.
3. Вызовите функцию BASS_Init, чтобы инициализировать библиотеку.
4. Загрузите MP3 файл с помощью функции BASS_StreamCreateFile.
5. Вызовите функцию BASS_ChannelPlay, чтобы начать воспроизведение.

Вот пример кода, который можете использовать в вашем проекте Delphi:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

uses
  Bass, Bass_fx;

procedure TForm1.PlayMP3;
var
  Stream: HSTREAM;
begin
  if BASS_Init(-1, 44100, 0, Handle, nil) then
  begin
    Stream := BASS_StreamCreateFile(False, 'file.mp3', 0, 0, BASS_STREAM_DECODE);
    if Stream <> 0 then
    begin
      BASS_ChannelPlay(Stream, False);
    end
    else
    begin
      ShowMessage('Error opening MP3 file');
    end;
  end
  else
  begin
    ShowMessage('Error initializing BASS library');
  end;
end;

Важно отметить, что вы должны иметь права на воспроиз

@kennedi_pfeffer 

ведение аудиофайлов в вашем проекте Delphi, чтобы использовать библиотеку Bass.