[Dark_Observer]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84

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]

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