Lütfen Yardım Edin :(

[alyamus]

Kod: Tümünü seç

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

[arkantos_55]

Kod: Tümünü seç

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;