спасибо, разобрался, нашел ошибку в своем коде кому нужно, вот:
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, bass, StdCtrls, ComCtrls, sDialogs, sListBox;
type
TForm1 = class(TForm)
btn1: TButton;
btn2: TButton;
ListBox: TsListBox;
sOpenDialog1: TsOpenDialog;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure ListBoxDblClick(Sender: TObject);
private
{ Private declarations }
public
procedure PlayStream;
procedure Play;
procedure FreeStream(var Stream: HStream);
function LoadStream(FileName : String) : Boolean;
end;
var
Form1 : TForm1;
Channel,
Channel2 : HSTREAM;
Volume,
FadeTimer : Integer;
PlaySync : HSYNC;
Dir : String;
Timer : DWORD;
implementation
{$R *.dfm}
procedure PlayStreamSync(handle: HSYNC; Stream, data: DWORD; user: Pointer); stdcall;
begin
BASS_ChannelRemoveSync(Stream,Handle);
Channel:=Channel2;
Channel2:=0;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
if BASS_Init(-1, 44100, 0, Handle, NIL) = False then
ShowMessage('Îøèáêà');
GetDir(0, Dir);
Channel:=0;
FadeTimer:=3000;
Volume:=100;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
BASS_Free;
end;
procedure TForm1.FreeStream(var Stream: HStream);
begin
BASS_ChannelStop(Stream);
BASS_StreamFree(Stream);
end;
procedure TForm1.PlayStream;
begin
if Channel2=0 then Exit;
if Channel=0 then begin
Channel:=Channel2;
Play;
end else
if BASS_ChannelIsActive(Channel)=Bass_Active_Stopped then begin
FreeStream(Channel);
Channel:=Channel2;
Play;
end else begin
BASS_ChannelSlideAttribute(Channel,BASS_ATTRIB_VOL,0,FadeTimer);
BASS_ChannelSetAttribute(Channel2,BASS_ATTRIB_VOL,0);
BASS_ChannelPlay(Channel2,False);
end;
PlaySync:=BASS_ChannelSetSync(Channel2,BASS_SYNC_SLIDE,0,@PlayStreamSync,nil);
BASS_ChannelSlideAttribute(Channel2,BASS_ATTRIB_VOL,Volume / 100,FadeTimer)
end;
procedure TForm1.Play; //ôóíêöèÿ âîñïðîèçâåäåíèÿ êàíàëà äàâíî çàãðóæåííîãî â ïàìÿòü
begin
BASS_ChannelSetAttribute(Channel,BASS_ATTRIB_VOL,0);
BASS_ChannelPlay(Channel,False);
BASS_ChannelSlideAttribute(Channel,BASS_ATTRIB_VOL,Volume / 100,FadeTimer);
end;
function TForm1.LoadStream(FileName : String) : Boolean;
var
Time : DWORD;
begin
if Channel2<>0 then Channel2:=0;
Channel2:=Bass_StreamCreateFile(False,PChar(FileName),0,0,0);
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
if sOpenDialog1.Execute then
ListBox.Items.Append(sOpenDialog1.FileName);
end;
procedure TForm1.ListBoxDblClick(Sender: TObject);
var ST:string;
begin
St := ListBox.Items[ListBox.ItemIndex];
if LoadStream(St) then
PlayStream;
end;
end.
Ошибку нашел вот здесь:
Код:
procedure PlayStreamSync(handle: HSYNC; Stream, data: DWORD; user: Pointer); stdcall;
begin
BASS_ChannelRemoveSync(Stream,Handle);
Channel:=Channel2;
Channel2:=0;
// все из-за этой строчки, я ее просто убрал, и все нормально работает
BASS_StreamFree(Channel);
end;
|