Я хочу загрузить откуда-нибудь вручную bass 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 (динамический).
Это написано:
Как установить Скопируйте DYNAMIC_BASS.PAS в подкаталог \ LIB вашего пути Delphi или каталога проекта. Вызовите Load_BASSDLL (например, в FormCreate), чтобы загрузить BASS перед использованием каких-либо функций, и
Unload_BASSDLL (например, в FormDestory), чтобы выгрузить его когда вы закончите.ПРИМЕЧАНИЕ. Пользователи Delphi 2009 должны по возможности использовать флаг BASS_UNICODE.
I do:
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;
Все равно не работает :(
Добавлен:
If to do
BASS_Init(-1, 44100, 0, Form1.Handle, nil);
то BASS_ChannelPlay(MP3Stream, False)
возвращает истину, но я не слышу звука :(
dynamic_bass.pas
, особенно на код дляLoad_BASSDLL
, он НЕ вызываетBASS_Init
. Он просто загружает библиотеку и выполняет всеGetProcAddress
вызовы. - person Ken White   schedule 23.01.2012