bass.dll в windows 7

[Virus191288]

в общем написал мини прожку и в нее нужно воспроизведение звука вихнуть..... вначале заюзал обычный медиаплеер но к сожалению нужен эквалайзер(вся прога на этом основана) решил использовать bass.dll подключил басс длл написал код но почимуто все время появляется ошибка и нехочет воспроизводить....
вот код только плеера

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    FileOpenDialog1: TFileOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure PlayerPlayFile(const FileName: string);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  channel: HSTREAM;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if FileOpenDialog1.Execute then PlayerPlayFile(FileOpenDialog1.FileName);
//if OpenDialog1.Execute then begin
//PlayerPlayFile('D:\instell\delphi\testPlayer\1.mp3');
   //OpenDialog1.FileName
//end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if  not BASS_Init(-1, 44100, 0, Handle, nil) then
	  begin
		  BASS_Free();
		  Halt;
	  end;


end;

procedure TForm1.PlayerPlayFile(const FileName: string);
  var FFileName: PChar;
begin
  if not FileExists(FileName) then Exit;

  FFileName:= PChar(FileName);

  if Channel <> 0 then begin
    BASS_ChannelStop(Channel);
    BASS_StreamFree(Channel);
    channel:=0;
  end;

  channel:= Bass_streamCreateFile(False,FFileName,0,0,0);

  if channel = 0 then begin
  MessageBox(0,'Ошибка загрузки файла',0,MB_OK or MB_ICONSTOP);
  Exit;
  end;

  if not BASS_ChannelPlay(channel, False) then
  MessageBox(0,'Ошибка воспроизведения файла',0,MB_OK or MB_ICONSTOP);

end;

end.

ошибка выходит на этапе

  channel:= Bass_streamCreateFile(False,FFileName,0,0,0);

  if channel = 0 then begin
  MessageBox(0,'Ошибка загрузки файла',0,MB_OK or MB_ICONSTOP);
  Exit;
  end;

в чем может быть причина и что делать?

вот лог и исходник:

[dani92]

если тебе не плеер нужен, то используй MMSYSTEM, в фоном режиме воспроизводит звуки

[Virus191288]

dani92 я же написал вся программа будет построена на визуализации и как ты предлагаешь через MMSYSTEM сделать визуализацию?

[Virus191288]

нечего не понимаю..... поставил делфи 7(до этого 2009 и 2010 были) и вс заработало....

[dani92]

Сообщение от Virus191288

dani92 я же написал вся программа будет построена на визуализации и как ты предлагаешь через MMSYSTEM сделать визуализацию?

ты писал про эквалайзер

но к сожалению нужен эквалайзер(вся прога на этом основана)

нечего не понимаю..... поставил делфи 7(до этого 2009 и 2010 были) и вс заработало....

bass некорректно работает на этих версиях

[b2soft]

попробуй вместо channel:= Bass_streamCreateFile(False,FFileNa me,0,0,0)
написать
channel:= Bass_streamCreateFile(False,FFileNa me,0,0,BASS_UNICODE);

просто в новых версиях винды файл сохраняется в ЮНИКОДЕ попробуй, мне помогло

[b2soft]

тоже самое BASS_UNICODE нужно прописывать с Делфи 2009 в Делфи 7 такой флаг BASS'a не нужен

но для Delphi 2009 и 2010 нужно писать BASS_UNICODE

[SalasAndriy]

просто в новых версиях винды файл сохраняется в ЮНИКОДЕ попробуй, мне помогло

Флаг этот нужен потому, что Делфи 2009 и Делфи 2010 имеют полную поддержку юникода. и потому когда вы указываете

channel:= Bass_streamCreateFile(False,FFileName,0,0,0)

в FFileName хранится путь и имя файла в формате юникод... И потому нужно указать BASS чтобы он понял эту строчку... А не потому что файлы хранятся в юникоде.