Bass.dll -непрерывное воспроизведение звука

[werrey]

Здравствуйте уважаемые программисты.
Подскажите пожалуйста на нижеприведённом примере, как воспроизводить звук из файла, чтобы он постоянно играл, и чтобы если данный файл уже играет, то при его повторном вызове он не воспроизводился, пока не доиграет ?

Пример кода:

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, Forms, Bass,
  StdCtrls;

type
  TChannelType = (ctUnknown, ctStream, ctMusic);

type
  TfrmMain = class(TForm)
    btnStop: TButton;
    btnPlay: TButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure btnStopClick(Sender: TObject);
    procedure btnPlayClick(Sender: TObject);

  private
    Channel: DWORD;
    ChannelType: TChannelType;
    function BASS_PlaySoundFile(const FileName: string): Boolean;
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.DFM}

function TfrmMain.BASS_PlaySoundFile(const FileName: string): Boolean;
var
  ChannelInfo: BASS_CHANNELINFO;
begin
  Result:= False;
  Channel:= BASS_StreamCreateFile(False, PChar(FileName), 0, 0, 0);
  if (Channel <> 0) then
    ChannelType:= ctStream;

  if (Channel <> 0) then
  begin
    BASS_ChannelPlay(Channel, False);
  end;
  Result:= Channel <> 0;  
end;

procedure TfrmMain.FormCreate(Sender: TObject);
var
  BassInfo: BASS_INFO;
begin
  BASS_Init(1, 44100, BASS_DEVICE_3D, Handle, nil);
  BASS_Start;
  BASS_GetInfo(BassInfo);

end;


procedure TfrmMain.btnStopClick(Sender: TObject);
begin
    BASS_ChannelStop(Channel);
end;

procedure TfrmMain.btnPlayClick(Sender: TObject);
begin
BASS_PlaySoundFile('5.wav');
end;

end.

[ZvEr_HaCkEr]

http://programmersforum.ru/showpost....4&postcount=14

[werrey]

Сообщение от ZvEr_HaCkEr

http://programmersforum.ru/showpost....4&postcount=14

Код:

Bass_Init(-1,44100,0,handle,nil);
Channel:=Bass_StreamCreateFile(false,Pchar(ExtractFilePath(ParamStr(0))+'music\main.mp3'), 0, 0, BASS_SAMPLE_LOOP  or {$IFDEF UNICODE} BASS_UNICODE {$ELSE} 0 {$ENDIF});
BASS_ChannelPlay(Channel, false);

А как это прикрутить к моему коду? Заменил в Create, ничего не изменилось... Хорошо бы примерчик работающий, так сложновато разобраться.

[ZvEr_HaCkEr]

Странно, у меня все работает.

[werrey]

Да, файл проигрывается постоянно, но:
Я его произвожу по нажатию кнопки, и надо, чтобы если он еще играет, то не запускался, а так получается, если нажать 5 раз на button1, то файл воспроизводится 5 раз одновременно, и получается звуковая каша.

Подскажите пожалуйста, если знаете как это исправить.

[ZuBy]

function TfrmMain.BASS_PlaySoundFile(const FileName: string): Boolean;
var
  ChannelInfo: BASS_CHANNELINFO;
begin
  Result:= False;

  if  channel > 0 then exit;
  bass_streamfree(channel);

  Channel:= BASS_StreamCreateFile(False, PChar(FileName), 0, 0, 0);
  if (Channel <> 0) then
    ChannelType:= ctStream;

  if (Channel  0) then
    BASS_ChannelPlay(Channel, False);
  Result:= Channel > 0;  
end;

[werrey]

Сообщение от ZuBy

function TfrmMain.BASS_PlaySoundFile(const FileName: string): Boolean;
var
  ChannelInfo: BASS_CHANNELINFO;
begin
  Result:= False;

  if  channel > 0 then exit;
  bass_streamfree(channel);

  Channel:= BASS_StreamCreateFile(False, PChar(FileName), 0, 0, 0);
  if (Channel <> 0) then
    ChannelType:= ctStream;

  if (Channel  0) then
    BASS_ChannelPlay(Channel, False);
  Result:= Channel > 0;  
end;

Звук воспроизводится только один раз, при повторном нажатии на button1 больше не играет( И в 3 условии у Вас нету знака (if (Channel ? 0)), но я там по разному пробовал, не помогает

[ZuBy]

function TfrmMain.BASS_PlaySoundFile(const FileName: string): Boolean;
var
  ChannelInfo: BASS_CHANNELINFO;
begin
  Result:= False;

  if  channel > 0 then exit;
  bass_streamfree(channel);

  Channel:= BASS_StreamCreateFile(False, PChar(FileName), Bass_SAMPLE_Loop, 0, 0);
  if (Channel <> 0) then
    ChannelType:= ctStream;

  if (Channel >  0) then
    BASS_ChannelPlay(Channel, False);
  Result:= Channel > 0;  
end;

[werrey]

Сделал по Вашему новому примеру, но звук при повторном нажатии не вызывается, играет только один раз( , а нужно, чтобы если опять нажать на Button, то опять воспроизводился, если уже проигрался до конца.

Код:

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, Forms, Bass,
  StdCtrls;

type
  TChannelType = (ctUnknown, ctStream, ctMusic);

type
  TfrmMain = class(TForm)
    btnStop: TButton;
    btnPlay: TButton;
    Label1: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnStopClick(Sender: TObject);
    procedure btnPlayClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);

  private
    Channel: DWORD;
    ChannelType: TChannelType;
    function BASS_PlaySoundFile(const FileName: string): Boolean;
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.DFM}

function TfrmMain.BASS_PlaySoundFile(const FileName: string): Boolean;
var
  ChannelInfo: BASS_CHANNELINFO;
begin
  Result:= False;

  if  channel > 0 then exit;
  bass_streamfree(channel);

  Channel:= BASS_StreamCreateFile(False, PAnsiChar(AnsiString(FileName)), 0, 0, 0);
  if (Channel <> 0) then
    ChannelType:= ctStream;

  if (Channel >  0) then
    BASS_ChannelPlay(Channel, False);
  Result:= Channel > 0;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
var
  BassInfo: BASS_INFO;
begin
  BASS_Init(1, 44100, BASS_DEVICE_3D, Handle, nil);
  BASS_Start;
  BASS_GetInfo(BassInfo);

end;


procedure TfrmMain.btnStopClick(Sender: TObject);
begin
    BASS_ChannelStop(Channel);
end;

procedure TfrmMain.Button1Click(Sender: TObject);
begin
 BASS_PlaySoundFile('test.mp3');
end;

procedure TfrmMain.btnPlayClick(Sender: TObject);
begin
BASS_PlaySoundFile('test.mp3');

end;

end.

Где-то тут небольшая ошибка, посмотрите пожалуйста.

[ZuBy]

ну правильно условие

if Channel > 0 then exit;

не дает ему пройти, а всё почему?
потому что вы нигде (т.е. при завершении трека) не вызываете

bass_streamfree(channel);
channel := 0;

P.S. Channel:= BASS_StreamCreateFile(False, PChar(FileName), 0, 0, BASS_UNCIODE or BASS_SAMPLE_LOOP);