BASS - O que é, como baixar e testar esta DLL de áudio em seus programas Delphi

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos verificar se a versão da bass.dll corresponde à versão contida
  // no Bass.pas (BASSVERSION = xxxx;)
  if HIWORD(BASS_GetVersion) <> BASSVERSION then
    begin
      // An incorrect version of BASS.DLL was loaded
      MessageBox(0, 'Uma versão incorreta da BASS.DLL foi carregada', 
        nil, MB_ICONERROR);
      Halt;
    end;

  // Initialize audio - default device, 44100hz, stereo, 16 bits
  // Vamos inicializar o áudio - dispositivo padrão, 44100hz, stereo, 16 bits
  if not BASS_Init(-1, 44100, 0, Handle, nil) then
    // Error initializing audio!
    Error('Houve um erro ao inicializar o áudio')
  else
    ShowMessage('Áudio inicializado com sucesso.');
end;

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

procedure TForm1.Button2Click(Sender: TObject);
var
  arquivo: String; // nome do arquivo MP3
  musica: HSAMPLE; // um handle para a amostra (sample)
  ch: HCHANNEL; // um handle para o canal de execução
begin
  if not OpenDialog1.Execute then
    Exit;

  // vamos carregar a música WAV, AIFF, MP3, MP2, MP1 ou OGG a ser executada
  arquivo := OpenDialog1.FileName;
  musica := BASS_SampleLoad(FALSE, PChar(arquivo), 0, 0, 3, 
    BASS_SAMPLE_OVER_POS);

  // vamos obter o canal de execução
  ch := BASS_SampleGetChannel(musica, False);

  // vamos centralizar o som (igual dos dois lados)
  BASS_ChannelSetAttribute(ch, BASS_ATTRIB_PAN, 0);

  // vamos definir o volume (0 = silêncio; 1 = volume total)
  BASS_ChannelSetAttribute(ch, BASS_ATTRIB_VOL, 1);

  if not BASS_ChannelPlay(ch, False) then
    // Error playing sample!
    Error('Erro ao executar a amostra!');
end;

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bass, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    procedure Error(msg: string);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Error(msg: string);
var
  s: string;
begin
  // Error code
  s := msg + #13#10 + '(Código de erro: ' + IntToStr(BASS_ErrorGetCode) + ')';
  MessageBox(Handle, PChar(s), nil, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos verificar se a versão da bass.dll corresponde à versão contida
  // no Bass.pas (BASSVERSION = xxxx;)
  if HIWORD(BASS_GetVersion) <> BASSVERSION then
    begin
      // An incorrect version of BASS.DLL was loaded
      MessageBox(0, 'Uma versão incorreta da BASS.DLL foi carregada', 
        nil, MB_ICONERROR);
      Halt;
    end;

  // Initialize audio - default device, 44100hz, stereo, 16 bits
  // Vamos inicializar o áudio - dispositivo padrão, 44100hz, stereo, 16 bits
  if not BASS_Init(-1, 44100, 0, Handle, nil) then
    // Error initializing audio!
    Error('Houve um erro ao inicializar o áudio')
  else
    ShowMessage('Áudio inicializado com sucesso.');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  arquivo: String; // nome do arquivo MP3
  musica: HSAMPLE; // um handle para a amostra (sample)
  ch: HCHANNEL; // um handle para o canal de execução
begin
  if not OpenDialog1.Execute then
    Exit;

  // vamos carregar a música WAV, AIFF, MP3, MP2, MP1 ou OGG a ser executada
  arquivo := OpenDialog1.FileName;
  musica := BASS_SampleLoad(FALSE, PChar(arquivo), 0, 0, 3, 
    BASS_SAMPLE_OVER_POS);

  // vamos obter o canal de execução
  ch := BASS_SampleGetChannel(musica, False);

  // vamos centralizar o som (igual dos dois lados)
  BASS_ChannelSetAttribute(ch, BASS_ATTRIB_PAN, 0);

  // vamos definir o volume (0 = silêncio; 1 = volume total)
  BASS_ChannelSetAttribute(ch, BASS_ATTRIB_VOL, 1);

  if not BASS_ChannelPlay(ch, False) then
    // Error playing sample!
    Error('Erro ao executar a amostra!');
end;

end.