[Dark_Observer]

Всем привет я пишу аудио плеер на основе библиотеки BASS в IDE Delphi XE2 при этом проект является firemonkey hd application и уже при первой компиляции столкнулся с проблемой : BASS инициализируется , поток из файла по идеи создается ,а дальше при попытке воспроизвести поток ничего не происходит - звук отсутствует.

Код:

unit PlayerMainUnit1;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, Bass;
 
type
  TForm1 = class(TForm)
    StyleBookMainForm1: TStyleBook;
    Button1Play: TButton;
    Button2Pause: TButton;
    Button3Back: TButton;
    Button4Next: TButton;
    Button5Stop: TButton;
    Button6Open: TButton;
    OpenFileDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button6OpenClick(Sender: TObject);
    procedure Button1PlayClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  audio_stream : HSTREAM;
 
implementation
 
{$R *.fmx}
 
//---------------------------------------------------------------------------
 
procedure TForm1.Button1PlayClick(Sender: TObject);
    
    Bass_ChannelPlay(audio_stream, false);
 
end;
 
//---------------------------------------------------------------------------
 
procedure TForm1.Button6OpenClick(Sender: TObject);
begin
    
if OpenFileDialog1.Execute() = true 
    then
    begin
 
        if audio_stream <> 0        
        then
        begin
            Bass_StreamFree(audio_stream); 
        end;
 
 
        audio_stream := BASS_StreamCreateFile(false,pansichar(AnsiString(OpenFileDialog1.FileName)),0,0,0);
     
    end;
 
end;
 
//---------------------------------------------------------------------------
 
procedure TForm1.FormCreate(Sender: TObject); 
begin
    if  not bass_init(-1,44100,0,Handle,nil)  
    then
        ShowMessage('Ошибка инициализации.');    
end;
 
procedure TForm1.FormDestroy(Sender: TObject);  
begin
    Bass_Free();
end;
 
//---------------------------------------------------------------------------
 
 
end.

Этот код выполняются в VCL проекте , но я использую FireMonkey и думаю , что проблема именно в этом. Возможно FireMonkey почему то конфликтует c BASS?

[angvelem]

Я вам уже ответил на другом форуме, недостаточно?