procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.execute;
edit1.Text:=ExtractFileExt(opendialog1.filename);
if edit1.text='.wav' then
begin
if channel<>0 then
bass_StreamFree(channel);
Channel := Bass_StreamCreateFile(false,pChar(opendialog1.filename), 0,0,0);
BASs_channelplay(Channel,false);
form1.Show;
form2.Close;
end
else
if edit1.text='.avi' then
Channel := BassVideo_StreamCreateFile(pChar(opendialog1.filename), BASSVIDEO_VIDEOEFFECT , 0, @MyVideoStream, nil);
BASSVideo_play(Channel);
bass_chnnelstop(channel);
form2.Show;
form1.Hide;
end;
bu kodun neresinde yanlıslık yapıyorum mp3 ise form 1 gosuksun bass video kapansın avi ise form 1 hide olsun bass dll kapansın bass video devreye gırsın calıssın yapıyorum ama bu kod ıkısınıde calısıtıyo kapanmıyolar bass dll acıkken vıdeo actımmı ıkısıde calısıyor kapatamıyorum bırı calısırken otekını kapatsın bunu nasıl duzenlerım
procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.execute;
edit1.Text:=ExtractFileExt(opendialog1.filename);
if edit1.text='.wav' then
begin
if channel<>0 then
bass_StreamFree(channel);
Channel := Bass_StreamCreateFile(false,pChar(opendialog1.filename), 0,0,0);
BASs_channelplay(Channel,false);
form1.Show;
form2.Close;
end
else if edit1.text='.avi' then
begin/////////////buradaki begşn end bloklarını unutmuşşun ilk neden bu olabilir birde
{ bass_StreamFree(channel); }
bu satırı eklersen daha iyi olur diye düşünüyorum
Channel := BassVideo_StreamCreateFile(pChar(opendialog1.filename), BASSVIDEO_VIDEOEFFECT , 0, @MyVideoStream, nil);
BASSVideo_play(Channel);
bass_chnnelstop(channel);
form2.Show;
form1.Hide;
end
end;