[NumLock]

http://data.cod.ru/68284

Код:

unit Unit1;

interface

uses
  Bass,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  BASS_Init(1, 44100, BASS_DEVICE_3D, Handle, nil);
  BASS_Start;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  fhandle:=BASS_StreamCreateURL('http://grafmoto.narod.ru/temp/tatu.mp3', 0, 0, nil, 0);
  BASS_ChannelPlay(fhandle, False);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  BASS_ChannelStop(fhandle);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if BASS_ChannelIsActive(fhandle)=BASS_ACTIVE_PLAYING then
    BASS_ChannelPause(fhandle)
  else
    BASS_ChannelPlay(fhandle, False);
end;

end.