Bass.Dll в Delphi XE не работает.

[werrey]

Здравствуйте.
Подскажите пожалуйста, почему не работает звук Bass.Dll в Delphi XE?
Если компилировать в Delphi 7 , то все нормально работает, а если компилировать в Delphi XE, то звука нет, и ошибок тоже не выдает.

Вот пример кода:

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, Forms, Bass,
  StdCtrls;

type
  TChannelType = (ctUnknown, ctStream, ctMusic);

type
  TfrmMain = class(TForm)
    btnStop: TButton;
    btnPlay: TButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure btnStopClick(Sender: TObject);
    procedure btnPlayClick(Sender: TObject);

  private
    Channel: DWORD;
    ChannelType: TChannelType;
    function BASS_PlaySoundFile(const FileName: string): Boolean;
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.DFM}

function TfrmMain.BASS_PlaySoundFile(const FileName: string): Boolean;
var
  ChannelInfo: BASS_CHANNELINFO;
begin
  Result:= False;
  Channel:= BASS_StreamCreateFile(False, PChar(FileName), 0, 0, 0);
  if (Channel <> 0) then
    ChannelType:= ctStream;

  if (Channel <> 0) then
  begin
    BASS_ChannelPlay(Channel, False);
  end;
  Result:= Channel <> 0;  
end;

procedure TfrmMain.FormCreate(Sender: TObject);
var
  BassInfo: BASS_INFO;
begin
  BASS_Init(1, 44100, BASS_DEVICE_3D, Handle, nil);
  BASS_Start;
  BASS_GetInfo(BassInfo);

end;


procedure TfrmMain.btnStopClick(Sender: TObject);
begin
    BASS_ChannelStop(Channel);
end;

procedure TfrmMain.btnPlayClick(Sender: TObject);
begin
BASS_PlaySoundFile('test.mp3');
end;

end.

[veniside]

возможно, так:

Channel:= BASS_StreamCreateFile(False, PAnsiChar(AnsiString(FileName)), 0, 0, 0);

[ZuBy]

BASS_StreamCreateFile(False, PChar(FileName), BASS_UNICODE, 0, 0);

при такой конструкции кода конечно не будут вылазить ошибки! читай хелп

[werrey]

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

возможно, так:

Channel:= BASS_StreamCreateFile(False, PAnsiChar(AnsiString(FileName)), 0, 0, 0);

Спасибо, помогло.

[werrey]

Подскажите пожалуйста, как сразу 2 звуковых файла воспроизвести?

procedure TfrmMain.btnPlayClick(Sender: TObject);
begin
BASS_PlaySoundFile('test.mp3');
BASS_PlaySoundFile('test2.mp3');
end;

Так не работает(

Всё, разобрался, вопрос снят, всем большое спасибо за помощь!

[werrey]

Возник новый вопрос:

Как сделать, чтобы звук проигрывался постоянно, с повтором?