Delphi：加载 BASS DLL 并播放 MP3

Question

我想从某处手动加载bass dll，然后播放一个mp3 文件。怎么做？德尔福 XE2。

我的尝试不起作用：

type
  QWORD = Int64;
  HSTREAM = LongWord;
type
  TBASS_ChannelPlay = function(handle: HSTREAM; restart: LongBool): LongBool; stdcall;

type
  TBASS_StreamCreateFile = function(mem: LongBool; f: Pointer;
    offset, length: QWORD; flags: LongWord): HSTREAM; stdcall;

procedure PlayMP3(FileName: string);
var
  BASS_ChannelPlay: TBASS_ChannelPlay;
  BASS_StreamCreateFile: TBASS_StreamCreateFile;
  DllHandle: THandle;
  MP3Stream: HSTREAM;
  DllPath:string;
  pFileName:pchar;
begin
  DllPath:= 'c:\dll\bass.dll';
  DllHandle := LoadLibrary(pchar(DLLPath));
  try
    if DllHandle = 0 then
      Exit;
    @BASS_StreamCreateFile := GetProcAddress(DllHandle,
      'BASS_StreamCreateFile');
    if @BASS_StreamCreateFile <> nil then
    begin
      pfilename:=pchar(FileName);
      MP3Stream := BASS_StreamCreateFile(false, Pfilename, 0, 0, 0);
      if MP3Stream <> 0 then
      begin
        @BASS_ChannelPlay := GetProcAddress(DllHandle, 'BASS_ChannelPlay');
        if @BASS_ChannelPlay <> nil then
          BASS_ChannelPlay(MP3Stream,false);
      end;
    end;
  finally
    FreeLibrary(DllHandle);
  end;
end;

但是 BASS_StreamCreateFile 一直返回 0 :(

他们的示例（Bass Test）和 Bass.pas 中的代码：

type
  DWORD = LongWord;
  BOOL = LongBool;
  QWORD = Int64;
  HSTREAM = DWORD;

function BASS_StreamCreateFile(mem: BOOL; f: Pointer; offset, length: QWORD; flags: DWORD): HSTREAM; {$IFDEF WIN32}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll;

strs: array[0..128] of HSTREAM;

procedure TForm1.Button15Click(Sender: TObject);
var
    f: PChar;
begin
    if not OpenDialog2.Execute then Exit;
    f := PChar(OpenDialog2.FileName);
    strs[strc] := BASS_StreamCreateFile(False, f, 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
    if strs[strc] <> 0 then
    begin
        ListBox3.Items.Add(OpenDialog2.FileName);
        Inc(strc);
    end
    else
        Error('Error creating stream!');
end;

添加

  MP3Stream := BASS_StreamCreateFile(false, Pfilename, 0, 0, 0);
  ShowMessage(SysErrorMessage(GetLastError));

GetLastError 没有显示任何错误！

添加

还有 BASS 2.4 Delphi 单元（动态）。

上面写着：

如何安装 将 DYNAMIC_BASS.PAS 复制到 \LIB 的子目录 您的 Delphi 路径或您的项目目录调用 Load_BASSDLL（例如在 FormCreate) 在使用任何功能之前加载 BASS，以及
Unload_BASSDLL（例如在 FormDestory 中）在您完成后将其卸载。

注意：Delphi 2009 用户应使用 BASS_UNICODE 标志，其中 可能

我愿意：

 if Load_BASSDLL(DllPath) then
  begin
  FileName:='C:\Users\V\Desktop\cmd.mp3';
  MP3Stream:=BASS_StreamCreateFile(False, pchar(FileName), 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
    if MP3Stream <> 0 then
     BASS_ChannelPlay(MP3Stream, False);
     Unload_BASSDLL;
  end;

还是不行:(

补充：

如果这样做

BASS_Init(-1, 44100, 0, Form1.Handle, nil);

然后BASS_ChannelPlay(MP3Stream, False) 返回 true 但我没有听到声音:(

Answer 1

您错过了对BASS_Init 的呼叫。来自您在FormCreate 事件中引用的同一个演示：

// Initialize audio - default device, 44100hz, stereo, 16 bits
if not BASS_Init(-1, 44100, 0, Handle, nil) then
  Error('Error initializing audio!'); 

另外，看看演示源的调用：

BASS_StreamCreateFile(False, f, 0, 0, 
 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});

注意最后一个参数会发生什么？ or BASS_UNICODE 在 D2009 及更高版本上是必需的，除非您使用 PAnsiChar 而不是 PChar； Delphi默认的字符串类型是UnicodeString，默认的PChar是PWideChar。

您可以将它与{$IFDEF UNICODE} 一起使用，也可以不使用它； Delphi 定义了UNICODE，因此如果您使用它，您的代码也将向后兼容早期版本的 Delphi（D2009 之前）。

您还应该查看Bass\Delphi\dynamic 文件夹中的dynamic_bass.pas。它具有动态加载库和检索所有函数的代码；如果你不想直接使用它，至少你可以从那里复制你需要的函数定义和动态加载代码。

Answer 2

建议 - 只是不要手动加载 .dll。忘掉“LoadDll”，尤其忘掉那些邋遢的低级 Win3.0 时代的“GetProcAddress()”废话。

只需声明一个外部，就像工作中的 Bass 示例代码成功所做的那样：

function BASS_StreamCreateFile(
           mem: BOOL; 
           f: Pointer; 
           offset, length: QWORD; 
           flags: DWORD): HSTREAM; 
{$IFDEF WIN32}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll;

PS： 如果你真的、真的、真的坚持LoadDll()和朋友，那么：

1. 记住 Delphi XE 字符串现在是 16 位 Unicode

2. 检查 GetLastError () 以确定 为什么 LoadDll 返回了一个空句柄。

PPS：

• http://docwiki.embarcadero.com/RADStudio/en/Libraries_and_Packages

Answer 3

这是一个使用 bass.dll 的示例 http://delphimagic.blogspot.com.es/2013/05/escuchar-la-radio-por-streaming.html