Delphi: загрузите BASS DLL и воспроизводите MP3 - PullRequest
Новая
       27

Delphi: загрузите BASS DLL и воспроизводите MP3

6 голосов
/ 23 января 2012

Я хочу загрузить откуда-нибудь бас dll вручную, а затем воспроизвести mp3-файл. Как это сделать? Delphi 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 (динамический).

Написано:

Как установить Copy DYNAMIC_BASS.PAS в подкаталог \ LIB ваш Delphi-путь или каталог вашего проекта Call 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) возвращает истину, но я не слышу звук: (

Ответы [ 3 ]

6 голосов
/ 23 января 2012

Вы пропускаете звонок на 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).

Вы также должны посмотреть на dynamic_bass.pas в папке Bass\Delphi\dynamic. Он имеет код для динамической загрузки библиотеки и извлечения всех функций; если вы не хотите использовать его напрямую, по крайней мере вы можете скопировать определения функций и динамический код загрузки, которые вам нужны, вместо этого.

2 голосов
/ 23 января 2012

Предложение - просто не загружайте .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:

1 голос
/ 22 мая 2013

Вот пример использования bass.dll http://delphimagic.blogspot.com.es/2013/05/escuchar-la-radio-por-streaming.html

...