Bass.dll BASS_ERROR_FILEOPEN

@DiXel · Регистрация: 08.06.2012

Author24 — интернет-сервис помощи студентам

я написал вот такую процедуру:

Delphi

if not (bass_init(-1, 44100, 0, handle, 0)) then showmessage('Ошибка инициализации bass.dll!');
stream:=bass_streamcreatefile(false, pchar('2.mp3'), 0, 0, 0);
if stream=0 then showmessage(inttostr(bass_errorgetcode));
bass_channelplay(stream, true);

Выводится мессейдж с кодом 2(BASS_ERROR_FILEOPEN)
Файл прописан правильно, винампом открывается.
В чём же дело?
версия басса - 2 4
дельфи - 2009 арчитект

@volvo · 04.07.2012, 18:50

Дельфи 2009 по умолчанию работает с Юникодом, поэтому:

Delphi

1	stream:=bass_streamcreatefile(false, pchar('2.mp3'), 0, 0, BASS_UNICODE);

@Alex_pac · 05.07.2012, 01:12

Delphi

var bass: TBassSimple;
 
{*****}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  bass:=TBassSimple.Create(Handle);
  OpenDialog1.Filter:=Bass_open_dialog_files;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  //open
  if OpenDialog1.Execute then begin
    bass.OpenFile(OpenDialog1.FileName);
    button2.Click; // play
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  //play
  bass.Play;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  // stop
  bass.Stop;
end;

http://jqbook.narod.ru/delphi/bass.htm << - модуль BassSimple

BassSimple 1.4 добавлена поддержка Юникодных версий Delphi. Проверено на Delphi XE 15

	05.07.2012, 01:12