Bass.dll

[Gudzik11]

Кто сталкивался с такой проблемой в bass.dll

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 BASS_Free();
end;

Проект при запуске сразу закрывается

[Gudzik11]

это был какой то глюк перезагрузил всё запустилось.
Вот только звука нет может что то не так я сделал ?

unit Home;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, bass ;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  stream: HSTREAM ;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 stream:=BASS_StreamCreateFile(False,PChar('1.mp3'), BASS_UNICODE, 0, 0);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  BASS_ChannelPlay(stream,False);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 if BASS_Init(-1, 44100, 0, Handle, nil) = False then
 ShowMessage('Не могу инициализировать поток');

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  BASS_Free();
end;

end.

[GunSmoker]

Никто, кроме тебя, этого не знает.

Подсказка: нет проверок на ошибки (BASS_ErrorGetCode).