|
#16
|
|||
|
|||
Спасибо.. Я его ковырял.. Видно не то вводил. =)
Ещё раз Спасибо. Будут вопросы. Буду ещё обращаться =) |
#17
|
|||
|
|||
Может ещё кто-то знает.. Как это сделать используя bass.dll ?
|
#18
|
||||
|
||||
Цитата:
Не твори зла, и жизнь повернется к тебе передом |
#19
|
||||
|
||||
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. |